Làm thế nào để lặp lại các hàng trên đầu mỗi bản in ngoại trừ trang cuối cùng trong Excel?
Trong nhiều trường hợp, bạn có thể cần phải lặp lại hàng tiêu đề trên đầu mỗi trang in trong Excel. Nhưng làm thế nào để lặp lại các hàng trên đầu mỗi bản in ngoại trừ trang cuối cùng? Bài viết này sẽ chỉ cho bạn phương pháp để đạt được nó.
Lặp lại các hàng trên đầu mỗi bản in ngoại trừ trang cuối cùng có mã VBA
Lặp lại các hàng trên đầu mỗi bản in ngoại trừ trang cuối cùng có mã VBA
Bạn có thể chạy mã VBA dưới đây để in tất cả các trang có các hàng lặp lại ở trên cùng ngoại trừ trang cuối cùng. Hãy làm như sau.
1. Mở trang tính bạn cần lặp lại các hàng trên cùng ngoại trừ trang cuối cùng, sau đó nhấn Khác + F11 các phím đồng thời để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun. Sau đó sao chép và dán mã VBA bên dưới vào cửa sổ Mô-đun.
VBA: Lặp lại các hàng trên đầu mỗi bản in ngoại trừ trang cuối cùng trong Excel
Sub RepeatRowsExceptLastPage()
Dim xPages As Long, I As Integer, xRg As Range
On Error Resume Next
xPages = ActiveSheet.PageSetup.Pages.Count
Set xRg = Application.InputBox("Please select a row you need to repeat:", "Kutools for Excel", , , , , , Type:=8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
If xPages > 0 Then
With ActiveSheet.PageSetup
.PrintTitleRows = xRg.AddressLocal
ActiveSheet.PrintOut from:=1, To:=xPages - 1
.PrintTitleRows = ""
ActiveSheet.PrintOut from:=xPages, To:=xPages
End With
End If
End Sub
3. Nhấn nút F5 phím để chạy mã, sau đó Kutool dành cho Excel hộp thoại bật lên, vui lòng chọn phạm vi hàng bạn cần lặp lại trên đầu mỗi bản in ngoại trừ trang cuối cùng, sau đó nhấp vào OK cái nút. Xem ảnh chụp màn hình:
Sau đó, tất cả các trang trong trang tính này được in ra với một số hàng lặp lại ở trên cùng ngoại trừ trang cuối cùng.
Các bài liên quan:
- Làm thế nào để lặp lại một giá trị ô cho đến khi nhìn thấy hoặc đạt đến giá trị mới trong Excel?
- Làm thế nào để lặp lại một ký tự n lần trong một ô trong Excel?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!