Wie kann man Zellwerte in Excel so lange verketten, bis eine leere Zelle in einer Spalte gefunden wird?

Zum Beispiel habe ich eine Liste von Werten, die einige leere Zellen enthält, und ich möchte jede Gruppe von Daten zwischen den Leerstellen in eine Zelle zusammenführen und die kombinierten Werte in einer anderen Spalte auflisten, wie im folgenden Screenshot gezeigt. Wie könnte ich Zellen so lange verketten, bis eine leere Zelle in einer Spalte gefunden wird?

Zellwerte so lange verketten, bis eine leere Zelle in einer Spalte mit VBA-Code gefunden wird

Zellwerte so lange verketten, bis eine leere Zelle in einer Spalte mit Kutools für Excel gefunden wird

Zellwerte so lange verketten, bis eine leere Zelle in einer Spalte mit VBA-Code gefunden wird

Es gibt keinen direkten Weg, um eine Reihe von Zellen zwischen Leerstellen zu verketten, aber Sie können den folgenden VBA-Code anwenden, um damit umzugehen. Bitte gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Zellwerte so lange verketten, bis eine leere Zelle gefunden wird

Sub Concatenatecells()
'updateby Extendoffice
    Dim xRg As Range
    Dim xSaveToRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xTStr As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
        MsgBox "the selected range is more than one column", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    Set xSaveToRg = Application.InputBox("Please select output cell:", "Kutools for Excel", , , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    Set xSaveToRg = xSaveToRg.Cells(1)
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell <> "" Then
            xTStr = xTStr & xCell & " "
        Else
            xSaveToRg.Value = xTStr
            Set xSaveToRg = xSaveToRg.Offset(1)
            xTStr = ""
        End If
    Next
    If xTStr <> "" Then xSaveToRg.Value = Left(xTStr, Len(xTStr) - 1)
    Application.ScreenUpdating = True
End Sub

3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und ein Eingabeaufforderungsfenster erscheint, das Sie auffordert, den Datenbereich auszuwählen, den Sie verketten möchten, siehe Screenshot:

4. Klicken Sie dann auf OK, und ein weiteres Eingabeaufforderungsfenster erscheint. Bitte wählen Sie eine Zelle aus, um das verkettete Ergebnis auszugeben, siehe Screenshot:

5. Klicken Sie dann auf die Schaltfläche OK, und die Spaltenlisten-Daten werden zwischen den Leerstellen verkettet, siehe Screenshot:

Zellwerte so lange verketten, bis eine leere Zelle in einer Spalte mit Kutools für Excel gefunden wird

Wenn Sie Kutools für Excel haben, können Sie durch die Kombination seiner Funktionen „Bereich transformieren“ und „Konsolidieren“ diese Aufgabe so schnell wie möglich erledigen. Das Hilfsprogramm „Bereich transformieren“ kann Ihnen helfen, eine einzelne Spalte in einen Bereich umzuwandeln, und die Funktion „Konsolidieren“ kann Ihnen helfen, den transformierten Bereich in eine Spalte zu verketten.

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Wählen Sie die Zellen aus, die Sie verketten möchten, und klicken Sie auf Kutools > Bereich > Bereich transformieren, siehe Screenshot:

2. Aktivieren Sie im Dialogfeld „Bereich transformieren“ die Option „Einzelne Spalte zu Bereich“ unter „Transformationsart“, und wählen Sie anschließend „Durch Leerzeichen getrennt“ unter „Zeilen pro Datensatz“, siehe Screenshot:

3. Klicken Sie dann auf OK, und ein Eingabeaufforderungsfeld wird angezeigt, das Sie auffordert, eine Zelle zur Ausgabe des Ergebnisses auszuwählen, siehe Screenshot:

4. Klicken Sie auf OK, und die Daten der einzelnen Spalten wurden durch die leere Zelle in mehrere Zeilen und Spalten umgewandelt, siehe Screenshot:

5. Die konvertierten Daten befinden sich in mehreren Spalten, daher müssen Sie sie in eine Spalte zusammenführen. Wählen Sie den Datenbereich aus und klicken Sie auf Kutools > Zusammenführen & Aufteilen > Zeilen/Spalten/Zellen zusammenführen und Werte beibehalten, siehe Screenshot:

6. Nehmen Sie im Dialogfeld „Spalten oder Zeilen zusammenführen“ die folgenden Einstellungen vor:

(1.) Wählen Sie die Option „Spalten kombinieren“ aus „Den ausgewählten Bereich wie folgt zusammenführen“;

(2.) Geben Sie dann ein Trennzeichen an, das Sie verwenden möchten, um die verketteten Werte zu trennen;

(3.) Wählen Sie aus, wie Sie mit den kombinierten Zellen verfahren möchten. Sie können die Originaldaten behalten oder löschen und Sie können auch die kombinierten Zellen zusammenführen. Siehe Screenshot:

7. Nachdem Sie die Einstellungen abgeschlossen haben, klicken Sie auf die Schaltfläche OK oder Anwenden, und die Zellen wurden mit einem bestimmten Trennzeichen in eine Spalte verkettet, siehe Screenshot: