VBA:[Tips]ループを強制的に抜ける - UncodeProduction

なにがどう

ループ文から強制的に抜けたい。

どう

Exit For

で抜けることができる
使い方は以下。シートの有無を確認して存在した場合は削除する。

   For i = 1 To i_max
       If Workbooks("ブック名").Worksheets(i).name = "シート名" Then
           Application.DisplayAlerts = False
           Workbooks("ブック名").Worksheets("シート名").Delete
           Application.DisplayAlerts = True
           Exit For 'if文がTrueの時に1度処理をしたらループから抜ける
       Else
      End If
   Next i