vba - ダイナミックレンジを移調するループ

Question

データの行が列に配置されており、データを行に転置する必要があります。列の長さが異なるため、範囲を動的に選択し、コピーしてから貼り付けて転置し、データの列を含む次の行に移動する必要があります。各データセットの下に列数と等しい空白行を挿入できました。IE 1 つの行に 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