Bỏ qua nội dung chính

Làm cách nào để chèn ngắt trang mỗi x hàng trong Excel?

Có thể dễ dàng và đơn giản để bạn chèn dấu ngắt trang vào trang tính. Đôi khi, cần phải chèn ngắt trang ở mỗi hàng X để in ấn ngăn nắp, bạn có thể làm thế nào? Ở đây tôi giới thiệu một số phương pháp để giải quyết vấn đề này trong Excel.


Chèn ngắt trang mỗi hàng X bằng VBA trong Excel

Có thể bạn chưa quen với việc chạy VBA trước đây, nhưng với các bước sau, bạn có thể biết cách chạy VBA để chèn ngắt trang mỗi X hàng. Ở đây tôi sẽ chèn một ngắt trang trong mỗi 3 hàng.

1. nhấn Alt + F11 để hiển thị Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Trong cửa sổ, nhấp vào Chèn > Mô-đun để hiển thị một cửa sổ mô-đun mới, sau đó sao chép mã VBA sau vào cửa sổ mô-đun.

VBA: Chèn ngắt trang ở mọi hàng X trong trang tính.

Sub InsertPageBreaks()
'Updateby20140618
Dim xLastrow As Long
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
xRow = Application.InputBox("Row", xTitleId, "", Type:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = xRow + 1 To xLastrow Step xRow
    xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1)
Next
End Sub

3. Nhấp chuột chạy và một hộp thoại bật ra để bạn chỉ định mọi X hàng mà bạn muốn chèn ngắt trang. Ở đây tôi chèn ngắt trang vào mỗi 3 hàng. Xem ảnh chụp màn hình:
doc-insert-page-break-x-row-1

4. Nhấp chuột OK, và sau đó nó sẽ chèn một ngắt trang trong mỗi X hàng.

Chèn nhanh ngắt trang mỗi hàng (thứ n) trong trang tính đang hoạt động

Thông thường, chúng tôi chèn một ngắt trang bằng cách nhấp chuột Page Layout > Breaks > Chèn Ngắt trang. Nhưng theo cách này sẽ quá tẻ nhạt khi chèn hàng loạt nhiều ngắt trang trong một trang tính, chẳng hạn như bạn cần chèn một ngắt trang vào mỗi hàng để in từng hàng trong một trang riêng biệt. Đừng lo lắng! Kutools cho Excel's Chèn Ngắt trang Mỗi Hàng tiện ích có thể giúp bạn dễ dàng lưu trữ nó!


chèn quảng cáo ngắt trang mỗi hàng 3

Chèn hàng loạt ngắt trang sau mỗi x hàng với Kutools cho Excel

Nếu bạn đã cài đặt Kutools cho Excel, Chia thành các cột tiện ích có thể giúp bạn chèn hàng loạt nhiều ngắt trang sau mỗi x hàng với việc giữ tiêu đề trong mỗi trang một cách dễ dàng trong Excel.

Kutools cho Excel - Được đóng gói với hơn 300 công cụ cần thiết cho Excel. Tận hưởng bản dùng thử MIỄN PHÍ 30 ngày đầy đủ tính năng mà không cần thẻ tín dụng! Tải ngay!

1. Nhấp chuột Chia thành các cột trên Kutools Plus tab.

2. Trong hộp thoại Chia thành Cột mở, bạn cần:

(1) Nhấp vào nút Duyệt qua  trong Phạm vi tiêu đề và chọn hàng tiêu đề trong phạm vi được chỉ định mà bạn sẽ chèn hàng loạt ngắt trang.
(2) Nhấp vào nút Duyệt qua trong phạm vi ngày và chọn phạm vi mà bạn sẽ chèn hàng loạt ngắt trang.
(3) Trong Hàng trên mỗi trang in nhập một số. (Mẹo: Ví dụ: nếu bạn cần chèn ngắt trang sau mỗi 3 hàng, vui lòng nhập 3 vào hộp; nếu bạn cần ngắt trang sau mỗi hàng, vui lòng nhập 1.)
(4) Nhập 1 vào Số lượng phân đoạn cái hộp.

3. Nhấn vào Ok .

Bây giờ bạn sẽ thấy phạm vi được sao chép vào một trang tính mới và ngắt trang được thêm vào sau mỗi x hàng với việc giữ tiêu đề phạm vi. Bạn cũng có thể chuyển sang chế độ xem Xem trước Ngắt trang bằng cách nhấp vào Xem > Xem trước ngắt trang để xem các ngắt trang này. Xem ảnh chụp màn hình bên dưới.

Kutools cho Excel - Supercharge Excel với hơn 300 công cụ thiết yếu. Tận hưởng bản dùng thử MIỄN PHÍ 30 ngày đầy đủ tính năng mà không cần thẻ tín dụng! Get It Now


Chèn ngắt trang sau mỗi x hàng với Kutools cho Excel

Kutools cho Excel phát triển một tiện ích Chèn Trang Ngắt Mỗi Hàng khác chuyên chèn các dấu ngắt trang sau mỗi x hàng một cách dễ dàng.

Kutools cho Excel - Được đóng gói với hơn 300 công cụ cần thiết cho Excel. Tận hưởng bản dùng thử MIỄN PHÍ 30 ngày đầy đủ tính năng mà không cần thẻ tín dụng! Tải ngay!

1. Chọn phạm vi mà bạn sẽ chèn ngắt trang sau mỗi x hàng và nhấp vào In > Chèn Ngắt trang Mỗi Hàng trên Kutools Plus tab.

2. Trong hộp thoại Chèn Ngắt Trang Mỗi Hàng mở, chỉ định khoảng thời gian của các hàng mà bạn sẽ chèn các ngắt trang tại đó và bấm vào Ok .

Sau đó, bạn sẽ thấy các ngắt trang được chèn vào khoảng thời gian xác định của các hàng cùng một lúc.

Kutools cho Excel - Supercharge Excel với hơn 300 công cụ thiết yếu. Tận hưởng bản dùng thử MIỄN PHÍ 30 ngày đầy đủ tính năng mà không cần thẻ tín dụng! Get It Now


Demo: chèn ngắt trang mỗi x hàng trong Excel


Kutools cho Excel: Hơn 300 công cụ tiện dụng trong tầm tay bạn! Bắt đầu dùng thử miễn phí 30 ngày không có giới hạn tính năng ngay hôm nay. Download Now!

Các bài báo tương đối:

Công cụ năng suất văn phòng tốt nhất

Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

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 kte 201905


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!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Dear extendoffice.com
I would like to send feedback about feature: Print > Insert Page Break Every Row.

VBA Code:
Sub InsertPageBreaks()
'Updateby20140618
Dim xLastrow As Long
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
xRow = Application.InputBox("Row", xTitleId, "", Type:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = xRow + 1 To xLastrow Step xRow
xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1)
Next
End Sub


When you use this function, you can only enter one variables is xRow.
So this feature will be almost useless because it is not flexible. Not all data start from Row 1, not to mention data usually is table and has Header row.

I think this feature should have another variable is xFirstRow, so that you can define the first row of data:
xFirstRow = Application.InputBox("First Row", xTitleId, "", Type:=1)

And the formula should be:
For i = xFirstRow + xRow + 1 To xLastrow Step xRow

Hopefully this feature will be upgraded in later versions.
Thanks,
Tuyen
This comment was minimized by the moderator on the site
Hi, Thanks a lot for the code. But when I press Cancel or x on the input box; the excel file crashes. Can you please help to resolve this issue.
This comment was minimized by the moderator on the site
Thanks a lot from Istanbul / Turkey :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations