工作中,我们有时会遇到这样一种需求,需要将某一列中内容相同的单元格进行合并。例如下图中,需要将相同的部门进行合并,由表1转换为表2。如果你需要经常处理这种需求,就可以自定义一个功能放到Excel的自定义功能区里。比如我们把这种需求叫做“同类合并”
编写功能代码模块
整体思路:遍历选择的区域,判断前后单元格内容是否相同,如果相同合并单元格,如果不同跳过。
Sub 同类合并()
Dim r As Long, nRow As Long
Application.DisplayAlerts = False '关闭提示,如果不关闭会反复提示是否合并单元格
Application.ScreenUpdating = False '关闭屏幕刷新,避免程序执行过程中屏幕卡顿
With Selection
nRow = 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 If
Next
End With
Application.DisplayAlerts = True '重新打开提示功能
Application.ScreenUpdating = True '重新打开屏幕刷新
End Sub
在Excel功能区添加按钮
使用RibbonXMLEditor可以快速在Excel功能区创建一个按钮。关于RibbonXMLEditor的使用方法可以参考我的另一篇文章《RibbonXMLEditor_8.0工具使用介绍》。
<?xml version="1.0" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/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>