Как пройтись по строкам до пустой ячейки в столбце Excel?
Вот длинный столбец с данными, который включает некоторые пустые ячейки, и вы хотите пройтись по строкам до встречи с пустой ячейкой. В Excel нет встроенной функции для выполнения этой задачи, но я могу предложить несколько макросов, которые помогут вам.
Пройдитесь по строкам до пустой ячейки с помощью VBA
Пройдитесь по строкам до пустой ячейки с помощью VBA
1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Щелкните Вставить > Модуль и вставьте следующий код в пустой скрипт.
VBA: Цикл до пустой ячейки
Sub Test1()
'UpdatebyExtendoffice20161222
Dim x As Integer
Application.ScreenUpdating = False
' Set numrows = number of rows of data.
NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
' Select cell a1.
Range("A1").Select
' Establish "For" loop to loop "numrows" number of times.
For x = 1 To NumRows
' Insert your code here.
' Selects cell down 1 row from active cell.
ActiveCell.Offset(1, 0).Select
Next
Application.ScreenUpdating = True
End Sub
В коде A1 — это первая ячейка, с которой вы хотите начать цикл; вы можете изменить её по своему усмотрению.
3. Нажмите F5 , чтобы начать цикл по столбцу, затем курсор остановится на первой встреченной пустой ячейке.
Примечание: Если вы хотите пройтись по данным до встречи с последовательными пустыми ячейками, вы можете использовать этот макрос.
Sub LoopThroughUntilBlanks()
'UpdatebyExtendoffice20161222
' Select cell A2, *first line of data*.
Dim xrg As Range
On Error Resume Next
Set xrg = Application.InputBox _
(Prompt:="first cell select..", Title:="Kutools for Excel", Type:=8)
xrg.Cells(1, 1).Select
' Set Do loop to stop when two consecutive empty cells are reached.
Application.ScreenUpdating = False
Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0))
' Insert your code here.
'
' Step down 2 rows from present location.
ActiveCell.Offset(2, 0).Select
Loop
Application.ScreenUpdating = False
End SubЗатем вам нужно выбрать первую ячейку, с которой вы хотите начать цикл, в диалоговом окне Kutools for Excel, нажать OK, после чего курсор остановится на первых последовательных пустых ячейках.
 |  |
Раскройте магию Excel с Kutools AI
- Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
- Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
- Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
- Интерпретация формул: Легко разбирайтесь в сложных формулах.
- Перевод текста: Преодолейте языковые барьеры в ваших таблицах.
Лучшие инструменты для повышения продуктивности в 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек