【エクセルVBA】1行のデータを飛び飛びで２行に整理する方法

こんにちは、ヒガシです。

このページでは、以下の画像のように１行のデータを飛び飛びで２行に整理するVBAコードをご紹介していきます。

それではさっそくやっていきましょう！

VBAの実行環境を構築しておく
１行データを飛び飛びで２行に整理するVBAコード
領域を変えてテストしてみる
おわりに

VBAの実行環境を構築しておく

上記の作業をVBAを使って実行していきます。

VBAを使ったことがない、という方は以下の記事を参考に、まずは環境構築を進めましょう。

エクセルマクロ（VBA)の始め方！初心者向けに画像を使って詳細解説

１行データを飛び飛びで２行に整理するVBAコード

それでは本題である冒頭に紹介した処理を実行してくれるVBAコードをご紹介します。

Sub data_1d_2d()
    Dim base_data() As Variant
    Let base_data = Range("A1:J1").Value
    For i = 1 To UBound(base_data, 2)
        If (i - 1) Mod 2 = 0 Then
            Cells(4, i \ 2 + 1) = base_data(1, i)
        Else
            Cells(5, i \ 2) = base_data(1, i)
        End If
    Next
End Sub

基本的には３行目にあるデータが記入されてるセルの領域をしていするだけでOKです。