Note: The other languages of the website are Google-translated. Back to English

Hoe cijfers of rijen invoegen voor ontbrekende opeenvolgende getallen in Excel?

Stel dat je een lijst met opeenvolgende nummers in een werkblad hebt, maar er zijn enkele ontbrekende nummers in de reeks, en nu moet je de ontbrekende cijfers of lege rijen invoegen om ervoor te zorgen dat de reeks compleet is (weergegeven als de volgende schermafbeeldingen). Hoe kon je dit probleem snel oplossen in Excel?

doc-insert-missing number1 -2 doc-insert-missing number2

Voeg ontbrekende nummers in voor volgorde met de functie Sorteren en verwijderen van duplicaten

Voeg ontbrekende nummers in voor reeks met VBA-code

Voeg lege rijen in voor ontbrekende reeks met VBA-code

Voeg ontbrekende nummers of lege rijen in voor volgorde met Kutools voor Excel


pijl blauw rechts bel Voeg ontbrekende nummers in voor volgorde met de functie Sorteren en verwijderen van duplicaten

Het kan zijn dat u de ontbrekende nummers een voor een kunt vinden en ze vervolgens kunt invoegen, maar het is moeilijk voor u om de locatie van de ontbrekende nummers te identificeren als er honderden opeenvolgende nummers zijn. In Excel kan ik de functie Sorteren en verwijderen van duplicaten gebruiken om deze taak uit te voeren.

1. Vul na het einde van de reekslijst nog een reeksnummers in van 2005023001 tot 2005023011. Zie screenshot:

doc-insert-missing number3

2. Selecteer vervolgens het bereik van de twee volgnummers en klik op Data > Sorteer A tot Z, zie screenshot:

doc-insert-missing number4

3. En de geselecteerde gegevens zijn gesorteerd als volgende screenshot:

doc-insert-missing number5

4. Vervolgens moet u de duplicaten verwijderen door erop te klikken Data > Verwijder duplicaten, en in de pop eruit Verwijder duplicaten dialoogvenster, controleer de Kolom naam waarvan je de duplicaten wilt verwijderen, zie screenshots:

doc-insert-missing number6 -2 doc-insert-missing number7

5. Dan klikken OK, de duplicaten in Kolom A is verwijderd en de ontbrekende nummers in de sequentielijst zijn ingevoegd, zie screenshot:

doc-insert-missing number8


pijl blauw rechts bel Voeg ontbrekende nummers in voor reeks met VBA-code

Als u denkt dat er zoveel stappen zijn met de bovenstaande methoden, kunt u hier ook VBA-code gebruiken om dit probleem op te lossen. Ga als volgt te werk:

1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module venster.

VBA: voeg ontbrekende nummers in 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 vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster, selecteer het gegevensbereik waarin u de ontbrekende nummers wilt invoegen (selecteer niet het titelbereik), zie screenshot:

doc-insert-missing number9

4. En klik vervolgens op OKzijn de ontbrekende nummers toegevoegd aan de sequentielijst. Zie screenshots:

doc-insert-missing number1 -2 doc-insert-missing number2

pijl blauw rechts bel Voeg lege rijen in voor ontbrekende reeks met VBA-code

Soms hoeft u alleen maar de plaats van de ontbrekende nummers te lokaliseren en lege rijen tussen de gegevens in te voegen, zodat u de informatie naar behoefte kunt invoeren. Natuurlijk kan de volgende VBA-code u ook helpen dit probleem op te lossen.

1. Houd de toets ingedrukt ALT + F11 toetsen, en het opent een Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module venster.

VBA: voeg lege rijen in voor ontbrekende reeks

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 vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster en selecteer vervolgens het gegevensbereik dat u lege rijen wilt invoegen voor de ontbrekende reeks (selecteer niet het titelbereik), zie screenshot:

doc-insert-missing number9

4. En klik vervolgens op OK, zijn de lege rijen ingevoegd voor de lijst met ontbrekende sequenties. Zie screenshots:

doc-insert-missing number1 -2 doc-insert-missing number10

pijl blauw rechts bel Voeg ontbrekende nummers of lege rijen in voor volgorde met Kutools voor Excel

Hier zal ik een eenvoudige en handige tool introduceren- Kutools for Excel, Met Zoek het ontbrekende volgnummer functie, kunt u snel het ontbrekende volgnummer of lege rijen tussen de bestaande gegevensreeks invoegen.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen

Als je hebt geïnstalleerd Kutools for Excelgaat u als volgt te werk:

1. Selecteer de gegevensreeks waarin u de ontbrekende nummers wilt invoegen.

2. Klikken Kutools > Invoegen > Zoek het ontbrekende volgnummer, zie screenshot:

3. In de Zoek het ontbrekende volgnummer dialoogvenster, vink aan Ontbrekend volgnummer invoegen om de ontbrekende nummers in te voegen of Ilege rijen invoegen bij het tegenkomen van ontbrekende volgnummers om naar behoefte lege rijen in te voegen. Zie screenshot:

