Excel合并同列重复项并居中

Excel合并同列重复项并居中背景:现一个Excel同列下有很多重复项,入下图所示:需求:将第一第二列相关重复项合并,并居中。解决方案:和第一个帖子一样,新建命名为wrh的VB宏,代码及图如下:Subwrj()DimRowNumberAsIntegerDimiAsIntegerApplication.DisplayAlerts=FalseWithSheet1…

背景:现一个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

在这里插入图片描述
运行结果如下图所示:
在这里插入图片描述

今天的文章Excel合并同列重复项并居中分享到此就结束了,感谢您的阅读。

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。
如需转载请保留出处:https://bianchenghao.cn/9992.html

(0)
编程小号编程小号

相关推荐

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注