Excel コピー＆貼付の繰り返し

質問

VBA初心者です。仕事で使いたいのですが、やり方がわからないので教えてください！

A1セル 5650590

A16セル 5150950

15行おきに数字が３０００行まで入っています。A1セルをコピーし、A2～A15に貼付。
A16セルをコピーしてA17～A31に貼付。

↑この作業を繰り返したいのですが、VBAの書き方がわかりません。
よろしくお願いいたします。

回答No.1

tom04 · ベストアンサー

こんばんは！
＞15行おきに数字が・・・
とありますので、
＞A16セルをコピーしてA17～A31に貼付。
の部分は
＞A16セルをA17～A30に貼り付け！としています。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。

Sub Sample1()
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 15
Cells(i, 1).Copy Range(Cells(i + 1, 1), Cells(i + 14, 1))
Next i
End Sub

こんな感じではどうでしょうか？m(_ _)m

お礼

早速のご回答ありがとうございました。本日、会社で試したところ解決できました！

＞A16セルをA17～A30に貼り付け！としています。

表記が間違っていましたが対応いただき感謝しています

回答No.2

mu2011

一例です。

Sub Sample()
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 15
Cells(i + 1, 1).Resize(14) = Cells(i, 1)
Next
End Sub

お礼

ご回答いただきありがとうございます。

もっともっと勉強しなければと思いました。