Hsieh

¦^´_ 1# michael101772

1. Sub ex()
   
2. Dim ar()
   
3. With ¤u§@ªí1
   
4. For Each a In Range([A2], [A2].End(xlDown))
   
5.   For i = 0 To 6 Step 3
   
6.      ReDim Preserve ar(s)
   
7.      ar(s) = Array(a.Offset(, i).Value, a.Offset(, i + 1).Value, a.Offset(, i + 2).Value)
   
8.      s = s + 1
   
9.   Next
   
10. Next
    
11. End With
    
12. ¤u§@ªí2.[A2].Resize(s, 3) = Application.Transpose(Application.Transpose(ar))
    
13. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 3# michael101772

°j°é¤¤Åܼƪº¼W¶q