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
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 Datum > 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 Datum > 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.
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:
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?
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
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!