偏移与列= -1在VBA

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