Exit for を使いました。今、たぶん出来たようです(汗)なんか、For v = 1 To 4 For 日2 = 日 To 日 + 7 Step 1 ・ ・ exit for nextnextとしたら、日2のfor文内で条件一致が見つからないと、永遠に続いています。1週間という条件の書き方間違ってますか?