смещение с колонкой = -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