Sub error1()
Dim i As Long
On Error Resume Next ’ここの使い方学習
For i = 1 To 10 Step 2
Cells(i, 2).Value = Cells(i, 1).Value * 2
MsgBox "失敗" ’エラーになる行のあとにコードがないためエラーのままだったみたい
Next i
End Sub
コメントをお書きください