VBA确定地址之前的单元格？

Question

我有这个代码:

localise = Cells.Find("Hello" , lookIn:=xlValues).Address 
MsgBox localise

msgbox 给我 10 美元，但我想要这个之前的单元格，我如何在 VBA 上编程？

Answer 1

使用Offset会给你你想要的。在这种情况下:

MsgBox localise.Offset(-1, 0).Address

这将为您提供相同的列，但在找到的项目之前有一行。

您还需要使用 Set在行 Set localise = ...为了有必要的对象引用而不生成 Object Required错误。还建议不要假设您会找到您正在搜索的项目并处理这种情况。简而言之:

Set localise = Cells.Find("Hello", LookIn:=xlValues)
If Not localise Is Nothing Then
    MsgBox localise.Offset(-1, 0).Address
Else
    MsgBox "Didn't find it"
End If