筛选后的过滤内容复制到另外一个表格

Private Sub CommandButton1_Click()

Sheets("Tem").Activate 'tem为原始表格

ActiveSheet.AutoFilterMode = False

Sheets("Tem").Rows("1:1").Select

Selection.AutoFilter '将原始表格设为过滤状态

Selection.AutoFilter Field:=10, Criteria1:="<1000" '选择过滤的位置，设定过滤的条件

Sheets("Tem").Range("a1").CurrentRegion.Select '选择过滤的内容

Selection.Copy Sheets("Sheet1").Range("a1") '复制选择的内容到目标表格

End Sub