Hsieh

¦^´_ 1# a703130

1. Sub nn()
   
2. Dim B As Range
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. Set B = Columns("B").Find("*")
   
5. If Not B Is Nothing Then r = B.Row Else Exit Sub
   
6. Do Until Cells(r, 2) = ""
   
7. If d.exists(Cells(r, 2).Value) = False Then
   
8. Cells(r, 3) = Application.CountIf(Columns("B"), Cells(r, 2))
   
9. d(Cells(r, 2).Value) = Cells(r, 2).Value
   
10. Else
    
11. Cells(r, 3) = ""
    
12. End If
    
13. r = r + 1
    
14. Loop

½Æ»s¥N½X

Hsieh

¦^´_ 3# a703130

Set B = Columns("B").Find("*") -- ¬O³]©wBÄæ¤@­Ó½d³ò¨S¦³«ü©wªø«×ªº·N«ä¶Ü??
BÄæ§ä¨ì¦³¸ê®Æªº²Ä¤@­Ó¦ì¸m«ü©wµ¹ÅܼÆB

If Not B Is Nothing Then R = B.Row Else Exit Sub  -- ·N«ä¬OBÄæ¦pªG¦³ªF¦è«hR=BÄ檺¦C¼Æ¶Ü??
°²¦pBÄ榳¸ê®Æ¦s¦b´N±NÅܼÆR«ü©w¬°BÄæ§ä¨ì¦³¸ê®Æªº²Ä¤@­Ó¦ì¸mªº¦C¸¹§_«hµ²§ôµ{¦¡

If d.Exists(Cells(R, 2).Value) = False -- ³o¬qªº·N«ä¬O«ü??
¦pªG¦b¦r¨åª«¥ód¸Ì­±¤ñ¹ï¤£¨ìBÄ檺­È

Hsieh

¦^´_ 6# a703130


    FIND¥Îªk½Ð¸Ô¨£VBA»¡©ú

Hsieh

¦^´_ 9# a703130


    If d.Exists(Cells(R, 2).Value) = False Then
¤§©Ò¥H¨Ï¥Î¦r¨å¨ÓÀˬd¬O§_¸Ó¯Á¤Þ¤w¸g¦s¦b¡A¬O¦]¬°§Aªº­p¼Æ¦ì¸m¬O¦b¸Ó©Ò¤Þªº²Ä¤@­Ó¦ì¸mÅã¥Ü
±q²Ä2­Ó¦ì¸m¥H«á´N¤£¦AÅã¥Üµ²ªG¡A¬G¥²¶·§PÂ_¯Á¤Þ¬O§_¦s¦b
Cells(R, 3) = Application.CountIf(Columns("B"), Cells(R, 2))
±N­p¼Æªº­È¶ñ¤JCÄæ
d(Cells(R, 2).Value) = Cells(R, 2).Value
±N¯Á¤Þ­È¦s¨ì¦r¨åª«¥ó¤¤¡Aª`·N¤@ÂI¡A­Y¯Á¤Þ­È¹ïÀ³ªº¤º®e¬Od(Cells(R, 2).Value) =""®É¡AExists¤èªk·|±o¨ìFALSE
¤]´N¬O»{¬°¸Ó©Ò¤Þ­È¤£¦s¦b©ó¦r¨åª«¥ó
¦pªG³o¼ËµLªk²z¸Ñ¡A¸Õ¸Õ¤U­±µ{¦¡½X
¥Ñ¤U©¹¤W¨Ó°µ°j°é

1. Sub nn()
   
2. r = [B65536].End(xlUp).Row 'BÄ榳¸ê®Æªº³Ì¤j¦C¦ì
   
3. Do Until Cells(r, 2) = "" 'ª½¨ìBÄæ¨S¦³¤º®eµ²§ô°j°é
   
4.    Set a = Cells(r, 2) '³]©wÅܼÆa¬°Äæ¦ìªºÀx¦s®æ
   
5.    Set b = Range([B1], a.Offset(-1, 0)).Find(a) '¦bB1¨ìªº¤W¤@­ÓÀx¦s®æ¤¤´M§äa
   
6.    '¦pªG§ä¤£¨ì´N±N­p¼Æ¼g¤JCÄæ¡A§_«hCÄæ¦ì¸m´N²MªÅ
   
7.    If b Is Nothing Then a.Offset(, 1) = Application.CountIf(Columns("B"), a) Else a.Offset(, 1) = ""
   
8.    r = r - 1 '¦C¦ì´î1
   
9. Loop
   
10. End Sub

½Æ»s¥N½X