VB 合并excel表单元格

VB 合并excel表单元格的方式：

Private Sub CommandButton1_Click()
    Application.DisplayAlerts = False
    For i = 1 To UsedRange.Columns.Count
        r = 1: n = 1
        For j = 2 To UsedRange.Rows.Count + 1
            If Cells(i) <> "" Then
                If Cells(j, i) = Cells(j - 1, i) Then
                    n = n + 1
                Else
                   If n > 0 Then Cells(r, i).Resize(n, 1).MergeCells = True
                    n = 1: r = j
                End If
            End If
        Next
    Next
End Sub