Excel 类型不匹配错误，但不显示错误行

我的代码昨天还在运行，但今天由于某种原因，下面显示了一个类型不匹配错误。代码根据条件隐藏某些行。请帮忙。我在VBA方面没有任何经验

`

Sub-HURows（）
BeginRow=5
EndRow=120
ChkCol=2
对于Rowcnt=BeginRow到EndRow
如果单元格（Rowcnt，ChkCol）.Value=1，则
单元格（Rowcnt，ChkCol）.EntireRow.Hidden=True
ElseIf单元格（Rowcnt，5）。然后将值设为“NA”
单元格（Rowcnt，ChkCol）.EntireRow.Hidden=True
其他的
单元格（Rowcnt，ChkCol）.EntireRow.Hidden=False
如果结束
下一行
端接头`

---

类型不匹配错误

正如Storax所说，具有#DIV/0或类似值（不是数字）的单元格不能计算为=1。也许这对你有帮助

Sub HURows()
BeginRow = 5
EndRow = 120
ChkCol = 2
For rowcnt = BeginRow To EndRow
    If IsNumeric(Cells(rowcnt, ChkCol).Value) Then
        If Cells(rowcnt, ChkCol).Value = 1 Then
            Cells(rowcnt, ChkCol).EntireRow.Hidden = True
        End If
    ElseIf Cells(rowcnt, 5).Value <> "NA" Then
        Cells(rowcnt, ChkCol).EntireRow.Hidden = True
        Else
            Cells(rowcnt, ChkCol).EntireRow.Hidden = False
    End If
Next rowcnt
End Sub

Sub-HURows（）
BeginRow=5
EndRow=120
ChkCol=2
对于rowcnt=BeginRow到EndRow
如果是数字（单元格（rowcnt，ChkCol）.Value），则
如果单元格（rowcnt，ChkCol）.Value=1，则
单元格（rowcnt，ChkCol）.EntireRow.Hidden=True
如果结束
ElseIf单元格（rowcnt，5）。然后将值设为“NA”
单元格（rowcnt，ChkCol）.EntireRow.Hidden=True
其他的
单元格（rowcnt，ChkCol）.EntireRow.Hidden=False
如果结束
下一行
端接头

行

单元格（Rowcnt，5）中可能出现类型不匹配。如果公式的结果是例如#ERROR，则值为“NA”

。当出现错误消息框时，请单击调试，然后错误行将以黄色突出显示。第5列中的某些单元格是否包含实际的35; N/A错误？如果是这样，请使用IsError，而不是与字符串进行比较

Sub HURows()
BeginRow = 5
EndRow = 120
ChkCol = 2
For rowcnt = BeginRow To EndRow
    If IsNumeric(Cells(rowcnt, ChkCol).Value) Then
        If Cells(rowcnt, ChkCol).Value = 1 Then
            Cells(rowcnt, ChkCol).EntireRow.Hidden = True
        End If
    ElseIf Cells(rowcnt, 5).Value <> "NA" Then
        Cells(rowcnt, ChkCol).EntireRow.Hidden = True
        Else
            Cells(rowcnt, ChkCol).EntireRow.Hidden = False
    End If
Next rowcnt
End Sub