GBKEE

¦^´_ 7# Qin
»²§UÄæ+±Æ§Ç+IF¤½¦¡

1. Sub Ex()
   
2.     Dim xTime As Date
   
3.     xTime = Time
   
4.     Debug.Print Time
   
5.     With Range("C2:C" & [C2].End(xlDown).Row) '¸ê®ÆÄæ
   
6.         .Offset(, 1) = "=ROW()"    '»²§UÄæ
   
7.         .CurrentRegion.Sort KEY1:=.Cells(1), Header:=xlYes    '±Æ§Ç¥H¸ê®ÆÄ欰¥DÁä
   
8.         .Offset(, -1) = "=IF(OR(RC[1]=R[-1]C[1], RC[1]=R[1]C[1]),""­«½Æ"","""")"    '­nÅã¥Ü­«½ÆªºÄæ¼g¤W¤½¦¡
   
9.         .CurrentRegion.Value = .CurrentRegion.Value         '±N¤½¦¡Âର¼Æ­È
   
10.         .CurrentRegion.Sort KEY1:=.Cells(1, 2), Header:=xlYes  '±Æ§Ç¥H»²§UÄ欰¥DÁä :ÁÙ­ì¸ê®ÆÄæ­ì¦³ªº±Æ¦C
    
11.         .Offset(, 1) = ""   '²M°£»²§UÄæ
    
12.     End With
    
13.     Debug.Print Time
    
14.     MsgBox Application.Text(Time - xTime, ["­p®É ss ¬í"])
    
15. End Sub

½Æ»s¥N½X