显示“数字存储为文本”错误

我正在使用带有 0 和 1 的高级过滤器等。仅当数据表中包含 1 和 0 的单元格显示错误消息“数字存储为文本”时，过滤器才能正常工作。为此，我必须双击并按 Enter 键手动打开单元格。然后出现错误消息并且过滤器开始工作。如果我不这样做，过滤器就不起作用。

或者，我可以单击包含 1 或 0 的单元格，然后按 F2 键显示错误消息。

有没有办法用VBA自动做到这一点？

非常感谢您的帮助！

您会发现它深埋在单元格的 Range 属性中，特别是在 Errors 集合中。只需找到存在错误的单元格，然后设置Ignore财产给True:

Public Sub IgnoreNumsAsText()
    Dim current As Range
    For Each current In ActiveSheet.UsedRange.Cells
        With current
            If .Errors.Item(xlNumberAsText).Value = True Then
                .Errors.Item(xlNumberAsText).Ignore = True
            End If
        End With
    Next current
End Sub