Sub 宏1()

'

' 宏1 宏

'

' 快捷键: Ctrl+q

'

    Application.Goto Reference:="宏1"

    Application.VBE.MainWindow.Visible = True

    Application.DisplayAlerts = False

    For i = [A65536].End().Row To  Step -

        If Cells(i - , ) = Cells(i, ) Then

            Cells(i - , ).HorizontalAlignment = xlCenter

            Cells(i - , ).VerticalAlignment = xlCenter

            Range(Cells(i - , ), Cells(i, )).Merge

        End If

    Next

    For i = [B65536].End().Row To  Step -

        If Cells(i - , ) = Cells(i, ) Then

             flag = True

             If (Cells(i, ) <> "") Then

                flag = False

             End If

             If flag Then

                Cells(i - , ).HorizontalAlignment = xlCenter

                Cells(i - , ).VerticalAlignment = xlCenter

                Range(Cells(i - , ), Cells(i, )).Merge

             End If

        End If

    Next

     For i = [C65536].End().Row To  Step -

        If Cells(i - , ) = Cells(i, ) Then

             flag = True

             If (Cells(i, ) <> "") Then

                flag = False

             End If

             If flag Then

                Cells(i - , ).HorizontalAlignment = xlCenter

                Cells(i - , ).VerticalAlignment = xlCenter

                Range(Cells(i - , ), Cells(i, )).Merge

             End If

        End If

    Next

    Application.DisplayAlerts = True

    Application.VBE.MainWindow.Visible = False

End Sub