Hoe door rijen te lussen totdat een lege cel in een Excel-kolom wordt gevonden?

Hier is een lange kolom met gegevens die enkele lege cellen bevat, en u wilt door de rijen lussen totdat u een lege cel tegenkomt. In Excel is er geen ingebouwde functie om dit te doen, maar ik kan u enkele macro's introduceren om u te helpen.

Lus door rijen totdat leeg met VBA

Lus door rijen totdat leeg met VBA

1. Druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en plak onderstaande code in het lege script.

VBA: Lus tot leeg

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

In de code is A1 de eerste cel waarvan u wilt beginnen met lussen; u kunt deze naar behoefte wijzigen.

3. Druk op F5 om te beginnen met lussen door de kolom, daarna stopt de cursor bij de eerste lege cel die wordt aangetroffen.

Opmerking: Als u door gegevens wilt lussen totdat u continue lege cellen tegenkomt, kunt u deze macrocode gebruiken.

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

Selecteer vervolgens de eerste cel waarvan u wilt beginnen met lussen in het dialoogvenster van Kutools voor Excel, klik op OK, dan stopt de cursor bij de eerste reeks continue lege cellen.

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!