多重ループからの脱出
たまに、多重ループから抜けたいとき、「どうだっけ？」と迷うことがある。 例えば、こんなとき。 Sub Test() Dim i As Variant Dim j As Variant For Each i In Array(1, 2, 3) For Each j In Array("一", "二", "三") If j = "三" Then Exit For Else Debug.Print i & j End If Next Next End Sub j が「三」ならループ…
