<>的vba-excel含义（尖括号或大于和小于符号）

Question

我正在使用 VBA Excel 中的查找函数，所以当我遇到问题时，我从 Excel 中提供的帮助中提取了一些示例代码。我拿了他们的代码来说明一个基本的 查找函数并将其粘贴到宏中。在运行宏时，我得到一个“运行时错误'91'”并且调试器突出显示包含尖括号的代码行。这些是我无法理解的代码部分。

谁能告诉我这些括号代表什么？

Sub exampleFindReplace()

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

End Sub

Answer 1

<> 运算符表示c.Address 不等于 firstAddress。

在 C 风格的语言中，这相当于 c.Address != firstAddress。

---

旁注，我认为您收到错误 91（对象变量或未设置块变量。）因为代码行 Loop While Not c Is Nothing And c.Address <> firstAddress 将始终尝试执行第二个条件（c.Address <> firstAddress），即使第一个（ While Not C Is Nothing) 计算结果为假。因此对 c.Address 的调用将引发异常。

尝试编写这样的代码，因为它不会允许这种情况发生：

Sub exampleFindReplace()

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)
        If c Is Nothing Then Exit Do
    Loop While c.Address <> firstAddress
End If
End With

End Sub