遇到错误,跳过继续执行下一句

n error resume next '遇到错误,跳过继续执行下一句

 Sub t3()
  On Error Resume Next
  Dim x As Integer
  For x = 1 To 10
    Cells(x, 3) = Cells(x, 2) * Cells(x, 1)
  Next x
 End Sub