如何在Excel中仅打印包含数据的行/单元格？

此方法将介绍一个VBA代码，快速打印Excel中指定区域内的包含数据的行。请按照以下步骤操作：

1. 同时按下 Alt + F11 键打开Microsoft Visual Basic for Applications窗口。

2. 点击 插入 > 模块，然后将以下VBA代码复制并粘贴到新打开的模块窗口中。

VBA：仅打印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. 按下 F5 键或点击 运行 按钮运行此VBA代码。

4. 在弹出的 Kutools for Excel 对话框中，指定要忽略空白行并仅打印包含数据的行的区域，然后点击 确定 按钮。

随后，指定的区域会立即打印，并忽略其中的所有空白行。

注意：此VBA不支持批量打印多个选择区域并忽略空白行。

此方法介绍 Kutools for Excel 的 删除空白行 工具，以删除当前工作表或选定区域中的所有空白单元格，然后仅打印Excel中包含数据的行。请按以下步骤操作：

1. 转到您要打印包含数据行的工作表，并点击 Kutools > 删除 > 删除空白行 > 当前工作表。

注意：如果只想打印指定区域内的包含数据的行，请先选择该区域，然后点击 Kutools > 删除 > 删除空白行 > 选择区域。

2. 弹出一个 Kutools for Excel 对话框，显示已删除多少空白行。点击 确定 按钮关闭它。

现在您将看到所有空白行都已从当前工作表/选定区域中删除。见截图：

3. 点击 文件（或Office按钮）> 打印 来仅打印当前工作表或选定区域中包含数据的行。

有时，您可能希望仅打印包含数据的单元格，而忽略Excel中的所有空白单元格。此方法将介绍 Kutools for Excel 的 选择非空单元格 工具和 打印多选区向导 来仅打印Excel中指定区域内的包含数据的单元格。

1. 选择您要仅打印包含数据单元格的区域，然后点击 Kutools > 选择 > 选择非空单元格。

2. 弹出一个 Kutools for Excel 对话框，显示已选择了多少个包含数据的单元格。点击 确定 按钮关闭它。

3. 继续选择这些非空单元格，然后点击 企业 > 打印 > 打印多选区向导。见截图：

4. 在弹出的 打印多选区向导 对话框中，您将看到所有选定的非空单元格都列在“打印范围”列表中，请点击 完成 按钮。

5. 现在所有选定的非空单元格都被复制并粘贴为链接图片到一个新的工作表中。请点击 文件（或Office按钮）> 打印 来打印这些包含数据的单元格。

在Excel中每行/每个单元格单独打印一页

在Excel中仅显示工作表的打印区域

在Excel中打印区域、选择区域和整个工作簿