Wie fügt man Zahlen oder Zeilen für fehlende fortlaufende Nummern in Excel ein?

Angenommen, Sie haben eine Liste mit fortlaufenden Nummern in einem Arbeitsblatt, aber es fehlen einige Zahlen in der Sequenz, und nun müssen Sie die fehlenden Zahlen oder leere Zeilen einfügen, um sicherzustellen, dass die Sequenz vollständig ist (wie in den folgenden Screenshots gezeigt). Wie könnten Sie dieses Problem in Excel schnell lösen?

Fehlende Zahlen für die Sequenz mit der Funktion „Sortieren“ und „Duplikate entfernen“ einfügen Fehlende Zahlen oder leere Zeilen für die Sequenz mit Kutools für Excel einfügen Fehlende Zahlen für die Sequenz mit VBA-Code einfügen Leere Zeilen für fehlende Sequenzen mit VBA-Code einfügen

Fehlende Zahlen für die Sequenz mit der Funktion „Sortieren“ und „Duplikate entfernen“ einfügen

Vielleicht können Sie die fehlenden Zahlen einzeln finden und dann einfügen, aber es ist schwierig, die Position der fehlenden Zahlen zu identifizieren, wenn es Hunderte von fortlaufenden Nummern gibt. In Excel kann ich die Funktion „Sortieren“ und „Duplikate entfernen“ verwenden, um diese Aufgabe zu erledigen.

1. Fügen Sie am Ende der Sequenzliste eine weitere Reihe von fortlaufenden Nummern von 2005023001 bis 2005023011 ein. Siehe Screenshot:

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

3. Und die ausgewählten Daten wurden wie im folgenden Screenshot sortiert:

4. Dann müssen Sie die Duplikate entfernen, indem Sie auf Daten > Duplikate entfernen klicken, und im erscheinenden Dialogfeld „Duplikate entfernen“ das Kontrollkästchen bei dem Spaltennamen aktivieren, aus dem Sie die Duplikate entfernen möchten, siehe Screenshots:

5. Klicken Sie dann auf OK, die Duplikate in Spalte A wurden gelöscht, und die fehlenden Zahlen in der Sequenzliste wurden eingefügt, siehe Screenshot:

Fehlende Zahlen oder leere Zeilen für die Sequenz mit Kutools für Excel einfügen

Hier möchte ich ein einfaches und praktisches Tool vorstellen - Kutools für Excel. Mit der Funktion „Fehlende Sequenznummern finden“ können Sie schnell die fehlenden Sequenznummern oder leere Zeilen zwischen den bestehenden Datensequenzen einfügen.

Wenn Sie Kutools für Excel installiert haben, gehen Sie bitte wie folgt vor:

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

2. Klicken Sie auf Kutools > Einfügen > Fehlende Sequenznummern finden, siehe Screenshot:

3. Aktivieren Sie im Dialogfeld „Fehlende Sequenznummern finden“ die Option „Fehlende Sequenznummern einfügen“, um die fehlenden Zahlen einzufügen, oder „Leere Zeilen einfügen, wenn fehlende Sequenznummern auftreten“, um leere Zeilen nach Bedarf einzufügen. Siehe Screenshot:

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

Jetzt Kutools für Excel herunterladen und kostenlos testen!

Fehlende Zahlen für die Sequenz mit VBA-Code einfügen

Wenn Sie das Gefühl haben, dass es bei den oben genannten Methoden zu viele Schritte gibt, hier ist auch ein VBA-Code, der Ihnen helfen kann, dieses Problem zu lösen. Gehen Sie bitte wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, und es öffnet sich das Fenster Microsoft Visual Basic for Applications.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.

VBA: Fehlende Zahlen für die Sequenz einfügen

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. Drücken Sie dann die Taste F5, um diesen Code auszuführen, und es wird ein Eingabefenster angezeigt. Wählen Sie bitte den Datenbereich aus, in den Sie die fehlenden Zahlen einfügen möchten (wählen Sie nicht den Titelbereich aus), siehe Screenshot:

4. Klicken Sie dann auf OK, und die fehlenden Zahlen wurden in die Sequenzliste eingefügt. Siehe Screenshots:

Leere Zeilen für fehlende Sequenzen mit VBA-Code einfügen

Manchmal müssen Sie nur den Ort der fehlenden Zahlen lokalisieren und leere Zeilen zwischen den Daten einfügen, damit Sie die benötigten Informationen eingeben können. Natürlich kann Ihnen der folgende VBA-Code auch bei der Lösung dieses Problems helfen.

1. Halten Sie die Tasten ALT + F11 gedrückt, und es öffnet sich ein Fenster Microsoft Visual Basic for Applications.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.

VBA: Leere Zeilen für fehlende Sequenzen 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. Drücken Sie dann die Taste F5, um diesen Code auszuführen, und ein Eingabefenster wird angezeigt. Wählen Sie dann den Datenbereich aus, in den Sie leere Zeilen für die fehlenden Sequenzen einfügen möchten (wählen Sie nicht den Titelbereich aus), siehe Screenshot:

4. Klicken Sie dann auf OK, und die leeren Zeilen wurden für die Liste der fehlenden Sequenzen eingefügt. Siehe Screenshots:

Verwandter Artikel:

Wie identifiziert man fehlende Zahlenfolgen in Excel?