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
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。