VBA合并EXCEL的单元格

 Sub MergeData()

    Dim LastRow As Long

    Dim r As Long

    LastRow = ActiveSheet.UsedRange.Rows.Count

    LastRow = LastRow + ActiveSheet.UsedRange.Row - 1

    Application.ScreenUpdating = False

    Dim Range1 As String

    Dim Range2 As String

    Range1 = "A"

    Range2 = "B"

    

    For r = LastRow To 1 Step -1

        Range(Cells(r, 1), Cells(r, 5)).Select

        With Selection

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlBottom

        .WrapText = False

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = False

        End With

        Selection.Merge

        

    

        'If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete

        'If (Cells(r, 1) = "." And Cells(r, 2) = "." And Cells(r, 3) = ".") Then Rows(r).Delete

        'Rows(r).Delete

    Next r

End Sub