こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

投稿日時 - 2004-09-14 13:07:41

QNo.1001335

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

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
1方はコメント化してありますが、2通りの書き方を上げます。
両辺にそれぞれ
Range-Cells
Cells-Range
Range-Range
Cells-Cells
のどれかの書き方が出来ます。

投稿日時 - 2004-09-14 15:10:22

ANo.1

こんにちは。maruru01です。

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


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

投稿日時 - 2004-09-14 13:28:20

あなたにオススメの質問