[ホーム] ＞ [VBScript FAQ 一覧] ＞ [Excel のセルに交互に文字を挿入するサンプルコード]

Excel のセルに交互に文字を挿入するサンプルコード | VBScript / VBA FAQ

Excel　で2列のセルの内容を交互に1行のセルに挿入するサンプルコードです。
以下の例ではB列、C列の２列をA列に挿入します。その際に１行とごに挿入しています。

Sub kougoire()

    For i = 1 To 500 Step 1

        Cells(i * 2 - 1, 1).Value = Cells(i, 2).Value

        Cells(i * 2, 1).Value = Cells(i, 3).Value

    Next

End Sub

サンプル========================================

================================================

[ホーム] ＞ [VBScript FAQ 一覧]