Excel合并同列重复项并居中

瘦的不像程序员

于 2020-03-09 20:53:18 发布

阅读量2k

点赞数 1

文章标签： excel

本文链接：https://blog.csdn.net/weixin_45647889/article/details/104760793

版权

本文介绍了一种使用VB宏在Excel中合并重复项的方法。通过新建一个名为wrj的宏，可以实现对第一和第二列中重复项的自动合并，提高了数据处理效率。

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

背景：现一个Excel同列下有很多重复项，如下图所示：
需求：将第一第二列内的重复项合并。
在这里插入图片描述
解决方案：
和第一个帖子一样，新建命名为wrj的VB宏，代码及图如下：

Sub wrj()
    Dim RowNumber As Integer
    Dim i As Integer
    Application.DisplayAlerts = False
    With Sheet1
        RowNumber = .Range("A65536").End(xlUp).Row
        For i = RowNumber To 2 Step -1
            If .Cells(i, 2).Value = .Cells(i - 1, 2).Value Then
                .Range(.Cells(i - 1, 2), .Cells(i, 2)).Merge
            End If
        Next
    End With
    Application.DisplayAlerts = True
End Sub