excel - 第二次计算时出现错误 13，但第一次计算时没有

Question

先生，

我编写了以下代码来进行计算：

Sub Calculation()
    Dim i As Long, x As Long, es As Integer, lrow As Long

    lrow = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row

    Sheets("Data").Activate

    With Sheets("Data")
        .Range("L2:O" & lrow).ClearContents

        For x = 2 To lrow
        On Error GoTo ErrorHandler01
            .Range("M" & x) = .Range("E" & x) / .Range("E" & 2)
            .Range("L" & x) = .Range("E" & x) / .Range("H" & x)
        Check01:
        Next x

        ErrorHandler01: Range("L" & x) = ""
        GoTo Check01
    End With
End Sub

现在这是显示Error 13。

同样适用于第一行（#N/A，第 7 行），但不适用于第二行（即第 9 行）值。

在这方面需要帮助。

问候，特警

标签： excelvba