Як знайти останній рядок або стовпець з даними в Excel?
На великому аркуші, якщо ви хочете швидко та легко визначити останній рядок або стовпець, що містить значення, ви можете просто перетягнути смугу прокрутки, щоб знайти її. Але буде боляче, якщо на вашому аркуші є тисячі рядків даних. У цій статті я розповім про корисний код VBA для вирішення цього завдання.
Знайдіть останній рядок або стовпець із даними за допомогою коду VBA
Знайдіть і виберіть останній рядок або стовпець з даними за допомогою Kutools для Excel
Знайдіть останній рядок або стовпець із даними за допомогою коду VBA
Більшість з нас може подумати про пошук останньої комірки натисканням Ctrl + End клавіші, щоб знайти останній рядок і стовпець, однак клавіша швидкого доступу не знайде точної комірки значення, якщо є кілька комірок, які мають форматування нижче діапазону даних. Тож, будь ласка, використовуйте такий код VBA:
1. Активуйте робочий аркуш, який ви хочете визначити з останнім рядком або стовпцем із даними.
2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.
3. Потім натисніть Insert > Модуліта вставте наступний код у Вікно модуля.
Код VBA: Знайдіть останній рядок із даними
Sub sblastRowOfASheet()
'Update 20140603
Dim xLastRow As Long
xLastRow = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Row
MsgBox "Last Used Row: " & xLastRow
Do While Application.CountA(ActiveSheet.Rows(xLastRow)) = 0 And xLastRow <> 1
xLastRow = xLastRow - 1
Loop
MsgBox "Last Row with Data: " & xLastRow
End Sub
4. А потім натисніть F5 клавішу для запуску цього коду, і з'явиться вікно запиту, щоб повідомити номер рядка використовуваного діапазону. Дивіться знімок екрана:
5. Продовжуйте натискати OK , цього разу номер останнього рядка зі значеннями відображався, як показано на наступному знімку екрана:
Примітка: Щоб знайти останній стовпець із даними, застосуйте цей код:
Код VBA: Знайдіть останній стовпець із даними
Sub sblastcolumnOfASheet()
'Update 20140603
Dim xLastcolumn As Long
xLastcolumn = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column
MsgBox "Last Used column: " & xLastcolumn
Do While Application.CountA(ActiveSheet.Columns(xLastcolumn)) = 0 And xLastcolumn <> 1
xLastcolumn = xLastcolumn - 1
Loop
MsgBox "Last column with Data: " & xLastcolumn
End Sub
Знайдіть і виберіть останній рядок або стовпець з даними за допомогою Kutools для Excel
Якщо ви хочете безпосередньо знайти та вибрати останній рядок або стовпець із даними в Excel, файл Виберіть Останній рядок і Виберіть Остання колонка комунальні послуги Kutools Excel може вам допомогти. Будь ласка, виконайте наступне.
Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.
1. Якщо ви хочете знайти та вибрати останній рядок із даними, натисніть Кутулс > Select > Виберіть Остання комірка > Останній ряд. Дивіться знімок екрана:
примітки: Щоб знайти та вибрати останній стовпець із даними, натисніть Кутулс > Select > Виберіть Остання комірка > Остання колонка.
Тоді останній рядок або стовпець із даними на поточному аркуші знайдено та відразу вибрано.
Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.
Знайдіть і виберіть останній рядок або стовпець з даними за допомогою Kutools для Excel
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
