【エクセルマクロ】複数行を1行にまとめる方法：動画あり

Sub 複数行のデータを1行にまとめる()

Dim i As Long
Dim Last_Clm As Long
Dim Target_Clm As Long

    '転記開始列 B列
    Target_Clm = 2

    '4行分ループ
    For i = 1 To 4

        '最終列を取得
        Last_Clm = Cells(i, Columns.Count).End(xlToLeft).Column

        'コピ-して貼り付け
        Range(Cells(i, 2), Cells(i, Last_Clm)).Copy Cells(7, Target_Clm)

        '転記開始列　取得
        Target_Clm = Cells(7, Columns.Count).End(xlToLeft).Column + 1

    Next i

End Sub