Zellen zusammenführen, ohne Text zu verlieren

Beschreibung

Angenommen, wir haben viele Zellen, die wir mit Text zusammenführen müssen. Der Standardsatz Excel hat eine ähnliche Funktion: „Zusammenführen und zentrieren“, aber beim Zusammenführen bleibt nur der Text der äußersten Zelle übrig. Daher müssen wir für solche Zwecke unser eigenes Makro verwenden.

VBA-Code für das Makro

Öffnen Sie dazu den Editor Visual Basic (Alt+F11), fügen Sie VBA module (Insert - Module) ein und kopieren Sie dort den Text dieser Funktion:

Sub MergeCell()
    Const sDELIM    As String = " "
    Dim   rCell     As Range
    Dim   sMergeStr As String
    
    If TypeName(Selection) <> "Range" Then Exit Sub
    
    With Selection
        For Each rCell In .Cells
            sMergeStr = sMergeStr & sDELIM & rCell.Text
        Next rCell
        
        Application.DisplayAlerts = False
        .Merge Across:=False
        Application.DisplayAlerts = True
        
        .Item(1).Value = Mid(sMergeStr, 1 + Len(sDELIM))
    End With
End Sub

Speichern und zu Excel zurückkehren.

Wählen Sie nun die gewünschten Zellen aus und führen Sie unser Makro (Alt+F8) aus (Makroname: „MergeCell“).