Excel宏开发之合并单元格

合并单元格

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