Excel合并单元格并保留所有单元格内容

一般情况下，在Excel中合并单元格的时候，Excel只会保留合并区间第一个单元格的内容，并删除其他单元格的内容进行合并。

如果想要实现在合并单元格的时候能自动进行单元格内容的合并，可以通过VBA实现。

示例代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'@知乎 米可爱分享
'https://www.zhihu.com/people/meekou
Sub Merge(rng As Range)
    Dim current As Range
    Dim result As String
    result = ""
    Dim target As Range
    Application.DisplayAlerts = False
    For Each current In rng
        If result = "" Then
            Set target = current
            result = result & current.Text
        Else
            result = result & Chr(10) & current
        End If
    Next
    rng.Merge
    target.Value = result
    Application.DisplayAlerts = True
End Sub

Sub MergeTest()
    Merge Range("A1:A2")
End Sub

发布