Excel VBA 質問スレ Part60

[810 デフォルトの名無しさん 2019/04/20(土) 12:43:34.58 ID:50ElbllH]

>>809
お前ね何度書けば・・・
Sub foo()
On Error GoTo err
For i = 1 To 5
bar = WorksheetFunction.VLookup(1, Range("a1"), 1, 0)
'エラーじゃない時の処理
goto 共通
err:
ERR時の処理
共通:
'共通の処理。無ければ何も書かない
Next
End Sub