工作中，我们有时会遇到这样一种需求，需要将某一列中内容相同的单元格进行合并。例如下图中，需要将相同的部门进行合并，由表1转换为表2。如果你需要经常处理这种需求，就可以自定义一个功能放到Excel的自定义功能区里。比如我们把这种需求叫做“同类合并”
编写功能代码模块
整体思路：遍历选择的区域，判断前后单元格内容是否相同，如果相同合并单元格，如果不同跳过。
Sub 同类合并()Dim r As Long, nRow As LongApplication.DisplayAlerts = False '关闭提示，如果不关闭会反复提示是否合并单元格Application.ScreenUpdating = False '关闭屏幕刷新，避免程序执行过程中屏幕卡顿With SelectionnRow = Selection.Rows.Count '获取行数For r = nRow - 1 To 1 Step -1 '遍历所有选中的行，但是要注意这里一定要倒序遍历If Selection.Cells(r, 1) = Selection.Cells(r + 1, 1) Then '判断前后单元格内容是否相同Range(Selection.Cells(r, 1), Selection.Cells(r + 1, 1)).Merge '如果相同执行合并单元格End IfNextEnd WithApplication.DisplayAlerts = True '重新打开提示功能Application.ScreenUpdating = True '重新打开屏幕刷新End Sub
在Excel功能区添加按钮
使用RibbonXMLEditor可以快速在Excel功能区创建一个按钮。关于RibbonXMLEditor的使用方法可以参考我的另一篇文章《RibbonXMLEditor_8.0工具使用介绍》。
<?xml version="1.0" standalone="yes"?><customUI xmlns="/office//01/customui"><ribbon startFromScratch="false"><tabs><tab id="tab1" label="超级工具箱"><group id="grp1" label="单元格工具"><button id="but1" label="同类合并" onAction="同类合并" imageMso="CellStylesMerge" size="large"/></group></tab></tabs></ribbon></customUI>
如果觉得《超实用Excel VBA工具箱1-合并内容相同的单元格》对你有帮助，请点赞、收藏，并留下你的观点哦！
