Hsieh

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

1. Sub ex()
   
2. Dim Ar() As String, i&, t$, s&
   
3. For i = 1 To [A1].End(xlDown).Row Step 2
   
4.   t = Trim(Cells(i, 1)) & Cells(i + 1, 1)
   
5.    ReDim Preserve Ar(s)
   
6.    Ar(s) = t
   
7.    s = s + 1
   
8. Next
   
9. [B1].Resize(s, 1) = Application.Transpose(Ar)
   
10. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 7# lyc43210
°}¦C³t«×·|¦n¨Ç

1. Sub ex()
   
2. Dim ar()
   
3. x = 6 '«ü©w¾ã²z«áÄæ¼Æ
   
4. With ActiveSheet
   
5. Set Rng = .Columns("A:H").SpecialCells(xlCellTypeConstants)
   
6. k = Application.CountA(Rng)
   
7. s = Int(k / x) + IIf(k > Int(k / x) * x, 1, 0) '­pºâ°}¦C¦C¼Æ
   
8. ReDim ar(s, 1 To x) '«Å§i°}¦C
   
9. For Each a In Rng
   
10. i = i + 1
    
11. r = Int((i - 1) / x)
    
12. j = i - r * x
    
13.    ar(r, j) = a.Value '°}¦C½á­È
    
14. Next
    
15. .Columns("A:H") = "" '²MªÅ­ì¸ê®Æ
    
16. .[A1].Resize(r + 1, x) = ar '¼g¤J°}¦C
    
17. End With
    
18. End Sub

½Æ»s¥N½X