Question

我在每列中都有很少的文字，直到A1000，每个文本都用空格分隔。我想复制并粘贴一个低于其他的转置

原始数据我有例如

A  
AA
BB
CC
DD

PP
QQ
RR
SS
TT

使用Macro：

需要使用以下格式的数据

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

在转置中复制粘贴

1 个答案: