Hoe rijen doorlopen tot ze leeg zijn in de Excel-kolom?
Hier is een lange kolom met gegevens die enkele lege cellen bevat, en u wilt door de rijen lopen totdat u een lege cel ontmoet. In Excel is er geen ingebouwde functie die deze taak aankan, maar ik kan enkele macro's introduceren om u een plezier te doen.
Loop door rijen tot blanco met VBA
Loop door rijen tot blanco met VBA
1. druk op Alt + F11 toetsen om het Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Moduleen plak onderstaande code in het lege script.
VBA: loop 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 een lus wilt maken, u kunt deze naar behoefte wijzigen.
3. druk op F5 toets om te beginnen met het herhalen van de kolom, dan stopt de cursor bij de eerste ontmoet lege cel.
Opmerking:: Als u gegevens wilt doorlopen totdat u doorlopende lege cellen ontmoet, 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
Vervolgens moet u de eerste cel selecteren waarvan u een lus wilt maken in het Kutools for Excel dialoogvenster, klik OK, dan stopt de cursor in de eerste doorlopende lege cellen.
![]() |
![]() |
Combineer eenvoudig meerdere bladen / werkmap in één enkel blad of werkmap
|
Het combineren van meerdere bladen of werkmappen tot één blad of werkmap kan lastig zijn in Excel, maar met de extensie Combineren functie in Kutools for Excel, kunt u tientallen bladen / werkmappen samenvoegen tot één blad of werkmap, ook kunt u de bladen met slechts enkele klikken in één samenvoegen. Klik voor volledige functionaliteit 30 dagen gratis op proef! |
![]() |
Kutools for Excel: met meer dan 300 handige Excel-add-ins, gratis te proberen zonder enige beperking 30 dagen. |
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
- Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
- Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
- Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
- Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
- Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
- Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
- Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
- Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!







