VBA中列= -1的偏移量

Question

我在选择列= -1时试图找到问题的解决方案 首先，我选择单元格A1，然后我应用此代码。

 Sub exc()
ActiveCell.Offset(-1, 0).Select
If .Offset(-1, 0).Row < 1 Then
ActiveCell.Offset(1, 0).Select
End If
End Sub

但问题没有解决。

感谢您的帮助。

Answer 1

您需要在进行偏移之前进行测试：

Sub exc()
IF Activecell.Row > 1 then
     ActiveCell.Offset(-1, 0).Select
Else
    ActiveCell.Offset(1, 0).Select
End If
End Sub