【エクセルマクロ】2列を1列に交互に並べる:コピペで使えるコード

vba-2列を1列に交互並べる-アイキャッチ ExcelVBA

エクセルマクロで、2列を1列に交互に並べるVBAコードをご紹介します。

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

2列を1列に交互に並べる

以下のマクロを実行すると、2列のデータを1列にして、値を交互に並べ替えます。


Sub 隣り合った列を1行に交互に並べる()

Dim i As Long
Dim Buf As String

    '転記開始行
    Buf = 1

    '1~最終行までループ
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    
        'D列にA列の値を転記
        Cells(Buf, 4) = Cells(i, 1)
        
        'D列にB列の値を転記
        Cells(Buf, 4).Offset(1, 0) = Cells(i, 2)
        
       '転記開始行を更新
        Buf = Buf + 2
        
    Next i

End Sub

 

マクロ実行後

2列(A列とB列)に分かれているデータを、

1列(D列)にまとめます。


 
 

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

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

 

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