【エクセルマクロ】複数行を1行にまとめる方法:簡単解説

エクセル_複数行のデータを1行にまとめる_アイキャッチ エクセルマクロで効率化する

エクセルマクロで、複数行を1行にまとめるVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
せひ、お試しください。

複数行を1行にまとめる

以下のマクロを実行すると、2行以上の複数行を1行に並び変えます。


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

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

    '転記開始列
    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

 

マクロ実行前

複数の行にデータが入力されている状態です。

 

マクロ実行後

1~4行目の値を、一括で7行目に転記しました。


 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】縦データを横データに並べる:3倍高速化する手法
...