Как перейти к первой или последней пустой строке в Excel?
Пролистывание большого листа в поисках первой или последней пустой строки отнимает уйму времени. В этой статье я покажу несколько эффективных приёмов для мгновенного перехода к первой или последней пустой строке в Excel.
Переход к первой или последней пустой строке с помощью VBA
Переход к последней пустой строке или столбцу с помощью утилиты «Последняя строка»
Переход к первой или последней пустой строке с помощью VBA
Вот два макроса VBA, которые позволят быстро перейти к первой или последней пустой строке на активном листе. Выполните следующие действия.
1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений. См. снимок экрана:
2. Затем щёлкните Вставка > Модуль и вставьте приведённый ниже код в скрипт. См. снимок экрана:
VBA: Переход к первой пустой строке.
Sub Findfirstblankcell()
'UpdatebyExtendoffice20170712
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
If Rng.Value = "" Then
MsgBox "No Value, in " & Rng.Address
End If
Next
End Sub |
 |
3. Нажмите F5, чтобы запустить код. Появится диалоговое окно с запросом на выбор диапазона для работы. См. снимок экрана:
4. Нажмите ОК. После этого появится диалоговое окно с напоминанием о ссылке на ячейку первой пустой строки. См. снимок экрана:
5. Нажимайте ОК несколько раз, чтобы закрыть диалоговое окно Microsoft Excel. Затем перейдите в поле «Имя», введите A2 и нажмите клавишу Enter — после этого вы переместитесь к первой пустой строке. См. снимок экрана:
Совет: Если вы хотите перейти к последней пустой строке, используйте приведённый ниже код VBA. После нажатия клавиши F5 курсор сразу переместится к последней пустой строке.
VBA: Переход к последней пустой строке
Sub selectlastemptyrow()
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End SubПримечание: Этот макрос VBA выбирает последнюю пустую ячейку в столбце A. Чтобы выбрать последнюю пустую ячейку в другом столбце, замените значение 1 в строке кода Cells(Rows.Count, 1) на нужный номер столбца.
Переход к последней пустой строке или столбцу с помощью утилиты «Последняя строка»
Если вы хотите быстро перейти к последней пустой строке или столбцу, воспользуйтесь утилитой Kutools для Excel — функциями «Последняя строка» или «Последний столбец». С их помощью вы мгновенно переместитесь к последней непустой ячейке в указанной строке или столбце на текущем листе, а следующая ячейка будет как раз той самой последней пустой строкой или пустым столбцом.
После установки Kutools для Excel выполните следующие действия:
Щёлкните Kutools > Выделить > Выбрать последнюю ячейку > Последняя строка / Последний столбец. См. снимок экрана:
Тогда будут выделены последние непустые ячейки в последней строке (или столбце). Просто нажмите клавишу со стрелкой вниз (или вправо), чтобы активировать первую пустую строку (или столбец) после них.
Связанные статьи
- Как организовать циклический перебор строк в столбце Excel до первой пустой ячейки?
- Как подсчитать значения в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек