Zellen zusammenführen, ohne Text zu verlieren

Beschreibung

Angenommen, wir haben viele Zellen, die wir mit Text zusammenführen müssen. Im Standardsatz Excel gibt es eine ähnliche Funktion: "Zusammenführen und zentrieren" , aber bei der Vereinigung 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 Visual Basic-Editor (Alt+F11), Fügen Sie das Modul VBA ein (Insert - Module) und kopieren Sie den Text dieser Prozedur dorthin:

Sub MergeToOneCell()
    'moonexcel.com.ua
    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 erforderlichen Zellen aus und führen Sie unser Makro aus (Alt+F8) (Makroname: „MergeCell“).