Em cảm ơn bác TrungChinhs nhé
Mã:
Sub HPageBreaks_BorderAround()
Dim i As Long, ir As Long
Application.ScreenUpdating = False
With ActiveSheet
ActiveWindow.View = 2
[a1].Resize(.HPageBreaks(1).Location.Row - 1, 7).BorderAround LineStyle:=1
For i = 2 To .HPageBreaks.Count
ir = .HPageBreaks(i).Location.Row - .HPageBreaks(i - 1).Location.Row
Cells(.HPageBreaks(i - 1).Location.Row, 1).Resize(ir, 7).BorderAround LineStyle:=1
Next
ActiveWindow.View = 1
End With
Application.ScreenUpdating = True
End Sub
Bảng tính của em có hơn chục trang mà code này chạy chậm kinh (máy không đến nõi cùi lắm) ACE xem và cải thiện tốc độ giúp em với