Как пройтись по строкам до пустой ячейки в столбце 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 без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!