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

灰太狼 2023-10-04 17:18 17阅读 0赞

**1、第一步**  
打开Excel中点击文件，点击选项，勾选下列选项  
![在这里插入图片描述][4e083b74cb434d94af93ae76aa40bd40.png]  
![在这里插入图片描述][watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_20_color_FFFFFF_t_70_g_se_x_16]![在这里插入图片描述][watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_20_color_FFFFFF_t_70_g_se_x_16 1]2、在任意工作表标签上右击选择，查看代码，进入下一步。  
![在这里插入图片描述][watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_14_color_FFFFFF_t_70_g_se_x_16]  
进入VBE界面以后，我们在工程窗口在，在工作表名称中标签上右击插入，选择插入模块  
![在这里插入图片描述][watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_14_color_FFFFFF_t_70_g_se_x_16 1]  
模块插好后，双击模块，粘贴如下代码：

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

![在这里插入图片描述][watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_20_color_FFFFFF_t_70_g_se_x_16_pic_center]代码粘贴完成后，需要关闭VBE编辑框，点X标记即可关闭。  
在开发工具中点击控件插入一个按钮控件，在工作表中鼠标拖动一个大小合适的按钮  
![在这里插入图片描述][watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_20_color_FFFFFF_t_70_g_se_x_16_pic_center 1]右击新建的按钮，选择指定宏，选择我们合并单元格，即我们刚刚写的代码，然后点击确定完成

![在这里插入图片描述][watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_12_color_FFFFFF_t_70_g_se_x_16]![在这里插入图片描述][watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_12_color_FFFFFF_t_70_g_se_x_16 1]一切OK之后，在选中区域我们只需要轻轻点击一下按钮

![在这里插入图片描述][watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_19_color_FFFFFF_t_70_g_se_x_16]  
![在这里插入图片描述][watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_17_color_FFFFFF_t_70_g_se_x_16]

[4e083b74cb434d94af93ae76aa40bd40.png]: https://img-blog.csdnimg.cn/4e083b74cb434d94af93ae76aa40bd40.png
[watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_20_color_FFFFFF_t_70_g_se_x_16]: https://img-blog.csdnimg.cn/25460b7071b446a2a7c6b0be96679ac3.png?x-oss-process=image/watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBAZHl3MTM1MzA3ODUxMg==,size_20,color_FFFFFF,t_70,g_se,x_16
[watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_20_color_FFFFFF_t_70_g_se_x_16 1]: https://img-blog.csdnimg.cn/58dd69d2a9ac443d9436b2d552723a65.png?x-oss-process=image/watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBAZHl3MTM1MzA3ODUxMg==,size_20,color_FFFFFF,t_70,g_se,x_16
[watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_14_color_FFFFFF_t_70_g_se_x_16]: https://img-blog.csdnimg.cn/b53c22227893401d853c499565f0fec3.png?x-oss-process=image/watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBAZHl3MTM1MzA3ODUxMg==,size_14,color_FFFFFF,t_70,g_se,x_16
[watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_14_color_FFFFFF_t_70_g_se_x_16 1]: https://img-blog.csdnimg.cn/7ae1b97d9b9643e5905acdec8a455886.png?x-oss-process=image/watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBAZHl3MTM1MzA3ODUxMg==,size_14,color_FFFFFF,t_70,g_se,x_16
[watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_20_color_FFFFFF_t_70_g_se_x_16_pic_center]: https://img-blog.csdnimg.cn/8008eb26754943daa627f41f9492f074.png?x-oss-process=image/watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBAZHl3MTM1MzA3ODUxMg==,size_20,color_FFFFFF,t_70,g_se,x_16#pic_center
[watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_20_color_FFFFFF_t_70_g_se_x_16_pic_center 1]: https://img-blog.csdnimg.cn/7fcd852567aa41fab48d468858eb76e0.png?x-oss-process=image/watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBAZHl3MTM1MzA3ODUxMg==,size_20,color_FFFFFF,t_70,g_se,x_16#pic_center
[watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_12_color_FFFFFF_t_70_g_se_x_16]: https://img-blog.csdnimg.cn/916020d1096b48f6a73efddab9fe05d6.png?x-oss-process=image/watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBAZHl3MTM1MzA3ODUxMg==,size_12,color_FFFFFF,t_70,g_se,x_16
[watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_12_color_FFFFFF_t_70_g_se_x_16 1]: https://img-blog.csdnimg.cn/128469012cb6478ca0237255d2a1e507.png?x-oss-process=image/watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBAZHl3MTM1MzA3ODUxMg==,size_12,color_FFFFFF,t_70,g_se,x_16
[watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_19_color_FFFFFF_t_70_g_se_x_16]: https://img-blog.csdnimg.cn/f22c672c6ecc414a8ae868f3edfe9bd4.png?x-oss-process=image/watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBAZHl3MTM1MzA3ODUxMg==,size_19,color_FFFFFF,t_70,g_se,x_16
[watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBAZHl3MTM1MzA3ODUxMg_size_17_color_FFFFFF_t_70_g_se_x_16]: https://img-blog.csdnimg.cn/e919c79c55d34302bc035307aba2ac4b.png?x-oss-process=image/watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBAZHl3MTM1MzA3ODUxMg==,size_17,color_FFFFFF,t_70,g_se,x_16