Hoe volgnummers naar beneden invullen en verborgen rijen overslaan in Excel?
Stel dat u een gefilterd gegevensbereik hebt waarin u volgnummers wilt invullen in de gefilterde lege cellen, zoals in de onderstaande schermafbeelding te zien is. In dit geval zal het slepen van de vulgreep de cellen over het algemeen niet correct invullen. In dit artikel bespreek ik enkele handige trucs om deze taak in Excel op te lossen.
 |  |  |
Volgnummers naar beneden invullen en verborgen rijen overslaan met formule
Volgnummers naar beneden invullen en verborgen rijen overslaan met VBA-code
Volgnummers naar beneden invullen en verborgen rijen overslaan met Kutools voor Excel
Volgnummers naar beneden invullen en verborgen rijen overslaan met formule
Om volgnummers alleen in de zichtbare cellen naar beneden in te vullen, kan een eenvoudige formule u helpen. Doe het volgende:
1. Voer deze formule in: =SUBTOTAAL(103;$B$3:$B3) (B3 is de zichtbare cel die overeenkomt met de cel waar u de volgnummers wilt starten) in de eerste cel waar u de volgnummers wilt invullen, A3 in dit geval, en druk vervolgens op Enter. U krijgt het getal 1, zie onderstaande schermafbeelding:
2. Selecteer vervolgens cel A3 en sleep de vulgreep naar beneden naar de cellen waar u de volgnummers wilt invullen, zie onderstaande schermafbeelding:
Volgnummers naar beneden invullen en verborgen rijen overslaan met VBA-code
De volgende VBA-code kan u ook helpen om de volgnummers alleen in de zichtbare cellen in te vullen. Doe het volgende:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: Volgnummers naar beneden invullen en verborgen rijen overslaan:
Sub FillValue()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
Dim xVal As Long
Dim I As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = xRg.SpecialCells(xlVisible)
Debug.Print xRg.Address
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
xVal = xVal + 1
xCell = xVal
Next
End Sub
3. Druk vervolgens op F5 om deze code uit te voeren, en er verschijnt een pop-upvenster dat u eraan herinnert het gegevensbereik te selecteren dat u wilt invullen, zie onderstaande schermafbeelding:
4. Klik vervolgens op de knop OK, en de volgnummers zijn alleen in de zichtbare cellen ingevuld.
Volgnummers naar beneden invullen en verborgen rijen overslaan met Kutools voor Excel
De bovenstaande twee methoden kunnen u alleen helpen om volgnummers in de zichtbare cellen in te vullen. Als u echter volgnummers wilt invullen zoals AA-0001-BB, AA-0002-BB, AA-0003-BB…, dan werken de bovenstaande methoden niet. Maar maakt u zich geen zorgen, de functie Reeksnummer invoegen van Kutools voor Excel kan u hierbij snel en gemakkelijk helpen.
Nadat u Kutools voor Excel heeft geïnstalleerd, doet u het volgende:
1. Selecteer de cellen waar u de reeksstrings wilt invullen.
2. Klik op Kutools > Invoegen > Reeksnummer invoegen. Klik in het dialoogvenster Reeksnummer invoegen op de knop Nieuw, zie onderstaande schermafbeeldingen:
 | |  |
3. Specificeer in het uitgebreide dialoogvenster de instellingen die u nodig hebt in de linkeronderhoek. Tegelijkertijd kunt u de reeks in het rechterpaneel bekijken, zie onderstaande schermafbeelding:
4. Klik na het afronden van de instellingen op de knop Toevoegen om dit nieuwe item op te slaan in de bovenstaande lijstbox, zie onderstaande schermafbeelding:
6. Selecteer vervolgens het item dat u hebt gemaakt en klik op de knop Bereik vullen. De reeksstrings zijn alleen in de zichtbare cellen ingevuld, zie onderstaande schermafbeelding:
Download en probeer Kutools voor Excel nu gratis uit!
Demo: Volgnummers naar beneden invullen en verborgen rijen overslaan met Kutools voor Excel
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen