GBKEE

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

1. Option Explicit
   
2. Sub Test()
   
3.     Dim Rng As Range, i, ii
   
4.     Set Rng = [b2]
   
5.     ' Rng.Cells(1) =[b2], Rng.Cells(2) =[b3]
   
6.     ' Rng.Offset(, -1)  , -1 ¬° ¦V¥ª¤@Äæ(A),0 ¬° Rng©Ò¦bªºÄæ¦ì(B),1 ¬° ¦V¥k¤@Äæ(C)
   
7.      'Rng.Offset(i - 1, -1)  ,i - 1 ¬° ¦C¸¹
   
8.     ii = 2
   
9.     Do While Rng <> ""
   
10.         i = 2
    
11.         Do While Rng = Rng.Cells(i)
    
12.             Cells(ii, "k") = Rng.Offset(, -1)
    
13.             Cells(ii, "m") = Rng.Offset(i - 1, -1)
    
14.             i = i + 1:             ii = ii + 1
    
15.          Loop
    
16.         Set Rng = Rng.Offset(1)
    
17.     Loop
    
18. End Sub

½Æ»s¥N½X