Як знайти останній рядок або стовпець з даними в 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 може вам допомогти. Будь ласка, виконайте наступне.

1. Якщо ви хочете знайти та вибрати останній рядок із даними, натисніть Кутулс > Select > Виберіть Остання комірка > Останній ряд. Дивіться знімок екрана:

примітки: Щоб знайти та вибрати останній стовпець із даними, натисніть Кутулс > Select > Виберіть Остання комірка > Остання колонка. 

Тоді останній рядок або стовпець із даними на поточному аркуші знайдено та відразу вибрано.

Знайдіть і виберіть останній рядок або стовпець з даними за допомогою Kutools для Excel