Note: The other languages of the website are Google-translated. Back to English

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 - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng 30-ngày, không cần thẻ tín dụng! Dùng thử miễn phí 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 - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng 30-ngày, 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 - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng 30-ngày, không cần thẻ tín dụng! Dùng thử miễn phí 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 - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng 30-ngày, 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 bao gồm hơn 300 công cụ tiện dụng cho Excel, miễn phí dùng thử không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay bây giờ!

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


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

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
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!
officetab dưới cùng
Nhận xét (3)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn rất nhiều từ Istanbul / Thổ Nhĩ Kỳ :)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Cảm ơn rất nhiều cho mã. Nhưng khi tôi nhấn Cancel hoặc x trên hộp nhập liệu; tệp excel bị treo. Bạn có thể vui lòng giúp đỡ để giải quyết vấn đề này.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thân extendofficenăm
Tôi muốn gửi phản hồi về tính năng: In> Chèn Trang Ngắt Mỗi Hàng.

Mã VBA:
Sub InsertPageBreaks ()
'Updateby20140618
Dim xLastrow As Long
Làm mờ xWs dưới dạng trang tính
Đặt xWs = Application.ActiveSheet
xRow = Application.InputBox ("Hàng", xTitleId, "", Loại: = 1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range ("A1"). SpecialCells (xlCellTypeLastCell) .Row
Đối với i = xRow + 1 Tới xLastrow Step xRow
xWs.HPageBreaks.Add Before: = xWs.Cells (i, 1)
Sau
End Sub


Khi sử dụng hàm này, bạn chỉ có thể nhập một biến là xRow.
Vì vậy tính năng này sẽ gần như vô dụng vì không linh hoạt. Không phải tất cả dữ liệu đều bắt đầu từ Hàng 1, chưa kể dữ liệu thường là bảng và có hàng Tiêu đề.

Tôi nghĩ rằng tính năng này nên có một biến khác là xFirstRow, để bạn có thể xác định hàng dữ liệu đầu tiên:
xFirstRow = Application.InputBox ("Hàng đầu tiên", xTitleId, "", Loại: = 1)

Và công thức phải là:
Đối với i = xFirstRow + xRow + 1 Tới xLastrow Bước xRow

Hi vọng tính năng này sẽ được nâng cấp trong các phiên bản sau.
Cảm ơn,
Tuyền
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL