合并指定相邻格后，里面内容合并

leepoison

Sub MergeCellsAndCombineContents()
    Dim cell As Range
    Dim combinedContent As String
    Dim selectedRange As Range

    ' 获取用户选择的范围
    Set selectedRange = Selection

    ' 初始化合并的内容
    combinedContent = ""

    ' 遍历选择的单元格并拼接内容
    For Each cell In selectedRange
        combinedContent = combinedContent & cell.Value
    Next cell

    ' 合并单元格
    With selectedRange
        .Merge
        .Value = combinedContent
    End With
End Sub



使用方法
A1=1  B1=2  C1=3
选择A1:C1,然后运行MergeCellsAndCombineContents  获得一个合并格子，里面内容为123


如果格子不相连，   A1=1      C1=3
选择A1 和C1,则A1  C1 同时=13