Excel合并同列重复项并居中

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

运行结果如下图所示：