複製粘貼在轉置

Question

我在每列中有幾個文本，直到A1000，每個都被空格分開。我想在轉一個低於其他

原始數據我有例如

A 
AA 
BB 
CC 
DD 

PP 
QQ 
RR 
SS 
TT 

複製和粘貼什麼數據需要使用如下格式的宏：

A AA BB CC DD 
PP QQ RR SS TT 

請幫我

Answer 1

通過範圍區域循環：

Sub Button1_Click() 
    Dim RangeArea As Range 

    For Each RangeArea In Columns("A").SpecialCells(xlCellTypeConstants, 23).Areas 

     RangeArea.Copy 
     Cells(Rows.Count, "B").End(xlUp).Offset(1).PasteSpecial Transpose:=True 

    Next RangeArea 

    Application.CutCopyMode = 0 

End Sub