エクセル マクロ セルの選択

質問

セルF60から始まって４０おきにセルF1000まで選択するマクロって出来ないでしょうか？

○行おきに選択するマクロは検索したら出てきたのですが、○セルおきに選択するマクロがどうしても見つからないので、作れる方いたら教えてください。

回答No.1

kybo · ベストアンサー

以下でどうでしょうか？

Sub macro()
Dim I As Integer, R As Range
For I = 60 To 1000 Step 40
If R Is Nothing Then
Set R = Range("F" & I)
Else
Set R = Union(Range("F" & I), R)
End If
Next I
R.Select
End Sub

お礼

ありがとうございますm(_ _ )m

回答No.2

mt2008

まぁ、こんなかんじですかね。

Sub SampleMacro()
　　For i = 60 To 1000 Step 40
　　　　sString = sString & "F" & i & ","
　　Next i
　　sString = Left(sString, Len(sString) - 1)
　　Range(sString).Select
End Sub

お礼

ありがとうございますm(_ _ )m