エクセルVBAで質問です。

質問

エクセルVBAで質問です。

A列　　　B列
AAAA　　1111
BBBB　　2222
CCCC　　3333
とあります。

上記を

AAAA
（空白）
（空白）
1111
（空白）
BBBB
（空白）
（空白）
2222
（空白）
CCCC
（空白）
（空白）
3333
（空白）

A列にB列を挿入し、2・3・5行目に空白のセルを入れていきたいのです。
9000行ぐらいあります。
他の列に　A列、B列のものを取得していく形でも構いません。
とにかく、縦1列に並べたいです。

どなたか、ご教授お願い致します。

回答No.1

jcctaira · ベストアンサー

以下のマクロでできるかと思います。

Sub 一行まとめ()
　Dim I As Long
　Range("C:C").ClearContents
　For I = 1 To Cells(Rows.Count, "A").End(xlUp).Row
　　　Cells((I - 1) * 5 + 1, "C") = Cells(I, "A")
　　　Cells((I - 1) * 5 + 4, "C") = Cells(I, "B")
　Next I
　' Range("A:B").Delete
End Sub

注）最後の命令（Range("A:B").Delete）はテストが正常に動作を確認してから
　　コメントを外してください。

お礼

すばらしい！
出来ましたぁ。
ありがとうございます。