Как найти последнюю строку или столбец с данными в Excel?
На большом листе, если вы хотите быстро и легко найти последнюю строку или столбец, содержащие данные, можно просто прокручивать полосу прокрутки в поисках нужного места. Однако это станет затруднительным, если ваш лист содержит тысячи строк данных. В этой статье я поделюсь полезным кодом VBA, который поможет вам эффективно решить эту задачу.
Найдите Последняя строка или столбец с данными с помощью кода VBA
Найдите и выделите Последняя строка или столбец с данными с помощью Kutools для Excel
Найдите Последняя строка или столбец с данными с помощью кода VBA
Многие из нас, скорее всего, привыкли искать последнюю ячейку с помощью комбинации клавиш Ctrl+End, чтобы определить последнюю строку и столбец. Однако эта комбинация не всегда указывает на точную ячейку со значением, если ниже диапазона данных есть отформатированные (но пустые) ячейки. В таком случае воспользуйтесь следующим кодом VBA:
1. Активируйте лист, на котором нужно определить последнюю строку или столбец с данными.
2. Удерживая клавиши ALT+F11, откройте окно Microsoft Visual Basic для приложений.
3. Затем нажмите Вставить > Модуль и вставьте следующий код в окно Модуль.
Код 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. Нажмите кнопку ОК — и на этот раз номер последней строки со значениями отобразится, как показано на следующем снимке экрана:
Примечание:Чтобы найти Последний столбец с данными, используйте следующий код:
Код 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. Чтобы найти и выделить последнюю строку с данными, нажмите Kutools > Выделить > Выбрать последнюю ячейку > Последняя строка. См. снимок экрана:
Примечание: Чтобы найти и выделить последний столбец с данными, нажмите Kutools > Выделить > Выбрать последнюю ячейку > Последний столбец.
Таким образом, последняя строка или столбец с данными на текущем листе будут немедленно найдены и выделены.
Если вы хотите воспользоваться бесплатной пробной версией (30 дней) этой утилиты, нажмите, чтобы скачать её, а затем выполните операцию в соответствии с приведёнными выше шагами.
Демонстрация: Найдите и выделите Последняя строка или столбец с данными с помощью Kutools для Excel
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек