230问答网 > vba 怎么选择筛选的内容，比如我按条件筛选后，复制筛选的内容到另外一个表格，

vba 怎么选择筛选的内容，比如我按条件筛选后，复制筛选的内容到另外一个表格，

不要for循环的，表很大10万行的，很慢的。

2024-12-20 15:46:46

推荐回答（2个）

回答1：

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

回答2：

有一些用鼠标可以简单操作的代码我们可以直接录制，再修改