範囲指定したセルを１つずつ飛ばす方法

エクセルで、例えば

Range("A5:A30")と、範囲指定した場合、この間で
１つ置きにセルを把握させたい場合（A5→A7→A9。。。）
どのような記述になるでしょうか？

マクロを実行すると
Range("A1:A30,A3,A5,A7,A9。。。").Selectとなって
しまい、結局は１つずつ指定するしかないさそうなのです
が、広範囲になると、これでは追いつきませんし。。。
for文のstepなどの記述の仕方ってできないんでしょうか？

よろしくお願いします。

No.3 ベストアンサー 回答者： happypoint 回答日時： 2003/06/26 11:17

#1,2です

どうしても文字列で指定したいのなら、
Const myRange As String = "A1,A3,A5,A7,A9"
Range(myRange).Select
と表現すると幾分すっきりします。

ただし、
Rangeで指定できるセル（文字数？）には限りがあったと思います。
指定する件数が少ない場合は問題ないですが、
件数が多くなるようなら
可能な限りループで処理されることをお勧めします。


補足ですが、行や列、連続した範囲の指定は次のようにやります。

Rows(1).Select '行のセレクト
Columns(1).Select '列のセレクト
Range(Cells(1, 1), Cells(3, 3)).Select 'A1:C3のセレクト

この回答へのお礼

なるほど、勉強になりました。
今回はfor文でまわす方法で行うことにしました。

ご丁寧にありがとうございます。

お礼日時：2003/06/26 12:34

No.2 回答者： happypoint 回答日時： 2003/06/26 10:35

#1です。

例が悪かったですね。（Stepを使ってない）
こんなんとか。

Sub test()
Dim i As Long

For i = 1 To 100 Step 2
Cells(i, 1).Value = i
Next i

End Sub

この回答へのお礼

さっそくのご回答、ありがとうございます。
そうですね、for文でまわす方法は考えましたが
せっかくのエクセル上での処理なので、Rangeで
範囲指定した内容で１つずつ飛ばす方法はないか
と思いまして、質問させて頂いた次第です。
やはりfor文でまわす方法が良いようですね。

ちなみに範囲は固定です（行）。

ありがとうございました。

お礼日時：2003/06/26 11:02

No.1 回答者： happypoint 回答日時： 2003/06/26 10:32

こんにちは。

範囲選択しないと処理できないんでしょうか。
実際の処理を見て見なければなんともいえませんが。

質問にもあるとおり、For～Nextでループをまわしながら、
ループの中で、1こずつセルを選択して、
処理すれば実現できると思いますが。

ちなみにループ内でセルを指定するには
Range("A1").Selectよりも
Cells(1,1).Selectのほうが便利です。


ループ処理の例としては、
For i = 1 to 100
　Cells(i,1).Value = i
Next
みたいな。