lpk187

¦^´_ 3# wanggy77
¬O³o¼Ë¶Ü¡H

1. Public Sub test()
   
2. cc = 1
   
3. Range("C1:C" & Range("C65535").End(xlUp).Row).ClearContents
   
4. For Each Rng In Range("A1:A" & Range("A65535").End(xlUp).Row)
   
5.     aa = Rng.Offset(, 1)
   
6.     If aa = 0 And aa = "" Then GoTo 100
   
7.     For I = 1 To aa
   
8.             Cells(cc, 3) = Rng
   
9.             cc = cc + 1
   
10.     Next
    
11. 100:
    
12. Next
    
13. End Sub

½Æ»s¥N½X