Question

我尝试使用错误424寻找问题，但我找不到符合我情况的任何问题。

我在第3行收到424错误：

For icount = 2 To no_items
    If hid.Cells(icount, 1).Value > 0 Then
        'If hid.Cells(icount, 1).Offset(-1).Value Is Empty Then
            'hid.Cells(icount, 1).Value = 1
        'Else
            hid.Cells(icount, 1).Value = 1 + hid.Cells(icount, 1).Value
        'End If
    End If
Next

我的声明如下：

Dim hid As Worksheet
Set hid = ThisWorkbook.Worksheets("Hidden")
hid.Visible = True

之前，我在第2行遇到了同样的错误：

If hid.Cells(icount, 1) is not empty Then

我不明白为什么会出现错误，所有内容都按照应该的方式定义。你能帮帮我吗？

Answer 1

用于非ISEmpty 的语法不正确，您需要更改以下行：

If hid.Cells(icount, 1) is not empty Then

要：

If Not IsEmpty(hid.Cells(icount, 1)) Then

VBA错误424与空

1 个答案: