Excel VBAについて

質問

以下のコードをFor Nextでまわすには
どうしたらよいでしょうか？

Sub sample()
Range("A2").Select
ActiveCell.FormulaR1C1 = "=テスト!R[1]C"
Range("A3").Select
ActiveCell.FormulaR1C1 = "=テスト!R[3]C"
Range("A4").Select
ActiveCell.FormulaR1C1 = "=テスト!R[5]C"
Range("A5").Select
ActiveCell.FormulaR1C1 = "=テスト!R[7]C"
Range("A6").Select
ActiveCell.FormulaR1C1 = "=テスト!R[9]C"
Range("A7").Select
ActiveCell.FormulaR1C1 = "=テスト!R[11]C"
End Sub

回答No.2

imogasi

Sub test01()
For i = 2 To 7
'Range("A" & i) = Worksheets("テスト").Cells((i - 2) * 2 + 1, 1)
Range("A" & i) = Worksheets("テスト").Range("A" & (i - 2) * 2 + 1)
Next i
End Sub
１方はコメント化してありますが、２通りの書き方を上げます。
両辺にそれぞれ
Range-Cells
Cells-Range
Range-Range
Cells-Cells
のどれかの書き方が出来ます。

回答No.1

maruru01

こんにちは。maruru01です。

いちいちSelectする必要はないのでは？

For i = 2 To 7
　　Cells(i, 1).FormulaR1C1 = "=テスト!R[" & (2 * i - 3) & "]C"
Next i