»s§@²M³æ

carzyindex

¸ê®Æ¨Ó·½        ¼Æ¶q        ²£¥Í1        ²£¥Í2
xxx        4        xxx        1
yyy        3        xxx        2
zzz        4        xxx        3
                xxx        4
                yyy        1
                yyy        2
                yyy        3
                zzz        1
                zzz        2
                zzz        3
                zzz        4



§Æ±æ«ö¤Uµ{¦¡Åª¨úA  BÄæ¦ì  ²£¥ÍC   D Äæ¦ì

¸÷¨D¦U¦ì¤j¤jÀ°¦£

tatun

¦^´_ 1# carzyindex


    ­ì¨ÓÁÙ¦³³oºØ¤è¦¡
¯u¬O¾Ç¨ì¤F

Hsieh

¦^´_ 1# carzyindex

1. Sub ex()
   
2. Dim Ar(), A As Range, i%, s&
   
3. For Each A In Range([B2], [B2].End(xlDown))
   
4.   For i = 1 To A
   
5.      ReDim Preserve Ar(s)
   
6.      Ar(s) = Array(A.Offset(, -1).Value, i)
   
7.      s = s + 1
   
8.   Next
   
9. Next
   
10. [C2].Resize(s, 2) = Application.Transpose(Application.Transpose(Ar))
    
11. End Sub

½Æ»s¥N½X

carzyindex

¦^´_ 2# kimbal


    ·PÁ¦^´_
    ¶W¦n¥Î

kimbal

1. Sub test()
   
2.     Dim mainRowCnt, subRowCnt, extRowCnt
   
3.     extRowCnt = 1
   
4.     Dim rng As Range
   
5.     Set rng = Range(Range("A2"), Range("B2").End(xlDown))
   
6.     For mainRowCnt = 1 To rng.Rows.Count
   
7.         For subRowCnt = 1 To rng.Cells(mainRowCnt, 2)
   
8.             Range("C1").Offset(extRowCnt, 0) = rng.Cells(mainRowCnt, 1)
   
9.             Range("C1").Offset(extRowCnt, 1) = subRowCnt
   
10.             extRowCnt = extRowCnt + 1
    
11.         Next
    
12.     Next
    
13.    
    
14. End Sub

½Æ»s¥N½X