[已解决]调试finnext函数报错",对象变量或With块变量未设置" 如何解决?

奔向未来

按照微信平台教程调试findnext函数,Loop While Not c Is Nothing And c.Address <> firstAddress报错"对象变量或With块变量未设置",该如何解决?谢谢
本示例在单元格区域 A1:A500 中查找值为 2 的单元格，并将这些单元格的值变为 5。
With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

最佳答案

月排行榜 / 总排行榜

26759761@qq.com

2015-3-8 15:33

倒数第三行改成    Loop While Not c Is Nothing

跳转到最佳答案楼层

26759761@qq.com

倒数第三行改成    Loop While Not c Is Nothing