Wie kann man Zellen in Excel aufteilen und mit doppelten Werten füllen?

Wenn Sie ein Arbeitsblatt haben, das zahlreiche zusammengeführte Zellen enthält, und Sie diese nun aufteilen und automatisch die ursprünglichen Werte aus den zusammengeführten Zellen nach unten ausfüllen möchten, wie in den folgenden Screenshots gezeigt. Wie könnten Sie diese Aufgabe schnell erledigen?

Zellen aufteilen und mit doppelten Daten füllen mit dem Befehl 'Gehe zu speziell'

Zellen aufteilen und mit doppelten Daten füllen mit VBA-Code

Zellen aufteilen und mit doppelten Daten füllen mit einem Klick

Zellen aufteilen und mit doppelten Daten füllen mit dem Befehl 'Gehe zu speziell'

Mit dem Befehl 'Gehe zu speziell' können Sie Zellen aufteilen und Werte nach unten ausfüllen. Diese Methode ist jedoch etwas umständlich, bitte folgen Sie den folgenden Schritten:

1. Wählen Sie die Spalten aus, die zusammengeführte Zellen enthalten.

2. Klicken Sie auf Start > Zentriert zusammenführen > Zellen aufteilen. Siehe Screenshot:

3. Die zusammengeführten Zellen wurden aufgeteilt und nur die erste Zelle wird mit den ursprünglichen Werten gefüllt. Wählen Sie dann den Bereich erneut aus.

4. Klicken Sie dann auf Start > Suchen & Auswählen > Gehe zu speziell. Wählen Sie im Dialogfeld 'Gehe zu speziell' die Option ' Leer'. Siehe Screenshot:

5. Klicken Sie dann auf OK, alle leeren Zellen im Bereich werden ausgewählt. Geben Sie dann = ein und drücken Sie die Pfeil-nach-oben-Taste auf der Tastatur. Siehe Screenshot:

6. Drücken Sie dann die Tastenkombination Strg + Eingabetaste, alle leeren Zellen werden mit den ursprünglich zusammengeführten Daten gefüllt. Siehe Screenshot:

Zellen aufteilen und mit doppelten Daten füllen mit VBA-Code

Mit dem folgenden VBA-Code können Sie die Zellen schnell aufteilen und die Werte nach unten ausfüllen.

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 das folgende Makro im Modulfenster ein.

Sub UnMergeSameCell()
'Upadateby Extendoffice
Dim Rng As Range, xCell As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Rng In WorkRng
    If Rng.MergeCells Then
        With Rng.MergeArea
            .UnMerge
            .Formula = Rng.Formula
        End With
    End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen; ein Dialogfeld wird angezeigt, um einen Bereich zur Bearbeitung auszuwählen, siehe Screenshot:

4. Klicken Sie auf OK, dann wurden die zusammengeführten Zellen aufgeteilt und die ursprünglich zusammengeführten Werte automatisch nach unten ausgefüllt.

Zellen aufteilen und mit doppelten Daten füllen mit einem Klick

Mit dem Hilfsprogramm 'Unmerge Cell' von Kutools für Excel können Sie Zellen mit einem Klick aufteilen und mit doppelten Daten füllen. Diese Methode ist sehr einfach und praktisch.

Nach der Installation von Kutools für Excel können Sie wie folgt vorgehen:

1. Wählen Sie die Spalten aus, die Sie aufteilen und deren Daten Sie nach unten ausfüllen möchten.

2. Klicken Sie auf Kutools > Zusammenführen & Aufteilen > Zellen aufteilen & Werte ausfüllen, siehe Screenshot:

3. Und die zusammengeführten Zellen wurden aufgeteilt und sofort mit den doppelten Werten gefüllt. Siehe Screenshots:

Zellen aufteilen und mit doppelten Daten füllen mit Kutools für Excel

Verwandter Artikel:

Benachbarte Zeilen mit denselben Daten in Excel zusammenführen