显示＆＃34;编号存储为文本＆＃34;错误

Question

我使用高级过滤器，其中包括0和1。只有在数据表中，具有1和0的单元格具有错误消息＆＃34;数字存储为文本＆＃34;过滤器才能正常工作。显示。为此，我必须双击手动打开单元格，然后按Enter键。然后出现错误消息，过滤器工作。如果我不这样做，过滤器就不起作用了。

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

VBA是否可以自动执行此操作？

非常感谢你的帮助！

Answer 1

您会发现深埋在单元格的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