VBA 判断单元格是否是错误值和0

2025-02-28 03:56:56

推荐回答（1个）

回答1：

Sub SelErr()
Dim Sel As Range, Rng As Range, ErrStr As String, ZoerStr As String
Set Rng = Range("A1:B85")
For Each Sel In Rng
If IsError(Sel) Then
ErrStr = ErrStr & Sel.Address(0, 0) & " "
ElseIf Sel <> "" And Sel = 0 Then
ZoerStr = ZoerStr & Sel.Address(0, 0) & " "
End If
Next Sel
MsgBox "A1:B85" & vbCr & "单元范围中存在错误值的单元格是:" & vbTab & ErrStr & vbCr & "存在 0值的单单元格是:" & vbTab & ZoerStr
End Sub