VBA：单元格合并时内容也进行合并

最新推荐文章于 2024-07-03 11:22:14 发布

youngmiffy

最新推荐文章于 2024-07-03 11:22:14 发布

阅读量5.3k

点赞数 1

分类专栏： VBA EXCEL 文章标签： vba

本文链接：https://blog.csdn.net/youngmiffy/article/details/53188801

版权

一、功能

选中单元格，在进行合并时，单元格的内容也进行合并，而不只是保留左上角单元格。

二、代码示例

Sub hebing()
Dim s As String, c As Range
    If TypeName(Selection) = "Range" Then
        For Each c In Selection
        s = s & c.Value
        Next
      Application.DisplayAlerts = False
        Selection.Merge
        Selection.Value = s
      Application.DisplayAlerts = True