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

相关推荐
Tomorrow'sThinker18 小时前
[特殊字符] Python 批量生成词云:读取词频 Excel + 自定义背景 + Excel to.png 流程解析
python·excel
UrbanJazzerati1 天前
Excel 使用中的“坑”:拆分与合并列的陷阱及解决方案
excel
KeThink1 天前
国民经济行业分类 GB/T 4754—2017 (PDF和exce版本)
pdf·excel
_oP_i1 天前
Excel 的多线程特性
excel
V1ncent Chen2 天前
Excel基础:数据查看
excel
谁他个天昏地暗2 天前
Java 实现 Excel 文件对比与数据填充
java·开发语言·excel
梦想blog2 天前
Spring Boot + Easy Excel 自定义复杂样式导入导出
excel
UrbanJazzerati3 天前
使用Excel制作多类别占比分析字母饼图
excel
The Future is mine3 天前
Python实现文件夹中文件名与Excel中存在的文件名进行对比,并进行删除操作
excel
Tomorrow'sThinker3 天前
[特殊字符] Excel 读取收件人 + Outlook 批量发送带附件邮件 —— Python 自动化实战
python·excel·outlook