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

相关推荐
星空的资源小屋1 天前
Digital Clock 4,一款免费的个性化桌面数字时钟
stm32·单片机·嵌入式硬件·电脑·excel
揭老师高效办公1 天前
在Excel和WPS表格中批量删除数据区域的批注
excel·wps表格
我是zxb1 天前
EasyExcel:快速读写Excel的工具类
数据库·oracle·excel
辣香牛肉面1 天前
[Windows] 搜索文本2.6.2(从word、wps、excel、pdf和txt文件中查找文本的工具)
word·excel·wps·搜索文本
ljf88382 天前
Java导出复杂excel,自定义excel导出
java·开发语言·excel
tebukaopu1482 天前
json文件转excel
json·excel
shizidushu2 天前
How to work with merged cells in Excel with `openpyxl` in Python?
python·microsoft·excel·openpyxl
Eiceblue2 天前
使用 C# 设置 Excel 单元格格式
开发语言·后端·c#·.net·excel
acaad2 天前
Apache Poi 实现导出excel表格 合并区域边框未完全显示的问题
spring·apache·excel
周杰伦fans2 天前
.NET 轻量级处理 Excel 文件库 - MiniExce
windows·.net·excel