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

エクセルマクロで、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列）にまとめます。

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

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

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

...

kirinote.com

2022.11.12