Осложнено реально - вам было бы нужно рабочий лист активируете случай и изменение одно выбора - что-то как Кодий ниже.
FYI, вниз БУДЕТ стандартом.
1: 2: 3: 4: 5: 6: 7:
Приватное Sub Worksheet_SelectionChange (цель ByVal как ряд) Если не пересечь, то (цель, rnage («a: »)) Ничего после этого Application.MoveAfterReturnDirection = xlDown Еще Application.MoveAfterReturnDirection = xlRight Закончитесь если Закончите подводную лодку
