エクセルのマクロについて教えてください。

下記のマクロは指定シートの指定セル値に指定文字をコピーできます。
指定シート名「Table 2」
指定セル値「X$9」に指定文字「結　果」
このコードの内、指定セル値「X$9」を6行づつ
例えば「X$9」「X$15」「X$21」～「X$123」までの指定セルに変更出来る方法を教えてください。
現状のマクロ
Sub 文字をコピー()
Sheets("Table 2").Select

Range("X$9").Select
ActiveCell.FormulaR1C1 = "結　果"


End Sub
以上となります。
よろしくお願いいたします。

No.2 ベストアンサー 回答者： tatsumaru77 回答日時： 2024/09/09 10:05

以下のようにしてください。

Sub 文字をコピー()
Dim i As Long
Sheets("Table 2").Select
For i = 9 To 123 Step 6
Cells(i, "X").FormulaR1C1 = "結　果"
Next

End Sub

この回答へのお礼

回答ありがとうございました。
上手くできました。

お礼日時：2024/09/09 10:12

No.1 回答者： zongai 回答日時： 2024/09/09 10:01

小文字ですみません。

こんな感じで置き換えてみてください。

dim i
for i =9 to 123 step 6
cells(i,”x”) = "結　果"
next

この回答へのお礼

回答ありがとうございました。
早速試してみます。

お礼日時：2024/09/09 10:09