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

Wie füge ich Zahlen oder Zeilen für fehlende fortlaufende Zahlen in Excel ein?

Angenommen, Sie haben eine Liste mit fortlaufenden Nummern in einem Arbeitsblatt, aber es fehlen einige Nummern in der Sequenz. Jetzt müssen Sie die fehlenden Nummern oder leeren Zeilen einfügen, um sicherzustellen, dass die Sequenz vollständig ist (siehe folgende Screenshots). Wie können Sie dieses Problem in Excel schnell lösen?

doc-insert-fehlende-nummer1 -2 doc-insert-fehlende-nummer2

Fügen Sie fehlende Nummern für die Sequenz mit der Funktion "Duplikate sortieren und entfernen" ein

Fügen Sie fehlende Nummern für die Sequenz mit VBA-Code ein

Fügen Sie leere Zeilen für fehlende Sequenzen mit VBA-Code ein

Fügen Sie mit Kutools for Excel fehlende Zahlen oder leere Zeilen für die Sequenz ein


Pfeil blau rechte Blase Fügen Sie fehlende Nummern für die Sequenz mit der Funktion "Duplikate sortieren und entfernen" ein

Möglicherweise können Sie die fehlenden Nummern einzeln finden und dann einfügen. Es ist jedoch schwierig, die Position der fehlenden Nummern zu ermitteln, wenn Hunderte von fortlaufenden Nummern vorhanden sind. In Excel kann ich die Funktion "Duplikate sortieren und entfernen" verwenden, um diese Aufgabe zu erledigen.

1. Geben Sie nach dem Ende der Sequenzliste weitere Sequenznummern von 2005023001 bis 2005023011 ein. Siehe Screenshot:

doc-insert-fehlende-nummer3

2. Wählen Sie dann den Bereich der beiden Folgenummern aus und klicken Sie auf Daten > Sortieren von A bis Z, siehe Screenshot:

doc-insert-fehlende-nummer4

3. Die ausgewählten Daten wurden wie folgt sortiert:

doc-insert-fehlende-nummer5

4. Dann müssen Sie die Duplikate durch Klicken entfernen Daten > Duplikate entfernenund in der herausgesprungen Duplikate entfernen Wählen Sie im Dialogfeld Kolonne Name, den Sie entfernen möchten, siehe Screenshots:

doc-insert-fehlende-nummer6 -2 doc-insert-fehlende-nummer7

5. Dann klick OK, die Duplikate in Spalte A wurde gelöscht und die fehlenden Nummern in der Sequenzliste wurden eingefügt, siehe Screenshot:

doc-insert-fehlende-nummer8


Pfeil blau rechte Blase Fügen Sie fehlende Nummern für die Sequenz mit VBA-Code ein

Wenn Sie der Meinung sind, dass die oben genannten Methoden so viele Schritte umfassen, können Sie hier auch VBA-Code verwenden, um dieses Problem zu beheben. Bitte gehen Sie wie folgt vor:

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA: Geben Sie fehlende Nummern für die Sequenz ein

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. Dann drücken F5 Geben Sie den Datenbereich ein, in den Sie die fehlenden Zahlen einfügen möchten (wählen Sie nicht den Titelbereich aus). Siehe Screenshot:

doc-insert-fehlende-nummer9

4. Und dann klick OKwurden die fehlenden Nummern in die Sequenzliste eingefügt. Siehe Screenshots:

doc-insert-fehlende-nummer1 -2 doc-insert-fehlende-nummer2

Pfeil blau rechte Blase Fügen Sie leere Zeilen für fehlende Sequenzen mit VBA-Code ein

Manchmal müssen Sie nur die Stelle der fehlenden Zahlen suchen und leere Zeilen zwischen die Daten einfügen, damit Sie die Informationen nach Bedarf eingeben können. Der folgende VBA-Code kann Ihnen natürlich auch bei der Lösung dieses Problems helfen.

1. Halten Sie die ALT + F11 Tasten, und es öffnet sich ein Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA: Leerzeilen für fehlende Sequenz einfügen

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. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt. Wählen Sie dann den Datenbereich aus, in den Sie leere Zeilen für die fehlende Sequenz einfügen möchten (wählen Sie nicht den Titelbereich aus). Siehe Screenshot:

doc-insert-fehlende-nummer9

4. Und dann klick OKwurden die leeren Zeilen für die fehlende Sequenzliste eingefügt. Siehe Screenshots:

doc-insert-fehlende-nummer1 -2 doc-insert-fehlende-nummer10

Pfeil blau rechte Blase Fügen Sie mit Kutools for Excel fehlende Zahlen oder leere Zeilen für die Sequenz ein

Hier werde ich ein einfaches und handliches Werkzeug vorstellen. Kutools for ExcelMit seinen Suchen Sie die fehlende Sequenznummer Mit dieser Funktion können Sie schnell die fehlende Sequenznummer oder leere Zeilen zwischen die vorhandene Datensequenz einfügen.

Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen

