Excel批量合并相同内容的单元格！

自我提升也是一种修养数万Excel爱好者聚集地

2021年2月10日 周三

【Excel情报局｜文案回收铺子】

在心情最糟糕的时候
仍会按时吃饭

早睡早起，自律如昔
这样的人才是能扛事的人

人事再乱，打不乱你心
人不需要有那么多过人之处

能扛事就是才华横溢

如下图所示，如何批量将左图中A列相同的组别合并显示成右图F列那样呢？

普通青年说了，相同的一部分一部分选中，点击合并单元格不就行了。但是如果数据量很大，那就惨了。

我们可以利用一段VBA代码，瞬间批量完成这种操作。

右击工作表-查看代码-复制粘贴代码至VBA代码窗口-点击运行-弹出选择单列数据列对话框-选中A列-确定完成即可。

复制粘贴如下代码即可：

Sub MergeRange()

Dim rngData As Range

Dim i&, lngCol&, lngFirst, lngLast

On Error Resume Next

Set rngData = Application.InputBox("请选择单列数据列！", Default:=Selection.Address, Type:=8)

Set rngData = Intersect(rngData.Parent.UsedRange, rngData)

lngCol = rngData.Column 'rngData所在列

lngFirst = rngData.Row

lngLast = lngFirst + rngData.Rows.Count - 1

Application.ScreenUpdating = False

Application.DisplayAlerts = False

rngData.Parent.Select

For i = lngLast To lngFirst + 1 Step -1

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

Cells(i - 1, lngCol).Resize(2, 1).Merge

End If

Next

rngData.VerticalAlignment = xlCenter

Application.ScreenUpdating = True

Application.DisplayAlerts = True

MsgBox "合并完成。"

End Sub

视频演示：

286期（个）Office技巧学习视频

免费打包下载方式

百度云下载链接：

https://pan.baidu.com/s/1VzuHfu9LTgYokcb6b4w4mQ

扫描下方二维码 关注公众号

上方公众号后台聊天窗口

回复关键字

“我要学习”

获取下载 提取码

阅读完文章之后，希望大家在文末帮我点亮“在看”按钮，坚持的路上需要有你们的鼓励

如何在【Excel情报局】微信公众号内通过输入关键字搜索历史文章？

常识普及：

①第1步：进入【Excel情报局】微信公众号，点击底部菜单“情报.xls”

②第2步：点击“历史文章”按钮

③第3步：顶部搜索框内输入你要搜索的关键字，比如“合并”，点击确定，进行搜索。参照下面视频操作：

相互尊重，抱团成长。

Excel2016版安装包(含永久激活工具) 百度网盘

下载链接：
https://pan.baidu.com/s/11eE-oGEyHojXHoYSuDbBAA