In hàng loạt nhiều hàng không trống với việc bỏ qua các hàng trống trong Excel

Phương pháp này sẽ giới thiệu một VBA để in nhanh các hàng chỉ có dữ liệu trong một phạm vi xác định trong Excel. Vui lòng làm như sau:

1. Nhấn nút Khác + F11 đồng thời để mở cửa sổ Microsoft Visual Basic for Applications.

2. nhấp chuột Chèn > Mô-đun, sau đó sao chép và dán mã VBA sau vào cửa sổ Mô-đun mở mới.

VBA: Chỉ in các hàng có dữ liệu trong Excel

Sub PrintSummary()
Dim xRg As Range, xRg1 As Range, xCell As Range
Dim xSht As Worksheet
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the range to print:", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "You can't select multiple selections", , "Kutools for Excel"
Exit Sub
End If
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set xSht = Worksheets.Add(After:=Sheets(Sheets.Count))
xRg.Copy xSht.Range("A1")
Set xRg1 = xSht.Range("A1").Resize(xRg.Rows.Count, xRg.Columns.Count)
For Each xCell In xRg1.Columns(1).Cells
If Application.WorksheetFunction.CountA(xCell.EntireRow) = 0 Then
xCell.EntireRow.Hidden = True
End If
Next
xSht.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
xSht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Nhấn nút F5 phím hoặc nhấp vào chạy để chạy VBA này.

4. Trong hộp thoại Kutools cho Excel đang mở, chỉ định phạm vi mà bạn muốn bỏ qua các hàng trống và chỉ in các hàng có dữ liệu và nhấp vào OK .

Sau đó, phạm vi được chỉ định được in ngay lập tức với việc bỏ qua tất cả các hàng trống trong đó.

Chú thích: VBA này không hỗ trợ in hàng loạt nhiều lựa chọn với việc bỏ qua các hàng trống.

Phương pháp này giới thiệu Kutools cho Excel's Xóa hàng trống tiện ích để xóa tất cả các ô trống trong trang tính đang hoạt động hoặc phạm vi đã chọn, rồi in các hàng đó chỉ với dữ liệu trong Excel. Vui lòng làm như sau:

1. Chuyển đến trang tính, bạn sẽ in các hàng chỉ có dữ liệu và nhấp vào Kutools > Xóa bỏ > Xóa hàng trống > Trong trang tính hoạt động. Xem ảnh chụp màn hình:

Chú thích: Để in các hàng chỉ có dữ liệu trong một phạm vi xác định, trước tiên hãy chọn phạm vi này, sau đó nhấp vào Kutools > Xóa bỏ > Xóa hàng trống > Trong phạm vi đã chọn.

2. Một hộp thoại Kutools cho Excel sẽ bật lên và cho bạn biết có bao nhiêu hàng trống đã bị xóa. Nhấn vào OK để đóng nó.

Và bây giờ bạn sẽ thấy tất cả các hàng trống đều bị xóa khỏi trang tính đang hoạt động / phạm vi đã chọn. Xem ảnh chụp màn hình:

3. Nhấp vào Tập tin (Hoặc Nút văn phòng)> In để chỉ in các hàng có dữ liệu trong trang tính đang hoạt động hoặc phạm vi đã chọn.

Đôi khi, bạn có thể chỉ muốn in các ô chứa dữ liệu khi bỏ qua tất cả các ô trống trong Excel. Phương pháp này sẽ giới thiệu Kutools cho Excel's Chọn ô không trống tiện ích và Trình hướng dẫn in nhiều lựa chọn để chỉ in các ô có dữ liệu trong phạm vi được chỉ định trong Excel.

1. Chọn phạm vi mà bạn sẽ chỉ in các ô có dữ liệu và nhấp vào Kutools > Chọn > Chọn ô không trống. Xem ảnh chụp màn hình:

2. Hộp thoại Kutools cho Excel xuất hiện và cho bạn biết có bao nhiêu ô có dữ liệu đã được chọn. Nhấn vào OK để đóng nó.

3. Tiếp tục chọn các ô không trống này và nhấp vào Doanh nghiệp > In > Trình hướng dẫn in nhiều lựa chọn. Xem ảnh chụp màn hình:

4. Trong hộp thoại Print Multiple Selices Wizard đang mở, bạn sẽ thấy tất cả các ô không trống đã chọn được liệt kê trong Phạm vi để in danh sách, vui lòng nhấp vào Kết thúc .

5. Bây giờ tất cả các ô không trống đã chọn được sao chép và dán dưới dạng ảnh được liên kết trong một trang tính mới. Vui lòng bấm vào Tập tin (Hoặc Nút văn phòng)> In để in các ô này với dữ liệu.

In từng hàng / ô trên một trang riêng biệt trong Excel

Chỉ hiển thị vùng in trong trang tính trong Excel

In các vùng, lựa chọn và toàn bộ sổ làm việc trong Excel