GBKEE

¦^´_ 1# heavenweaver
2003ª© ¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub EX()
   
3.     Dim rng As Range, n As Long, tmpa()
   
4.     ReDim tmpa(1 To 100, 1 To 1)
   
5.     With CreateObject("Scripting.Dictionary")
   
6.         .CompareMode = 1
   
7.         n = 0
   
8.         For Each rng In ActiveSheet.Range("$G$1:$G$100")
   
9.             If Not .Exists(rng.Value) Then
   
10.                 n = n + 1
    
11.                 tmpa(n, 1) = rng.Value
    
12.                 .Item(rng.Value) = Empty
    
13.             End If
    
14.         Next
    
15.     End With
    
16.     ActiveSheet.Range("$G$1:$G$100").Value = tmpa
    
17. End Sub

½Æ»s¥N½X