電子書籍の厳選無料作品が豊富!

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

「エクセルのマクロで複数のセルを連続して選」の質問画像

A 回答 (3件)

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
    • good
    • 0
この回答へのお礼

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

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

こんばんは!



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
    • good
    • 0

例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
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!