GBKEE

¦^´_ 1# yangjie
¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.     Dim D As Object, R As Range
   
3.     Set D = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("°ò¥»¸ê®Æ")
   
5.         For Each R In .Range(.Cells(2, 3), .Cells(65536, 4).End(xlUp)).Rows
   
6.             D(R) = ""
   
7.         Next
   
8.     End With
   
9.     If D.Count = 0 Then Exit Sub
   
10.     With ListBox1
    
11.         .ColumnCount = 2
    
12.         .List = Application.Transpose(Application.Transpose(D.keys))
    
13.     End With
    
14. End Sub

½Æ»s¥N½X