Gửi bởi
conanta
Mình cũng cần việc này nè, mà mò hoài chưa ra, có bạn nào biết cách chỉ giùm đi các bạn ơi. cám ơn.
Không có sẵn đâu bạn, có chăn là dùng VBA thôi.
Mình học cách này từ bạn Đào Việt Cường.
Mã:
Sub TieuDeCuoiTrang()
On Error Resume Next
Application.ScreenUpdating = False
Dim myPage As HPageBreak
ActiveWindow.View = xlPageBreakPreview
With Sheet1
For Each myPage In Sheet1.HPageBreaks
Sheet2.Range("tieude").Copy
Rows(myPage.Location.Row - 1).Insert xlShiftDown, True
Next
End With
ActiveWindow.View = xlNormalView
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Bạn xem file nhé.