エクセルのマクロで変動する範囲にコピペ

質問

いつもお世話になっております。
やりたいことは、
Sheet1において計算結果A1の値を変数nでとって、
（nが1以下になることはありません）
A2のデータを
W2からWｎまで貼り付けたいのです。

そこで以下のマクロを書いてみました。

Range("A2").Select
Selection.Copy

Dim i As Integer
Dim n As Integer
n = Val(Worksheets("Sheet1").Range("A1").Value)

For i = 2 To n

Cells(i, 23).Select
Next
ActiveSheet.Paste

しかし、これでは、（ｎが10とすると）
　W10セルにしか貼り付けられません。
正しい記述方法をご教示ください。
よろしくお願いします。

回答No.2

hana-hana3 · ベストアンサー

>For i = 2 To n
>Cells(i, 23).Select
>Next
>ActiveSheet.Paste
上記のFOR文の処理内容は、指定されたセルを選択（セレクト）するだけで、コピー処理はされていません。
「ActiveSheet.Paste」で貼付くのは、Ｆｏｒ文を抜けた後、最後に選択されているｎ行目のセルだけになります。

For～Next の間に、行いたい処理を記述して下さい。
For i = 2 To n
Cells(i, 23).Paste
Next

お礼

ありがとうございました。
Nextの位置が違っていたのですね。
無事解決できました。

回答No.1

mshr1962

順番入れ替えるだけなら
Sub マクロ名()
Dim i As Integer
Dim n As Integer
n = Val(Worksheets("Sheet1").Range("A1").Value)
For i = 2 To n
Range("A2").Select
Selection.Copy
Cells(i, 23).Select
ActiveSheet.Paste
Next
End Sub

簡略化すると
Sub マクロ名()
n = Val(Worksheets("Sheet1").Range("A1").Value)
Range("W1", Range("W1").Offset(n, 0)) = Range("A2")
End Sub

お礼

ありがとうございました。
無事解決できました。

簡略化したものもいいですね☆