Excel VBAのループ処理で特定の回のみスキップする方法

質問

• Excel VBAのループ処理で、特定の回のみ処理をスキップする方法について教えてください。
• For Eachや通常のFor Nextなどのループ処理で、スタックオーバーフローを防ぎつつ特定の回のみループをスキップする方法を教えてください。
• 質問者はExcel VBAのループ処理で、その回のループ処理が不必要な場合に次のループへ進める方法を知りたいとしています。Go To以外の方法で安全にNextに飛ばす方法を教えてください。

回答No.5

cj_mover

あー、例を挙げるなら、こんな感じの方が親切でしたか？

' ' ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Option Explicit

　　Private basedata(0 To 10) As String ' baseData(0) は testNo 用に予め確保
　　Private testno As String
　　Private weight(1 To 16) As Double
　　Private weightA(1 To 6) As Double
　　Private weightB(7 To 12) As Double
　　Private printRow As Long
　　Private testrow As Long
　　Private i As Long
　　Private flgEsc As Boolean

Sub Main8074402() ' 関連ＱＡ　8072449
　　Sheets("sh3").Select ' ◆シート名◆
　　Range("A3:AA17").ClearContents
　　For printRow = 3 To 17
　　　　testno = Trim(Cells(printRow + 20, "B"))
　　　　If testno <> "" Then
　　　　　　flgEsc = False
　　　　　　SubBase
　　　　　　If Not flgEsc Then
　　　　　　　　SubWeight
　　　　　　　　If Not flgEsc Then
　　　　　　　　　　SubPrint
　　　　　　　　End If
　　　　　　End If
　　　　　　Erase basedata, weight, weightA, weightB
　　　　End If
　　Next printRow
End Sub

Private Sub SubBase()
　　With Sheets("sh1") ' ◆シート名◆
　　　　For testrow = .Cells(65536, 1).End(xlUp).Row To 6 Step -1
　　　　　　If CStr(.Cells(testrow, 1)) = testno Then Exit For
　　　　Next testrow
　　　　If testrow < 6 Then
　　　　　　flgEsc = True
　　　　　　Exit Sub
　　　　End If
　　　　For i = 1 To 10
　　　　　　basedata(i) = .Cells(testrow, i + 1)
　　　　Next i
　　End With
End Sub

Private Sub SubWeight()
　　With Sheets("sh2") ' ◆シート名◆
　　　　For testrow = .Cells(65536, 1).End(xlUp).Row To 6 Step -1
　　　　　　If CStr(.Cells(testrow, 1)) = testno Then Exit For
　　　　Next testrow
　　　　If testrow < 6 Then
　　　　　　flgEsc = True
　　　　　　Exit Sub
　　　　End If
　　　　For i = 1 To 6
　　　　　　weight(i) = .Cells(testrow, i + 1)
　　　　　　weightA(i) = weight(i)
　　　　Next i
　　　　For i = 7 To 12
　　　　　　weight(i) = .Cells(testrow, i + 2)
　　　　　　weightB(i) = weight(i)
　　　　Next i
　　End With
End Sub

Private Sub SubPrint()
　　basedata(0) = testno
　　Cells(printRow, 1).Resize(, 11).Value = basedata
　　weight(13) = Application.Max(weightA)
　　weight(14) = Application.Min(weightA)
　　weight(15) = Application.Max(weightB)
　　weight(16) = Application.Min(weightB)
　　Cells(printRow, 12).Resize(, 16).Value = weight
End Sub

' ' ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

んで、Exit Sub すれば With節の途中であってもオブジェクトアクセスは解放されますから。
（勿論インスタンスは別問題ですが、Sheetの場合は関係ないですね。）
モジュールで宣言した（Staticな）オベジェクト型変数を使う場合とかは
面倒みなくちゃいけませんけど、通常はメインProc.で解放するってことで。

お礼

有り難うございます。
やはりサブルーティンコールするのがスマートなのですね。

所で
CALL 書かれていないですけれど
別に不要なのですか？