VBA筛选数据后复制到另一张表

不需要用vba,操作方法如下：

1.在sheet1中先写好筛选条件，点开你文件复制的目标excel（本文是sheet2），最上面工具栏中点“数据”，找到筛选旁边的“高级”选项，跳出“高级筛选”框。

2.选中“将筛选结果复制到其他位置”，然后“列表区域”选中sheet1中的原始数据，“条件区域”选中sheet1中我们提前写好的条件，“复制到”选中sheet2中任意一个单元格（如果有要求是哪个单元格，直接点击对应单元格），“确定”。

3.结果就出来了，是不是很简单。

可以在收货管理表打开时就更新数据，无须增加控件。
代码清单：
Private Sub Worksheet_Activate()
Rows.ClearContents
Dim r, c, s As Integer
s = 0
For c = 1 To 8
Sheets("收货管理表").Cells(1, c).Value = Sheets("订单表").Cells(1, c).Value '插入表头
Next c
For r = 2 To 9
If Sheets("订单表").Cells(r, 8) = "是" Then
s = s + 1
Sheets("收货管理表").Cells(s + 1, 1).Value = s '自动顺序编号
For c = 2 To 8
Sheets("收货管理表").Cells(s + 1, c).Value = Sheets("订单表").Cells(r, c).Value '插入产品其他信息
Next c
End If
Next r
End Sub

该程序已通过测试。

在access中直接用选择查询功能即可，在设计视图“是否审核”字段中填写条件为“是”，执行查询即可