Wie kann man „Zusammengeführt“ in Excel automatisch nummerieren?
Wie können wir fortlaufende Zahlen in eine Liste unterschiedlich großer zusammengeführter Zellen in Excel einfügen? Als Erstes denken wir natürlich daran, den AutoAusfüll-Griff zu ziehen, um die zusammengeführten Zellen auszufüllen. In diesem Fall erhalten wir jedoch die folgende Warnmeldung und können die zusammengeführten Zellen nicht ausfüllen.
Da der Ausfüllgriff Zusammenführen nicht unterstützt, stelle ich hier einige alternative Methoden zur Lösung dieses Problems vor.
Zusammengeführt mit VBA-Code automatisch nummerieren / ausfüllen
Zusammengeführt mit VBA-Code automatisch nummerieren / ausfüllen
Der folgende VBA-Code ermöglicht es Ihnen, ausgewählte zusammengeführte Zellen schnell zu nummerieren. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Zusammengeführt automatisch nummerieren
Sub NumberCellsAndMergedCells()
'Update 20141028
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)
xIndex = 1
Set Rng = WorkRng.Range("A1")
Do While Not Intersect(Rng, WorkRng) Is Nothing
Rng.Value = xIndex
xIndex = xIndex + 1
Set Rng = Rng.MergeArea.Offset(1)
Loop
End Sub
3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Es erscheint ein Eingabefeld, in dem Sie die gewünschte Zusammenführung auswählen können (siehe Screenshot):
4. Nachdem Sie die zusammengeführten Zellen ausgewählt haben, klicken Sie auf OK. Ihre ausgewählten zusammengeführten Zellen wurden nun mit fortlaufenden Nummern gefüllt (siehe Screenshot):
Verwandte Artikel:
Wie kann man nach dem Filtern in Excel automatisch nummerieren oder neu nummerieren?
Wie kann man in Excel schnell benachbarte Zeilen mit identischen Daten zusammenführen?
Wie hebt man die Zusammenführung von Zellen auf und füllt dabei doppelte Werte in Excel aus?
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