Wenn Sie installiert haben Kutools for ExcelBitte gehen Sie wie folgt vor:

1. Wählen Sie die Datensequenz aus, in die Sie die fehlenden Zahlen einfügen möchten.

2. Klicken Sie Kutoolen > Insert > Suchen Sie die fehlende Sequenznummer, siehe Screenshot:

3. In dem Suchen Sie die fehlende Sequenznummer Dialogfeld überprüfen Fehlende Sequenznummer einfügen um die fehlenden Zahlen oder ich einzufügenLeerzeichen einfügen, wenn fehlende Sequenznummern auftreten um leere Zeilen nach Bedarf einzufügen. Siehe Screenshot:

doc-insert-fehlende-nummer10

4. Und dann klick OK Klicken Sie auf die Schaltfläche, und die fehlenden Folgenummern oder leeren Zeilen wurden in die Daten eingefügt. Siehe Screenshots:

doc-insert-fehlende-nummer10 2 doc-insert-fehlende-nummer10 2 doc-insert-fehlende-nummer10

Laden Sie Kutools for Excel jetzt herunter und testen Sie es kostenlos!


Pfeil blau rechte Blase  Demo: Fügen Sie mit Kutools for Excel fehlende Zahlen oder leere Zeilen für die Sequenz ein

Kutools for Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie es innerhalb von 30 Tagen ohne Einschränkung testen. Jetzt herunterladen und kostenlos testen!

In Verbindung stehender Artikel:

Wie identifiziere ich die Reihenfolge fehlender Zahlen in Excel?


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (10)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank ! Tolles Drehbuch! Wie kann ich dieses Skript ändern, wenn ich sage, dass wir nicht nur ID-Spalte + NAME-Spalte, sondern ID-Spalte + NAME-Spalte + NEUE Spalte verarbeiten müssen? Wie kann ich diesem Skript neue Spalten hinzufügen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das Folgende ist das modifizierte Makro, das eine hinzugefügte Spalte enthält - Ein weiterer wichtiger Punkt ist, dass Sie bei der Aufforderung zur Auswahl des Bereichs nur die erste Spalte auswählen sollten - das hat mich ein paar Stunden gekostet! hoffen, die Zeit anderer zu sparen

Sub InsertValueBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic als Variante
Setze dic = CreateObject("Scripting.Dictionary")
Dim dic2 als Variante
Setze dic2 = CreateObject("Scripting.Dictionary")

'Bei Fehler als nächstes fortfahren
xTitleId = "KutoolsforExcel"
Legen Sie WorkRng = Application.Selection fest
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Wert
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Wert
Intervall = num2 - num1
ReDim outArr(1 bis Intervall + 1, 1 bis 3)
Für jeden Rng in WorkRng
dic(Rng.Wert) = Rng.Offset(0, 1).Wert
dic2(Rng.Wert) = Rng.Offset(0, 2).Wert
Weiter
Für i = 0 bis Intervall
outArr(i + 1, 1) = i + num1
If dic.Exists(i + num1) Then
outArr(i + 1, 2) = dic(i + num1)
outArr(i + 1, 3) = dic2(i + num1)
sonst
outArr(i + 1, 2) = ""
outArr(i + 1, 3) = ""

End If
Weiter
Mit WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Wert = outArr
.Wählen
Ende mit
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dies funktionierte und war sehr einfach, die Aufgabe zu erledigen. Danke.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank. Wie ändere ich das Skript, wenn die Inkremente nur 0.02 und nicht 1 sind? Dies ist für das Skript InsertNullBetween()
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Was ist, wenn ich 6 Spalten auswählen und dann die erste Spalte auf Daten überprüfen möchte und wenn Daten fehlen, eine Zeile (leere Zellen) für alle 1 Spalten hinzufügen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich möchte "Fehlende Sequenznummer einfügen" verwenden, aber es wird nicht unterstützt, wenn die Nr. der Ziffern sind mehr als 12 können Sie helfen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich möchte die Funktion "Fehlende Sequenznummer einfügen" verwenden, aber sie unterstützt keine Ziffern über 12? Es gibt viele Sätze, in die ich die Sequenz einfügen möchte (es ist eine alphanumerische Ziffer). Können Sie mir helfen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Was ist, wenn ich 6 Spalten auswählen und dann die erste Spalte auf Daten überprüfen möchte und wenn Daten fehlen, eine Zeile (leere Zellen) für alle 1 Spalten hinzufügen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke toll
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich versuche, die VBA für fortlaufende Nummern zu verwenden. Ich habe mehrere Spalten neben den Zahlen, von denen auch Zahlen. Dh
1. HL-Meter 34
2. HL-Wasserzähler 40
4. HL-CO2-Messgerät 24

Wenn ich den Code verwende, funktioniert er für die ersten 3 Spalten, aber er wird durcheinander gebracht, wenn ich die 4. Spalte einschließe, da er auch Zahlen enthält.
Wie kann ich den Code ändern, um sicherzustellen, dass die Zahlen in Spalte 4 gleich bleiben?
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL