vba批量合并指定的sheet_摆脱低效！教你三步实现excel首列重复项批量合并单元格...

我们日常办公中经常遇到需要把excel中某列单元格进行批量合并的需求，当然在数据量比较少的情况下，我们手工逐个进行合并单元格即可，但当数据量比较大甚至海量的时候，往往会令我们挠头，今天在这个给大家分享一个《excel首列重复项批量合并单元格》的技巧。

目标：快速实现实现excel首列重复项批量合并，如下图：

大数据量前提下快速实现左至右的变化

步骤一：打开要处理的excel文件(如要合并的列不在首列，可以先将其粘贴到首列，处理后再粘 贴回来)

步骤二：按Alt + F11，打开VBA ，如图：

步骤三：选中需要处理的sheet，右键>插入>模块

步骤四：粘贴如下代码并执行
Sub MyMerge()

Dim I%

Application.DisplayAlerts = False

For I = [A65536].End(3).Row To 2 Step -1

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

Range("A" & I & ":A" & I - 1).Merge

End If

Next

Application.DisplayAlerts = True

End Sub

搞定，收工！

希望能帮助到你，以后小虾米将会在此陆续分享日常办公中常用的一些小技巧、比较不知名但很好用软件、工具，欢迎关注。

让我们的工作更高效，让我们的生活更美好！