用VBA法在Exce中l快速批量合并相同内容

1、第一步
打开Excel中点击文件,点击选项,勾选下列选项
《用VBA法在Exce中l快速批量合并相同内容》
《用VBA法在Exce中l快速批量合并相同内容》《用VBA法在Exce中l快速批量合并相同内容》2、在任意工作表标签上右击选择,查看代码,进入下一步。
《用VBA法在Exce中l快速批量合并相同内容》
进入VBE界面以后,我们在工程窗口在,在工作表名称中标签上右击插入,选择插入模块
《用VBA法在Exce中l快速批量合并相同内容》
模块插好后,双击模块,粘贴如下代码:

Sub 合并单元格()
  
Dim a%, b%

Dim n As Long

n = Selection.Rows.Count '选中区域的行数

a = Selection.Row '选中区域的起始行

b = Selection.Column '选中区域的起始列

Application.DisplayAlerts = False '禁用警告提示

    For i = a + n - 1 To a + 1 Step -1 '从选中区域的最后一个单元格向上循环

        If Cells(i - 1, b) = Cells(i, b) Then '若当前单元格内容与上一个单元格内容相同,则

            Range(Cells(i - 1, b), Cells(i, b)).Merge '合并当前单元格和上一个单元格
    
    End If

    Next

Application.DisplayAlerts = True '恢复警告提示

End Sub

《用VBA法在Exce中l快速批量合并相同内容》代码粘贴完成后,需要关闭VBE编辑框,点X标记即可关闭。
在开发工具中点击控件插入一个按钮控件,在工作表中鼠标拖动一个大小合适的按钮
《用VBA法在Exce中l快速批量合并相同内容》右击新建的按钮,选择指定宏,选择我们合并单元格,即我们刚刚写的代码,然后点击确定完成

《用VBA法在Exce中l快速批量合并相同内容》《用VBA法在Exce中l快速批量合并相同内容》一切OK之后,在选中区域我们只需要轻轻点击一下按钮

《用VBA法在Exce中l快速批量合并相同内容》
《用VBA法在Exce中l快速批量合并相同内容》

    原文作者:dyw1353078512
    原文地址: https://blog.csdn.net/qq_34228115/article/details/122040051
    本文转自网络文章,转载此文章仅为分享知识,如有侵权,请联系博主进行删除。
点赞