偏移與列= -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