Tự động merge & center tự xếp các hàng giống nhau

[nammkn02]

Thử code này xem sao

Option Explicit

Sub MergeCells()
Dim I&,Rng As Range, fC As Range, lC As Range, iCol
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Sheets("sheet1")
    Set Rng = .Range("A12:L" & .Cells(Rows.Count, "A").End(xlUp).Row)
    Set fC = Rng(Rng.Rows.Count, 1)
    For I = Rng.Rows.Count To 1 Step -1
        If Rng(I, 1) <> Rng(I - 1, 1) Or Rng(I, 2) <> Rng(I, 2) Then
            Set lC = Rng(I, 1)
            For Each iCol In Array(0, 1, 2, 8, 9, 10, 11)
                .Range(fC.Offset(, iCol), lC.Offset(, iCol)).Merge
            Next
            Set fC = Rng(I - 1, 1)
        End If
    Next
    Rng.VerticalAlignment = xlCenter
    Rng.Borders.LineStyle = True
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Cảm ơn Anh nhiều nhiều nhé!
Công sức mấy ngày nay của em luôn hehe