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,合并后保持一列一换行的格式。

相关推荐
云只上7 小时前
前端插件使用xlsx-populate,花样配置excel内容,根据坐添加标替换excel内容,修改颜色,合并单元格...。
excel
小哥山水之间8 小时前
在 Python 中操作 Excel 文件
开发语言·python·excel
blog_wanghao10 小时前
C#: 创建Excel文件并在Excel中写入数据库中的数据
数据库·c#·excel
游客52017 小时前
自动化办公|通过xlwings进行excel格式设置
python·自动化·excel
喝西瓜汁的兔叽Yan17 小时前
第三方库XLSX: 前端上传excel文件,并对excel文件内容做校验。
前端·excel·xlsx
刘_sy1 天前
使用EasyExcel和多线程实现高效数据导出
java·excel·easyexcel·批量导出excel
PowerBI学谦2 天前
Copilot:Excel中的Python高级分析来了
python·excel·copilot
E-iceblue3 天前
Python 合并 Excel 单元格
python·excel·合并
sszdzq3 天前
Excel 合并列数据
excel
prince_zxill3 天前
Excel中不用复杂公式根据指定X列的数值N复制整行数据N行简单方法
excel