Hoe voegt u nummers of rijen in om ontbrekende opeenvolgende nummers in Excel aan te vullen?
Stel dat u een lijst met opeenvolgende nummers hebt in een werkblad, maar dat er enkele ontbrekende nummers in de reeks zitten. Hoe kunt u snel de ontbrekende nummers of lege rijen invoegen om de reeks compleet te maken, zoals weergegeven in de volgende schermafbeeldingen?
 |  |  | Voeg ontbrekende nummers in voor een reeks met de functie Sorteren en Dubbele items verwijderen Voeg ontbrekende nummers of Lege rijen in voor een reeks met Kutools voor Excel |
Voeg ontbrekende nummers in voor een reeks met de functie Sorteren en Dubbele items verwijderen
Mogelijk kunt u de ontbrekende nummers één voor één opsporen en vervolgens invoegen, maar het is moeilijk om de locatie van de ontbrekende nummers te bepalen als er honderden opeenvolgende nummers zijn. In Excel kan ik de functie Sorteren en Dubbele items verwijderen gebruiken om deze taak uit te voeren.
1. Vul na het einde van de reekslijst nog een opeenvolgende nummerserie in, van 2005023001 tot 2005023011. Zie schermafbeelding:
2. Selecteer vervolgens het bereik met de twee opeenvolgende nummers en klik op Gegevens > Oplopend. Zie schermafbeelding:
3. En de geselecteerde gegevens zijn gesorteerd zoals op de volgende schermafbeelding:
4. Verwijder vervolgens de duplicaten door te klikken op Gegevens > Dubbele items verwijderen. In het verschijnende dialoogvenster Dubbele items verwijderen vinkt u de Kolom aan waarvan u de duplicaten wilt verwijderen. Zie schermafbeeldingen:
 | |  |
5. Klik daarna op OK, waarna de duplicaten in Kolom A zijn verwijderd en de ontbrekende nummers in de reekslijst zijn ingevoegd. Zie schermafbeelding:
Voeg ontbrekende nummers of Lege rijen in voor een reeks met Kutools voor Excel
Hier stel ik een eenvoudige en handige tool voor: Kutools voor Excel. Met de functie Ontbrekende reeks vinden kunt u snel ontbrekende reeksenummers of lege rijen tussen bestaande gegevens invoegen.
Als u Kutools voor Excelhebt geïnstalleerd, volgt u de onderstaande stappen:
1. Selecteer de gegevensreeks waarin u de ontbrekende nummers wilt invullen.
2. Klik op Kutools > Invoegen > Ontbrekende reeks vinden. Zie schermafbeelding:
3. In het Ontbrekende reeks vinden-dialoogvenster vinkt u Ontbrekende gegevens invoegen aan om de ontbrekende nummers in te voegen, of vinkt u Rijen invoegen bij ontbrekende opeenvolgende nummers aan om lege rijen in te voegen zoals u dat nodig heeft. Zie schermafbeelding:
4. Klik daarna op de knop OK. De ontbrekende opeenvolgende nummers of lege rijen in de gegevens worden dan automatisch ingevoegd. Zie schermafbeeldingen:
 | |  | |  |
Download en probeer Kutools voor Excel nu gratis!
Voeg ontbrekende nummers in voor een reeks met VBA-code
Als u de bovenstaande methoden te veel stappen vindt bevatten, is er ook VBA-code beschikbaar om u te helpen dit probleem op te lossen. Volg de onderstaande 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: ontbrekende nummers invoegen voor de reeks
Sub InsertValueBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
outArr(i + 1, 1) = i + num1
If dic.Exists(i + num1) Then
outArr(i + 1, 2) = dic(i + num1)
Else
outArr(i + 1, 2) = ""
End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = outArr
.Select
End With
End Sub
3. Druk daarna op de toets F5 om deze code uit te voeren. Er verschijnt een promptvenster waarin u het gegevensbereik selecteert waarin u de ontbrekende nummers wilt invoegen (selecteer niet het titelbereik). Zie schermafbeelding:
4. Klik daarna op OK, waarna de ontbrekende nummers in de reekslijst zijn ingevoegd. Zie schermafbeeldingen:
| | |
Voeg Lege rijen in voor ontbrekende reeksen met VBA-code
Soms wilt u alleen de plaats van de ontbrekende nummers lokaliseren en lege rijen tussen de gegevens invoegen, zodat u de gewenste informatie kunt invullen. De volgende VBA-code helpt u ook bij het oplossen van dit probleem.
1. Houd de toetsen ALT + F11 ingedrukt om een Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen>Moduleen plak de volgende code in het Modulevenster.
VBA: Lege rijen invoegen voor ontbrekende reeksen
Sub InsertNullBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
If dic.Exists(i + num1) Then
outArr(i + 1, 1) = i + num1
outArr(i + 1, 2) = dic(i + num1)
Else
outArr(i + 1, 1) = ""
outArr(i + 1, 2) = ""
End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = outArr
.Select
End With
End Sub
3. Druk daarna op de toets F5 om deze code uit te voeren. Er verschijnt een promptvenster waarin u het gegevensbereik selecteert waarvoor u lege rijen wilt invoegen voor de ontbrekende reeks (selecteer niet het titelbereik). Zie schermafbeelding:
4. Klik daarna op OK, waarna lege rijen zijn ingevoegd voor de ontbrekende reeks. Zie schermafbeeldingen:
| |  |
Gerelateerd artikel:
Hoe identificeert u ontbrekende nummers in een reeks in 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