关于单元格里寻找特定字符的问题

ei0079

有一个对账工作薄，每个对账表的格式近似一样，有些表是不一样的表格格式。

然后我想对账表里寻特定字样“应付货款”。然后我就写了如下：

Sub duima()
    On Error Resume Next
    Dim Rng, RngCur, k
    For k = 1 To Sheets.Count
        For Each Rng In Sheets(k).Range("a1:z2000")
            If Rng = "应付货款" Then
                MsgBox Sheets(k).Name & Rng.Address()
            End If
        Next
    Next
a:  MsgBox "此表无应付货款字样"

End Sub

Sub a()
    MsgBox Sheets.Count
End Sub


然后在工作表“201909-202008对账”出现异常
工作表“201909-202008对账”的K,L,M列有公式，如图的注释。
程序运行到这个工作上，就出现不需要的内容，为什么这个工作表里的公式会对VBA程序产生错觉。
我能想到的是On Error Resume Next，是对VLOOKUP的专配，有可能是这个问题，但学识尚浅。
有什么办法解决下吗？谢谢各位大佬。

taller

psxk3535

关键是单元格公式计算出了错误值，显示了特定错误字符串，导致程序不能识别或类型不能匹配，公式用IFERROR忽略掉错误显示，201909-202008对账 中k列 =IFERROR(VLOOKUP($D2,$N:$O,1,0),"")，L列 =IFERROR(VLOOKUP($D2,$N:$O,2,0),"")，M列 =LEFT(IFERROR(XLOOKUP($D2,$Q$2:$Q$54,$S$2:$S$54),""),10)。这样试试看。不一定正确哈，

MOY838840554

为啥不用Range.Find方法查找