Sub Click()
Dim A, d, i
'1)加入字典
A = Range("a1").CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(A)
d(A(i, 2)) = ""
Next i
'2)按姓名打印
A = d.keys
With Range("a1").CurrentRegion
For i = 0 To UBound(A)
.AutoFilter 2, A(i)
.PrintOut
Next i
End With
End Sub
2.rar
(13.38 KB, 下载次数: 164)