VBA相同内容批量合并单元格

收藏于 : 2022-06-23 17:43 被转藏 : 4

Excel中为了表格的简捷，通常相同的内容进行合并，如何批量进行？

>>>> 例：对下面表格的相同姓名进行合并

本例使用VBA进行运算

step1.表格分析

'相当于数据表最后一行向上ctrl ↑

step2.建立VBA代码

建立一个模块，并建立一个合并过程，编写对应的代码，如下所示：

VBA代码

Sub 合并()

Dim ln%, i%

Application.DisplayAlerts = False

ln = [A65536].End(xlUp).Row

For i = ln To 2 Step -1

If Cells(i, 1) = Cells(i - 1, 1) Then

Range(Cells(i - 1, 1), Cells(i, 1)).Merge

End If

Application.DisplayAlerts = True

End Sub

将文件另存为xlsm格式，要不然重新打开这段代码就消失了！

step3.运行结果

在【开始】-【开发工具】-【宏】

选择宏名为合并，并运行，直接就合并了！

如果你的数据源不是在A列，在其他列，这段代码就没用了。

那么如何使用这段代码在任意列都能用呢？

各位朋友可以思考下，有好的想法留言或后台发送吧！

===========================

阅读文章全部内容
点击查看

特别重申：本篇文档资料为 “好网角收藏夹” 注册用户(收藏家)上传共享，仅供参考之用，请谨慎辨别，不代表本站任何观点。好网角收藏夹为网友提供资料整理云存储服务，仅提供信息存储共享平台。
如发现不良信息删除、涉嫌侵权，请点击这里举报 ,或发送邮件到：dongye2016qq.com。