Wie kann ich nach dem Filtern in Excel automatisch nummerieren oder neu nummerieren?
Wie wir alle wissen, werden nach dem Filtern der Daten mit einer Liste von Seriennummern die Zeilennummern im Arbeitsblatt genauso angezeigt wie die ursprünglichen Nummern. Sie werden nicht automatisch neu nummeriert. Manchmal möchten Sie die Zeilen jedoch wie folgt in dem gefilterten Arbeitsblatt als Reihenfolge neu nummerieren. In diesem Artikel werde ich darüber sprechen, wie man nach dem Filtern in Excel automatisch nummeriert oder neu nummeriert.
Automatische Nummerierung oder Nachnummerierung nach Filterung mit VBA-Code
Automatische Nummerierung oder Nachnummerierung nach Filterung mit Kutools for Excel
 |
 |
 |
Automatische Nummerierung oder Nachnummerierung nach Filterung mit VBA-Code
Im gefilterten Status können Sie das Autofill-Handle nicht anwenden, um die Zahlenfolge zu füllen. Sie können sie nur füllen, indem Sie die Zahlen einzeln eingeben. Dies ist jedoch mühsam und zeitaufwändig, wenn viele Zellen neu nummeriert werden müssen. Hier werde ich einen VBA-Code einführen, um diese Aufgabe zu lösen.
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 das folgende Makro in das Feld ein Modulfenster.
VBA-Code: Automatische Nummerierung oder Nachnummerierung nach dem Filter
Sub Renumbering()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1).SpecialCells(xlCellTypeVisible)
xIndex = 1
For Each Rng In WorkRng
Rng.Value = xIndex
xIndex = xIndex + 1
Next
End Sub
3. Nach dem Einfügen des Codes drücken Sie bitte F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, dass Sie Bereichszellen auswählen, die Sie automatisch nummerieren oder die Zeilen neu nummerieren möchten.
4. Dann klick OKund Ihre ausgewählten Bereichszellen wurden nacheinander wie im folgenden Screenshot neu nummeriert:
Note: Dieser Code zerstört die ursprünglichen Serienzeilennummern, wenn Sie die Filterfunktion abbrechen. Sie müssen also zuerst Ihre Daten sichern.
Automatische Nummerierung oder Nachnummerierung nach Filterung mit Kutools for Excel
Wenn Sie installiert haben Kutools for Excel, mit seiner mächtigen Sequenznummer einfügen Mit dieser Funktion können Sie Sequenznummern nur schnell und einfach in die gefilterten Daten 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. |
Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor:
1. Wählen Sie die Zellen aus, die Sie für die gefilterten Daten neu nummerieren möchten.
2. Dann klick Kutoolen > Insert > Sequenznummer einfügen, siehe Screenshot:
3. Dann tauchte der auf Sequenznummer einfügen Dialogfeld, klicken Sie auf Neu Schaltfläche, siehe Screenshot:
4. Erstellen Sie dann die Sequenzlistennummern nach Bedarf im linken unteren Bereich, siehe Screenshot:
5. Klicken Sie nach dem Einstellen der Reihenfolge auf Speichern Klicken Sie auf die Schaltfläche, und das Sequenzelement wurde dem Dialogfeld hinzugefügt. Siehe Screenshot:
6. Und dann klick Füllbereich, und die gefilterten Daten wurden sofort neu nummeriert. Siehe Screenshot:
Laden Sie Kutools for Excel jetzt herunter und testen Sie es kostenlos!
Demo: Automatische Nummerierung oder Neunummerierung nach Filterung mit Kutools for Excel
In Verbindung stehender Artikel:
Wie nummeriere ich zusammengeführte Zellen in Excel automatisch?
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!
