工作中,我们有时会遇到这样一种需求,需要将某一列中内容相同的单元格进行合并。例如下图中,需要将相同的部门进行合并,由表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-合并内容相同的单元格》对你有帮助,请点赞、收藏,并留下你的观点哦!