vba - 循环转置动态范围

Question

我有按列排列的数据行，需要将数据转置为行。列的长度各不相同，所以我需要动态选择一个范围，复制，然后粘贴和转置，然后移动到具有数据列的下一行。我能够在每组数据下方插入等于列数的空白行。IE 如果一行有 3 列，下面会有 2 个空白行。我需要从顶部排列到底部。

A   B   C


D   E   

F       
G   H   I


A       
B       
C       
D       
E       
F       
G       
H       
I

Answer 1

如果您选择顶部排列的整个范围并运行以下宏，它将在您的选择下方以所需格式列出您的数据：

Sub TransposeLoop()
    Dim Rng As Range
    Dim cell As Range
    Set Rng = Selection

    For Each cell In Rng
        If cell.Value <> vbNullString Then
            ActiveSheet.Cells(ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Value = cell.Value
        End If
    Next cell
End Sub