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

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

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

複数列を1列にまとめる

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

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

Dim Last_Row As Long
Dim i As Long
Dim Target_Row As Long

    '転記開始行
    Target_Row = 2

    '4列分ループ
    For i = 1 To 4
    
        '最終行を取得
        Last_Row = Cells(Rows.Count, i).End(xlUp).Row
    
        'コピーして貼り付け
        Range(Cells(2, i), Cells(Last_Row, i)).Copy Cells(Target_Row, 6)
        
        '転記開始行
        Target_Row = Cells(Rows.Count, 6).End(xlUp).Row + 1

    Next i

End Sub

マクロ実行前

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

マクロ実行後

A～D列の値を、F列に転記しました。

各列の行数が変動しても、マクロは動作します。

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

・【エクセルマクロ】データ並べ替えを自動化まとめ
 

【エクセルマクロ】データ並べ替えを自動化する：超便利7選

...

kirinote.com

2022.11.12