GBKEE

¦^´_ 1# tonycho33
¥ÎÀ£ÁYÀÉ µ¹­ÓExcleÀÉ®×

GBKEE

¦^´_ 6# tonycho33

1. Sub Ex()
   
2.     Dim Criterion As Range, Rng As Range, E As Range
   
3.     Set Criterion = Range([G5], [G5].End(xlDown))               'G5¥H¤Uªº½d³ò
   
4.     Criterion.CurrentRegion.Offset(, 1) = ""                    'G5ªº³sÄò½d³ò©¹¥k1Ä椧½d³ò
   
5.     For Each E In Criterion                                     '¨Ì§Ç³B²z G5¥H¤Uªº½d³òªºCell
   
6.         Set Rng = [B:B].Find(E, lookat:=xlWhole)                '§ä¨ìG5¦bBÄ檺¦ì¸m
   
7.         If Not Rng Is Nothing Then
   
8.             i = 0
   
9.             Do
   
10.                 E.Offset(, i + 1) = Rng.Offset(i, 1)
    
11.                 i = i + 1
    
12.             Loop Until Rng.Offset(i) <> "" Or Rng.Offset(i, 1) = ""
    
13.         End If
    
14.     Next
    
15. End Sub

½Æ»s¥N½X