☰

Excel 中的 Visual Basic 调试

tag-icon • tag-icon microsoft-excel vba debug
Excel 中的 Visual Basic 调试

我有人为我创建了一本工作簿。

我犯了一个错误，从主页中删除了整整一行，现在我#REF!在 UC-K 表上收到了调试错误。

错误提示为Run-Time Error '13': Type mismatch。

当我调试时，以下行以黄色突出显示：

If .Cells(R, NwsLastCol).Value = 0 Then

该部分的完整代码如下：

Public Sub HideRows(ByRef Ws As Worksheet)

    Dim R As Long

    ScreenAndEvents False
    With Ws
        .Rows.Hidden = False
        For R = NwsFirstRow To LastRow(NwsFirstCol, Ws)
            If .Cells(R, NwsLastCol).Value = 0 Then .Rows(R).Hidden = True
        Next R
    End With
    ScreenAndEvents True
End Sub

请帮忙！！:) 如果需要，我愿意分享工作簿，但我也想知道如何自己修复它。

答案1

避免类型不匹配

代替：

If .Cells(R, NwsLastCol).Value = 0

和：

If .Cells(R, NwsLastCol).Text = "0"

相关内容