Однією з чудових речей Microsoft Excel є можливість автоматизувати корисні функції. Коли електронна таблиця для бізнесу містить сотні або навіть тисячі рядків, вам може бути важко маневрувати по її клітинках. Усуньте цю проблему, побудувавши власну функцію пошуку. Використовуючи кілька рядків коду, ви можете створити VBA Sub, який знаходить останній рядок у електронній таблиці та автоматично переходить до неї.
1
Запустіть Excel і відкрийте електронну таблицю, яка містить кілька стовпців.
2
Натисніть “Alt-F11”, щоб відкрити редактор “Visual Basic”, і натисніть “Вставити | Модуль ". VBA додає новий модуль у вікно проекту.
3
Вставте наступний код у вікно редагування, яке з’явиться праворуч від вікна проекту:
Sub SelectLastRow () Замкнути final finalRow як ціле число
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 знаходить останній рядок електронної таблиці, переходить до цього рядка та виділяє його.
