Как перебирать строки до пустого в столбце Excel?

Вот длинный столбец с данными, который включает несколько пустых ячеек, и вы хотите перебирать строки, пока не встретите пустую ячейку. В Excel нет встроенной функции, которая могла бы справиться с этой задачей, но я могу представить вам несколько макросов, чтобы оказать вам услугу.

Прокрутите строки до пустого с помощью VBA

Прокрутите строки до пустого с помощью VBA

1. Нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно.

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 с помощью инструментов на базе искусственного интеллекта. Скачать сейчас и испытайте эффективность, как никогда раньше!