Едно от чудесните неща в 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 намира последния ред на електронната таблица, преминава към този ред и го подчертава.