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

最新推荐文章于 2025-03-13 22:23:38 发布

我是一个球gogogog

最新推荐文章于 2025-03-13 22:23:38 发布

阅读量573

点赞数 3

本文链接：https://blog.csdn.net/weixin_45795285/article/details/137073720

版权

合并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