Пятница, Ноябрь 27, 2020

Метод End

Sub MoveRange1()
    Range(ActiveCell, ActiveCell.End(xlDown)).Select
    Selection.End(xlDown).Select
    Selection.End(xlToLeft).Select
    Selection.End(xlUp).Select
    Selection.End(xlToRight).Select
End Sub

Back to Top