复制粘贴在转置

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