简单数据筛选问题

fuu123456

大家好，我希望筛选Sheet1中第三列数据，筛选条件是Sheet2中A列中的每一个单元格（这个不会写）。然后复制Sheet1中的3、6、7、8列（这个区域不会设置）到Sheet3第二列 我自己写了个大概然后就不会了 求指导
Sub 自动筛选()
Sheet1.Range("A1：R999").AutoFilter Field:=3, Criteria1:=Sheet2.Range("A2", "A3")
Sheet1.Range("A2：R999").Copy Sheet3.Range("A2")
Sheet1.Range("A2：R999").AutoFilter

End Sub

jians0529

有时不会写的用录制宏的方式会来得更快一些！