VBA查找特定列中的错误值

Sub Macro9() Dim LReturnValue As Boolean LReturnValue = IsError(Sheets("Lookup Addition").Range("A:A").Value) If LReturnValue = False Then i = MsgBox("there were no errors", vbOKOnly) Else i = MsgBox("there were errors", vbOKOnly) End If End Sub 

我有点困惑，什么IsError（Customfunction（））语法应该是。 我们如何告诉它检查范围内的每个细胞？

Answer 1

计数范围内的错误不需要循环（如果范围很大，可能会非常慢），甚至不需要任何VBA。

只需将此工作表函数添加到某个单元格中。 如果您不希望用户看到此单元格，则可以隐藏行/列/表单。

 =SUMPRODUCT(ISERROR(A:A)*(1=1)) 

如果你仍然想要一个用户的popup框，你的VBA现在将是：

 Sub CountErr() MsgBox "There are " & ActiveSheet.Range("B1").Value & " Errors" End Sub 

合理？

Answer 2

你可以简单地使用hte工作表函数来计算错误数量：

LReturnValue = Application.Worksheetfunction.CountIf(Range("A:A"),IsError) > 0

我认为这样做会告诉你在你select的范围内发现了多less错误。

修订

 Sub CheckRangeForErrors() Dim errCount As Long Dim rng As Range Dim cl As Range Dim col As String col = Application.InputBox("Enter the column letter you would like to check for errors", "Column Name?") If Not Len(col) = 1 Then MsgBox "You have entered an invalid selection", vbCritical Exit Sub End If Set rng = Sheets("Lookup Addition").Range(col & "1", Range(col & "1048576").End(xlUp)) errCount = Application.Evaluate("COUNTIF("& rng.Address &",IsError)") If errCount = 0 Then MsgBox "there were no errors", vbOKOnly Else MsgBox "there were " & errCount & " errors", vbOKOnly End If End Sub