请教自动筛选问题

前面这个图是表Sheet2，

我原来都是手工干，先在Sheet1中看个名字再从Sheet2中找到并复制出来，不但费时间还容易出错

用vba代码解决。今天我写过一个类似的代码，可参考一下。

'可以试试
Option Explicit
Sub test()
　　Dim i, dic
　　Set dic = CreateObject("scripting.dictionary")
　　With Sheets("sheet1")
　　　　For i = 1 To .[a65536].End(xlUp).Row
　　　　　　If Not dic.exists(Trim(.Cells(i, 1))) Then dic.Add Trim(.Cells(i, 1)), 1
　　　　Next
　　End With
　　With Sheets("sheet2")
　　　　For i = .[b65536].End(xlUp).Row To 1 Step -1
　　　　　　If Not dic.exists(Trim(.Cells(i, 2))) Then .Rows(i).Delete
　　　　Next
　　End With
End Sub

看看你要选的有什么共性

在哪列有共性在哪列筛选，然后把筛选表复制到另一工依作表中