マクロ

質問

宜しくお願いいたします
セルを選択するマクロですが、何処か間違っているので
実行すると、K25のみ選択されてしまいます
一行おきに選択したいのですが

以下のマクロです
Sub セルの選択2()
Dim ColPos As Integer
Dim RowPos As Integer
For ColPos = 1 To 11 Step 2
For RowPos = 5 To 25 Step 2
Cells(RowPos, ColPos).Select
Next
Next
End Sub

回答No.1

noname#101556 · ベストアンサー

Unionメソッドを使うとできます。
----------------------
Sub セルの選択3()
Dim ColPos As Integer
Dim RowPos As Integer
Dim r1 As Range
Set r1 = Cells(5, 1)
For ColPos = 1 To 11 Step 2
For RowPos = 5 To 25 Step 2
Set r1 = Union(r1, Cells(RowPos, ColPos))
Next
Next
r1.Select
End Sub
----------------------
r1は初期化しておく必要があるようです。
この例ではループの初回が無意味ですが、適宜修正願います。

お礼

有難うございました
お蔭様で、選択できました。