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

幻想小小墨鱼

于 2018-01-25 16:07:50 发布

阅读量3.6k

点赞数 2

分类专栏：学习

学习专栏收录该内容

20 篇文章

订阅专栏

本文介绍了一个使用VBA进行数据筛选的例子。该脚本首先激活名为“Tem”的工作表，然后取消自动筛选模式，并对第一行进行选择并开启筛选功能。接着设置第10列的筛选条件为小于1000，随后选择过滤后的区域并将这些数据复制到名为“Sheet1”的工作表中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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