VBA

 

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