超实用Excel VBA工具箱1-合并内容相同的单元格

南柯一新梦

已于 2023-06-22 21:51:51 修改

阅读量2.9k

点赞数 6

文章标签： excel

于 2023-06-22 21:50:31 首次发布

本文链接：https://blog.csdn.net/NanKelgz/article/details/131343069

版权

文章介绍了如何在Excel中编写VBA宏来实现同一列内容相同单元格的合并。通过关闭提示和屏幕刷新优化处理速度，然后提供了一个倒序遍历并判断内容的宏代码示例。此外，还提到了使用RibbonXMLEditor在功能区添加自定义按钮的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

工作中，我们有时会遇到这样一种需求，需要将某一列中内容相同的单元格进行合并。例如下图中，需要将相同的部门进行合并，由表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>