如何在 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 對話框中選擇要開始循環的第一個單元格，點擊 確定，然後游標會停在第一組連續的空白單元格上。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！