doc-insert-missing number10

4. En klik vervolgens op OK knop, en de ontbrekende volgnummers of lege rijen zijn in de gegevens ingevoegd, zie screenshots:

doc-insert-missing number10 2 doc-insert-missing number10 2 doc-insert-missing number10

Download en gratis proef Kutools voor Excel nu!


pijl blauw rechts bel  Demo: voeg ontbrekende nummers of lege rijen in voor een reeks met Kutools voor Excel

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!

Gerelateerd artikel:

Hoe ontbrekende getallenreeks in Excel te identificeren?


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.
kte tabblad 201905

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!
officetab onderkant
Heb je vragen? Stel ze hier. (10)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Bedankt ! Geweldig script! Hoe kan ik dit script wijzigen als ik zeg dat we niet alleen ID-kolom + NAAM-kolom, maar ID-kolom + NAAM-kolom + NIEUWE kolom moeten verwerken? Hoe kan ik nieuwe kolommen in dit script toevoegen?
Deze opmerking is gemaakt door de moderator op de site
Het volgende is de gewijzigde macro om een ​​toegevoegde kolom op te nemen - Een ander belangrijk punt is dat wanneer u wordt gevraagd om het bereik te selecteren, u alleen de eerste kolom moet selecteren - dit kostte me een paar uur! hoop anderen tijd te besparen

Sub InsertValueBetween()
'Bijwerken door' Extendoffice
Dim WorkRng als bereik
Dim Rng als bereik
UitdimenArr As Variant
Dim dic als variant
Set dic = CreateObject("Scripting.Dictionary")
Dim dic2 als variant
Stel dic2 = CreateObject ("Scripting.Dictionary") in

'Bij fout Hervatten volgende
xTitleId = "KutoolsforExcel"
Stel WorkRng = Application.Selection in
Set WorkRng = Application.InputBox("Bereik", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Bereik ("A1"). Waarde
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Waarde
interval = aantal2 - aantal1
ReDim outArr (1 tot interval + 1, 1 tot 3)
Voor elke Rng In WorkRng
dic(Rng.Waarde) = Rng.Offset(0, 1).Waarde
dic2(Rng.Waarde) = Rng.Offset(0, 2).Waarde
Volgende
Voor i = 0 Naar interval
outArr(i + 1, 1) = ik + num1
Als dic.Bestaat(i + num1) Dan
outArr(i + 1, 2) = dic(i + num1)
outArr(i + 1, 3) = dic2(i + num1)
Anders
outArr(i + 1, 2) = ""
outArr(i + 1, 3) = ""

End If
Volgende
Met WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Waarde = outArr
.Kies
Eindigt met
End Sub
Deze opmerking is gemaakt door de moderator op de site
dit werkte en was heel gemakkelijk om de taak te voltooien. Dank u.
Deze opmerking is gemaakt door de moderator op de site
Heel erg bedankt. Hoe verander ik het script als de stappen slechts 0.02 zijn en niet 1 Dit is voor het script InsertNullBetween()
Deze opmerking is gemaakt door de moderator op de site
Wat als ik 6 kolommen wil selecteren en vervolgens de eerste kolom wil controleren op datums en als datums ontbreken, voeg dan een rij (lege cellen) toe voor alle 1 kolommen
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik wil "Ontbrekend volgnummer invoegen" gebruiken, maar het ondersteunt niet als het nee. van cijfers zijn meer dan 12 kunt u helpen?
Deze opmerking is gemaakt door de moderator op de site
Ik wil de functie "Ontbrekend volgnummer invoegen" gebruiken, maar deze biedt geen ondersteuning voor cijfers van meer dan 12? er zijn veel sets waar ik de reeks tussen wil invoegen (het is een alfanumeriek cijfer) kan je helpen
Deze opmerking is gemaakt door de moderator op de site
Wat als ik 6 kolommen wil selecteren en vervolgens de eerste kolom wil controleren op datums en als datums ontbreken, voeg dan een rij (lege cellen) toe voor alle 1 kolommen
Deze opmerking is gemaakt door de moderator op de site
Bedankt geweldig
Deze opmerking is gemaakt door de moderator op de site
Ik probeer de VBA te gebruiken voor opeenvolgende nummers. Ik heb verschillende kolommen naast de nummers van welke nummers ook. D.w.z
1. HL-meter 34
2. HL-watermeter 40
4. HL-CO2-meter 24

Wanneer ik de code gebruik, werkt deze voor de eerste 3 kolommen, maar het raakt in de war als ik de 4e kolom opneem, omdat deze ook cijfers bevat.
Hoe kan ik de code wijzigen om ervoor te zorgen dat de cijfers in kolom 4 hetzelfde blijven?
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL