Hoe vult u opeenvolgende nummers naar beneden in Excel en slaat u daarbij verborgen rijen over?
Stel dat u een filter Gegevensbereik hebt en opeenvolgende nummers naar beneden wilt vullen in de gefilterde lege cellen, zoals op de onderstaande schermafbeelding is weergegeven. In zo’n geval werkt het slepen van de vulgreep meestal niet correct. In dit artikel bespreek ik enkele handige trucs om deze taak in Excel soepel op te lossen.
 |  |  |
Vul Opeenvolgende nummers naar beneden en sla verborgen rijen over met een formule
Vul Opeenvolgende nummers naar beneden en sla verborgen rijen over met VBA-code
Vul Opeenvolgende nummers naar beneden en sla verborgen rijen over met Kutools voor Excel
Vul Opeenvolgende nummers naar beneden en sla verborgen rijen over met een formule
Om opeenvolgende nummers alleen in de zichtbare cellen naar beneden te vullen, helpt een eenvoudige formule u daarbij. Volg deze stappen:
1. Voer deze formule in: =SUBTOTAL(103;$B$3:$B3) (B3 is de zichtbare cel die overeenkomt met de cel waar u wilt beginnen met het invullen van het reeksnummer) in de eerste cel waar u opeenvolgende nummers wilt invullen – in dit geval A3 – en druk vervolgens op Enter om het getal 1 te krijgen. Zie de schermafbeelding:
2. Selecteer cel A3 en sleep de vulgreep naar beneden naar de cellen waarin u opeenvolgende nummers wilt invullen. Zie de schermafbeelding:
Vul Opeenvolgende nummers naar beneden en sla verborgen rijen over met VBA-code
De volgende VBA-code helpt u ook om opeenvolgende nummers uitsluitend in zichtbare cellen in te vullen. Volg deze stappen:
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 Module-venster.
VBA-code: Vul Opeenvolgende nummers naar beneden en sla verborgen rijen over:
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 de toets F5 om deze code uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd het gegevensbereik te selecteren dat u wilt vullen, zie schermafbeelding:
4. Klik daarna op de knop OK en opeenvolgende nummers worden alleen in de zichtbare cellen ingevuld.
Vul Opeenvolgende nummers naar beneden en sla verborgen rijen over met Kutools voor Excel
De bovenstaande twee methoden helpen u alleen om opeenvolgende nummers naar beneden in te vullen in de zichtbare cellen. Als u echter een reeks wilt invullen zoals AA-0001-BB, AA-0002-BB, AA-0003-BB…, werken deze methoden niet. Maak u echter geen zorgen: met de Kutools voor Excel’s Reeksnummer invoegen-functie voltooit u dit razendsnel en eenvoudig.
Na installatie van Kutools voor Excel, volgt u deze stappen:
1. Selecteer de cellen waarin u reeksstrings wilt invullen.
2. Klik op Kutools > Invoegen > Reeksnummer invoegen, en klik in het dialoogvenster Reeksnummer invoegen op de knop Nieuw. Zie schermafbeeldingen:
 | |  |
3. Stel de gewenste opties in het linkeronderste gedeelte van het uitgebreide dialoogvenster in. Tegelijkertijd ziet u een voorbeeld van de reeks in het rechteronderste deelvenster, zie schermafbeelding:
4. Nadat u de instellingen heeft voltooid, klikt u op de knop Toevoegen om dit nieuwe item op te slaan in het lijstvak hierboven. Zie schermafbeelding:
6. Selecteer vervolgens het item dat u hebt gemaakt en klik op de knop Bereik vullen. De reeksstrings worden dan alleen in de zichtbare cellen ingevuld, zie schermafbeelding:
Download nu de gratis proefversie van Kutools voor Excel!
Demo: Vul Opeenvolgende nummers naar beneden en sla verborgen rijen over met Kutools voor Excel
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins