エクセルのマクロで

質問

エクセルのマクロでこんな処理はできるでしょうか？

元データ表に
Ａ列からＣ列まである数値が５０００行にわたって入っています。

例
　　　　Ａ　Ｂ　Ｃ
１行目　１　４　６
２行目　４　７　８
３行目　５　６　４
４行目　７　８　２
・
・

今、１行目と２行目の間に新たな行を挿入し、
Ｃ１セルの値を新たに挿入した行のＡ列からＣ列に貼り付けたい。
同様に現時点での２行目と３行目の間に新たな行を挿入し
今度はＣ２セルの値をその行に貼り付けます。
上の例で言うとこうなります。これを最後の行まで繰り返します。

　　　　Ａ　Ｂ　Ｃ
１行目　１　４　６
２行目　６　６　６
３行目　４　７　８
４行目　８　８　８
５行目　５　６　４
６行目　４　４　４
７行目　７　８　２
８行目　２　２　２
・
・
元データは５０００行あるので、都合１万行になるということです。
このような処理はできるでしょうか？
お教えいただけたら幸いです。よろしくお願いします。

回答No.3

qualheart · ベストアンサー

Sub Macro1()
a = 2
For n = 1 To 5000
Rows(a).Insert Shift:=xlDown
Cells(a, 1).Value = Cells(a - 1, 3)
Cells(a, 2).Value = Cells(a - 1, 3)
Cells(a, 3).Value = Cells(a - 1, 3)
a = a + 2
Next
End Sub

でできるでしょう。

お礼

できました！！
ありがとうございました。

回答No.4

watabe007

E1:G10000に出力します。
Sub test()
　　Dim v As Variant
　　Dim myArr As Variant
　　Dim i As Long, j As Long

　　v = Range("A1:C5000").Value
　　ReDim myArr(1 To UBound(v, 1) * 2, 1 To 3)
　　For i = 1 To UBound(v, 1)
　　　　For j = 1 To 3
　　　　　　myArr(i * 2 - 1, j) = v(i, j)
　　　　　　myArr(i * 2, j) = v(i, 3)
　　　　Next
　　Next
　　Range("E1").Resize(UBound(myArr, 1), 3) = myArr
End Sub

A1から出力するのなら
>Range("E1").Resize(UBound(myArr, 1), 3) = myArr
Range("A1").Resize(UBound(myArr, 1), 3) = myArr
に直してください。

回答No.2

noname#111860

>このような処理はできるでしょうか？

Excelマクロ(VBA)ならば間違いなく可能なレベルです。

お礼

そうですか。可能ですか、安心しました。
ありがとうございます。
もしよかったらどのように記述するかお教えいただけませんでしょうか？

回答No.1

Kotori_D

ごめんなさい、回答じゃないんですが
たしかエクセルって1万行の作成できなかったんじゃなかったかなと思いまして
限界6500行ちょっとだったような？

お礼

回答ありがとうございます。
通常６５５３５行まで可能です。
ありがとうございました。

補足

65536でした。申し訳ありません。