Как да използвам VBA, за да отида до последния ред в лист на Excel

Едно от чудесните неща в Microsoft Excel е възможността за автоматизиране на полезни функции. Когато бизнес таблица съдържа стотици или дори хиляди редове, може да ви е трудно да маневрирате през нейните клетки. Премахнете този проблем, като изградите собствена функция за търсене. Използвайки няколко реда код, можете да създадете VBA Sub, който намира последния ред в електронна таблица и автоматично отива към нея.

1

Стартирайте Excel и отворете електронна таблица, която съдържа множество колони.

2

Натиснете “Alt-F11”, за да отворите редактора “Visual Basic” и щракнете върху “Insert | Модул. " VBA добавя нов модул към прозореца на проекта.

3

Поставете следния код в прозореца за редактиране, който се появява вдясно от прозореца на проекта:

Sub SelectLastRow () Dim finalRow As Integer

finalRow = ActiveSheet.UsedRange.Rows.Count

Ако finalRow = 0 Тогава finalRow = 1 End If

Редове (finalRow). Изберете End Sub

Тази подгрупа определя последния ред на електронната таблица, като изследва свойството Count на колекцията от редове. След това Sub съхранява тази стойност в променливата finalRow. Окончателното изявление на Sub, предава стойността на finalRow на метода VBA Select.

4

Натиснете „F5“, за да стартирате Sub. Методът Select намира последния ред на електронната таблица, преминава към този ред и го подчертава.

скорошни публикации