在Excel VBA中使用偏移时出错

Question

我在VBA中使用偏移功能。但是，例如，当我在第一行时，offset(-5,0)会返回错误消息。当然，当我在第一行时，我无法抵消-5行。

我该如何检查？

我尝试使用if rangeEx = range("A1")，但它不起作用。

Answer 1

此示例使用选择

Sub RangeCheck()
If ActiveCell.Row < 6 Then
    MsgBox ".OFFSET(-5,0) will fail"
End If
End Sub

Answer 2

您可以检查单元格的.Row属性，看它是否小于或等于5.

Sub Test()

    Dim RangeEx As Range
    Set RangeEx = ActiveCell

    If RangeEx.Row <= 5 Then
        MsgBox "Invalid!"
    Else
        MsgBox "Offset at " & RangeEx.Offset(-5, 0).Address
    End If

End Sub

第1-5行的结果：

第6行的结果++：

如果有帮助，请告诉我们。