[已解决]关于#N/A值的表示及ISNA函数的使用，求助！

laizis

要将列中  零值  所在的行选中，因为列中有些值为#N/A，会出现类型不匹配的报错，请帮忙看如何修改，参见附件

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-8-2 16:16

Sub 隐藏()
Dim a As Integer
Dim i As Integer
Dim rselect As Range
a = Range("C65536").End(xlUp).Row
With ActiveSheet
For i = 2 To a
If Application.IsNA(.Range("C" & i)) <> True Then
If .Range("C" & i) = 0 Then
If rselect Is Nothing Then
Set rselect = .Rows(i)
Else
Set rselect = Union(rselect, .Rows(i))
End If
Else
End If
End If
Next i
rselect.Select
End With
End Sub

跳转到最佳答案楼层

sliang28

03

1. =IF(ISERROR(A2-B2),"",A2-B2)

复制代码

07

1. =IFERROR(A2-B2,"")

复制代码

我心飞翔410

hehe

laizis

愚笨哈，你们说的这个方向是知道，但就写不出运行正确的，不是这错就那错，是否能把运行正确的代码直接写给我，谢谢大神。

ligh1298

Sub 隐藏()
Dim a As Integer
Dim i As Integer
Dim rselect As Range
a = Range("C65536").End(xlUp).Row
With ActiveSheet
For i = 2 To a
If Application.IsNA(.Range("C" & i)) <> True Then
If .Range("C" & i) = 0 Then
If rselect Is Nothing Then
Set rselect = .Rows(i)
Else
Set rselect = Union(rselect, .Rows(i))
End If
Else
End If
End If
Next i
rselect.Select
End With
End Sub