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?

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

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:

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

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

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:

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

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:

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

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:

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

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.

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:

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:

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

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

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.

Lesen Sie mehr... Kostenfreier Download... Kauf... 

---

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!

Lesen Sie mehr... Kostenfreier Download... Kauf...