Note: The other languages of the website are Google-translated. Back to English

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

doc-знайти-останній рядок1

5. Продовжуйте натискати OK , цього разу номер останнього рядка зі значеннями відображався, як показано на наступному знімку екрана:

doc-знайти-останній рядок1

Примітка: Щоб знайти останній стовпець із даними, застосуйте цей код:

Код 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. Якщо ви хочете знайти та вибрати останній рядок із даними, натисніть Кутулс > вибрати > Виберіть Остання комірка > Останній ряд. Дивіться знімок екрана:

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

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

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї утиліти, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.


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



Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (0)
Поки немає оцінок. Оцініть першим!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця