エクセルのマクロで複数のセルを連続して選択

　マクロ初心者です。添付画像の黄色いセルのように表の一部のセルを選択したいと思っています。画像には表れていないですが、選択する表が下に均等の間隔で１００個程度あります。Range("G11:G12").Selectで一番上のセルを選択して下に１１行いったところで選択し、その動作を１００回くりかえすようなマクロを組みたいです。
　どなたかご教授いただければ幸いです。

No.3 ベストアンサー 回答者： tom04 回答日時： 2015/01/21 21:51

No.2です。

たびたびごめんなさい。

前回のコードは1行ずつずれていました。

＞Set myRng = Union(myRng, Cells(cnt * 10 + 1, "G").Resize(2))
の1行を
＞Set myRng = Union(myRng, Cells(cnt * 11, "G").Resize(2))
に変更してください。

どうも失礼しました。m(_ _)m

この回答へのお礼

回答ありがとうございました。非常にたすかりました！

お礼日時：2015/01/21 22:36

No.2 回答者： tom04 回答日時： 2015/01/21 21:43

こんばんは！

G11:G12・G22:G23・・・G1001:G1002　と飛び飛びのセルは選択状態にしておきたい！という解釈で・・・

Sub Sample1()
Dim cnt As Long, myRng As Range
Set myRng = Range("G11").Resize(2)
Do Until cnt = 100
cnt = cnt + 1
Set myRng = Union(myRng, Cells(cnt * 10 + 1, "G").Resize(2))
Loop
myRng.Select
End Sub

こんな感じではどうでしょうか？m(_ _)m

No.1 回答者： mshr1962 回答日時： 2015/01/20 23:47

例1

For i = 11 to 1100 step 11
Range("G" & i).Resize(2,1).Select
Next i

例2

For i = 1 to 100
Range("G" & i * 11 & ":G" & i * 11 +1).Select
Next i

この回答へのお礼

早々の回答ありがとうございました。

お礼日時：2015/01/21 22:26