excel合并多列单元格并保留数据

vbscript 复制代码
Sub 合并多个单元格并保留数据()

    Dim rng As Range

    Dim val As String

    Dim cell As Range

    Set rng = Selection

    If rng.Cells.Count <= 1 Then

        Exit Sub

    End If

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

    For Each cell In rng

        If cell.Value <> "" Then

            val = val & cell.Value & vbNewLine

        End If

        Next cell

    With rng

        .Merge

        .Value = Trim(val)

        .WrapText = True

    End With

    Application.ScreenUpdating = True

    Application.DisplayAlerts = True

End Sub

在excel中可以启用宏【alt+F11】新建模块,选中所需单元格【alt+F8】完成多列单元格合并操作.

参考:如何在excel中插入和运行VBA

Excel技巧:如何合并多个单元格而不丢失数据?

根据需求更改了 val = val & cell.Value & vbNewLine,合并后保持一列一换行的格式。

相关推荐
全干engineer39 分钟前
Spring Boot 实现主表+明细表 Excel 导出(EasyPOI 实战)
java·spring boot·后端·excel·easypoi·excel导出
Fireworkitte1 小时前
Java 中导出包含多个 Sheet 的 Excel 文件
java·开发语言·excel
chemddd8 小时前
excel 工作需要会的
excel
醇氧10 小时前
【wps】 excel 删除重复项
excel·wps
盛夏绽放18 小时前
Vue3 中 Excel 导出的性能优化与实战指南
vue.js·excel
Tomorrow'sThinker21 小时前
[特殊字符] Python 自动查找替换 Excel 单元格内容 —— 高效批量处理
excel
Shipley Leo21 小时前
如何在Excel中每隔几行取一行
excel
bing_15821 小时前
Excel 数据透视表不够用时,如何处理来自多个数据源的数据?
excel
想要入门的程序猿1 天前
Qt写入excel
数据库·qt·excel
爱代码的小黄人2 天前
Excel VLOOKUP函数使用详解:原理、格式、常见错误与解决方案
excel