VBA合并EXCEL单元格并保留单元格中所有内容

合并EXCEL单元格并保留单元格中所有内容

Sub MergeCellsAndValues()
    Dim rng As Range
    Dim strResult As String
    On Error Resume Next
    For Each rng In Selection
        strResult = strResult & rng.Value & " " & vbCrLf
    Next rng
    strResult = Left(strResult, Len(strResult) - 2)
    
    With Selection
        .Clear
        .Cells(1).Value = strResult
        .Merge
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
        .WrapText = True
    End With
End Sub