Wie fügt man in Excel fehlende fortlaufende Nummern oder Zeilen ein?
Angenommen, Sie haben eine Liste fortlaufender Nummern in einem Arbeitsblatt, doch einige Nummern fehlen in der Sequenz. Wie fügen Sie die fehlenden Nummern oder leeren Zeilen schnell ein, um die lückenlose Vollständigkeit der Sequenz sicherzustellen (siehe folgende Screenshots)?
Fehlende Nummern für eine Sequenz mithilfe der Sortier- und Duplikate entfernen-Funktion einfügen
Möglicherweise finden Sie die fehlenden Nummern einzeln und fügen sie manuell ein – doch bei Hunderten fortlaufender Nummern wird es schwierig, die genauen Positionen der Lücken zu identifizieren. In Excel können Sie diese Aufgabe ganz einfach mit der Sortier- und der Funktion „Duplikate entfernen“ erledigen.
1. Füllen Sie am Ende der Sequenzliste eine weitere aufeinanderfolgende Zahlenreihe von 2005023001 bis 2005023011 aus. Siehe Screenshot:
2. Wählen Sie anschließend den Bereich mit den beiden aufeinanderfolgenden Zahlen aus und klicken Sie auf Daten > Aufsteigend. Siehe Screenshot:
3. Und die Daten wurden wie im folgenden Screenshot sortiert ausgewählt:
4. Klicken Sie anschließend auf Daten > Duplikate entfernen, um Duplikate zu löschen. Aktivieren Sie im daraufhin angezeigten Duplikate entfernen-Dialogfeld die Spalte, deren Duplikate Sie entfernen möchten. Siehe Screenshots:
 |  |  |
5. Klicken Sie dann auf OK. Die Duplikate in Spalte A wurden gelöscht und die fehlenden Nummern in der Sequenzliste eingefügt. Siehe Screenshot:
Fehlende Nummern oder Leere Zeilen für eine Sequenz mit Kutools für Excel einfügen
Hier stelle ich ein einfaches und praktisches Werkzeug vor – Kutools für Excel. Mit seiner Fehlende Sequenz finden-Funktion können Sie schnell fehlende Sequenznummern oder leere Zeilen in die vorhandene Datenreihe einfügen.
Wenn Sie Kutools für Excelinstalliert haben, gehen Sie wie folgt vor:
1. Wählen Sie die Datenreihe aus, in die Sie die fehlenden Nummern einfügen möchten.
2. Klicken Sie auf Kutools > Einfügen > Fehlende Sequenz finden. Siehe Screenshot:
3. Aktivieren Sie im Fehlende Sequenz finden-Dialogfeld Fehlende Daten einfügen, um die fehlenden Nummern einzufügen, oder wählen Sie „Leere Zeilen einfügen, wenn fehlende aufeinanderfolgende Zahlen auftreten“, um leere Zeilen entsprechend Ihren Anforderungen einzufügen. Siehe Screenshot:
4. Klicken Sie anschließend auf die Schaltfläche OK. Die fehlenden aufeinanderfolgenden Zahlen oder leeren Zeilen wurden in die Daten eingefügt. Siehe Screenshots:
 | |  | |  |
Kutools für Excel jetzt herunterladen und kostenlos testen!
Fehlende Nummern für eine Sequenz mithilfe von VBA-Code einfügen
Wenn Ihnen die oben genannten Methoden zu umständlich erscheinen, bietet Ihnen ein VBA-Code eine elegante Lösung. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt. Dadurch ö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 Modul-Fenster ein.
VBA: Fehlende Nummern 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 anschließend die Taste F5, um diesen Code auszuführen. Es erscheint ein Eingabefeld – bitte wählen Sie den Datenbereich aus, in den Sie die fehlenden Nummern einfügen möchten (markieren Sie dabei nicht die Bereichstitel). Siehe Screenshot:
4. Klicken Sie anschließend auf OK. Die fehlenden Nummern wurden in die Sequenzliste eingefügt. Siehe Screenshots:
 | |  |
Leere Zeilen für fehlende Sequenz mithilfe von VBA-Code einfügen
Manchmal müssen Sie lediglich die Position der fehlenden Nummern ermitteln und leere Zeilen zwischen die vorhandenen Daten einfügen, um Ihre gewünschten Informationen hinzuzufügen. Selbstverständlich unterstützt Sie auch der folgende VBA-Code bei der Lösung dieses Problems.
1. Halten Sie die Tasten ALT + F11 gedrückt. Dadurch öffnet sich das Fenster Microsoft Visual Basic for Applications.
2. Klicken Sie auf Einfügen>Modul, und fügen Sie den folgenden Code im Modul-Fenster ein.
VBA: Leere Zeilen 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. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Es erscheint ein Eingabefeld. Wählen Sie danach den Datenbereich aus, für den Sie leere Zeilen bei fehlender Sequenz einfügen möchten (markieren Sie dabei nicht die Bereichstitel). Siehe Screenshot:
4. Klicken Sie anschließend auf OK. Die leeren Zeilen wurden für die fehlende Sequenzliste eingefügt. Siehe Screenshots:
| |  |
Verwandter Artikel:
Wie erkennt man fehlende Nummern in einer Sequenz in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins