EXCEL VBA のFor～Next文で質問です。

お世話になります。ＶＢＡ初心者です。
環境はＷＩＮ２０００，ＥＸＣＥＬ２０００です。

下記のようなマクロを組んだらＮｅｘｔに対するＦｏｒがありませんと、エラーが出てしまいました。
申し訳ありませんが、手直しお願いします。

やりたいことは、Ｄ９７へコピーが終わったら、次はＭ７からコピーをし、Ｍ９７へのコピーが終わったらＶ７からコピーを始めたいのです。

With sheetGR
For ii = 7 To 97 Step 10（行の指定）
For iii = 4 To 31 Step 9（列の指定）

If .Cells(ii, iii) = "" Then
.Range(.Cells(ii, iii), .Cells(ii + 4, iii + 2)).Value _
= Sheets("Result").Range("G20：I24").Value
End If

Exit For

If Cells(97, iii) <> "" Then Next iii
End If

Next ii
End With

No.3 ベストアンサー 回答者： mshr1962 回答日時： 2004/02/04 15:21

For To Step

Exit For
Next
で一組になります。
If文内でNextの設定はできません。
この場合は下記の様になるのではないですか？
With sheetGR
For ii = 7 To 97 Step 10（行の指定）
For iii = 4 To 31 Step 9（列の指定）

If .Cells(ii, iii) = "" Then
.Range(.Cells(ii, iii), .Cells(ii + 4, iii + 2)).Value _
= Sheets("Result").Range("G20：I24").Value
End If

If Cells(97, iii) = "" Then Exit For
Next iii
Next ii
End With

No.4 回答者： fuji2002 回答日時： 2004/02/04 15:27

コードを一通り拝見したのですが、どうも処理の意図が読めません。

特に不可解なのが、１つめのIf文の後にある「Exit For」です。ここにExit Forを置いておくと、If文の結果に関係なく、「For iii = 4 To 31 Step 9」のループはiii=4で１回実行されただけで終わってしまいます（つまりFor文にしている意味がない）

また、ご質問の「Ｎｅｘｔに対するＦｏｒがありません」というエラーは、２つ目のIf文の中に「Next」を容れていることが原因です。Forは必ずNextと対になっている必要がありますので、条件式次第では実行されないIf文の中にNextを置くことはできません。条件によってはForループから抜け出したいという場合には、先ほどの「Exit For」を使います。

手直しをご要望でしたら、どういった処理を行いたいのか、もう少し詳しく書いていただければ対応できると思います。

No.2 回答者： maruru01 回答日時： 2004/02/04 15:11

こんにちは。

maruru01です。

>Ｎｅｘｔに対するＦｏｒがありませんと、エラーが出てしまいました。
まさに、エラーメッセージの通り、変数iiiのループのNextがないということです。

Next iii

というコードを、

Next ii

の手前に追加しましょう。

この回答へのお礼

ありがとうございます。
やってみましたが、どうしてもエラーが出ました。
「If Cells(97, iii) <> "" Then Next iii」という部分が間違っているようです。
ありがとうございました。

お礼日時：2004/02/04 17:49

No.1 回答者： wolv 回答日時： 2004/02/04 15:11

よく検証していないのではずしていたらごめんなさい。

単に「空欄だったらコピーする」を繰り返すのなら
単純に繰り返すだけでいいはずです。

With sheetGR
　For ii = 7 To 97 Step 10（行の指定）
　　For iii = 4 To 31 Step 9（列の指定）
　　　If .Cells(ii, iii) = "" Then
　　　　.Range(.Cells(ii, iii), .Cells(ii + 4, iii + 2)).Value _
　　　　= Sheets("Result").Range("G20：I24").Value
　　　End If
　　Next iii
　Next ii
End With

こんな感じ。
（見やすくするために全角空白を使って字下げしているので、コピー＆ペーストしただけではエラーが出るかもしれません。）

この回答へのお礼

ありがとうございます。
「Ｄ９７にコピーし終わったら次の列へ行きたい」という形にしたいので、「If Cells(97, iii) <> "" Then Next iii」という部分は外せないんです。
ごめんなさい、ありがとうございました。

お礼日時：2004/02/04 17:47