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

エクセル_複数列のデータを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列に転記しました。

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


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

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

 

「プログラマーの本気がExcelを覚醒させる 超絶ExcelVBA」
ExcelVBAでワンランクアップできる書籍
具体的で応用が利く技をたくさん掲載