如何在 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 的选择非空单元格工具和打印多选区向导可助您轻松实现：在指定区域内仅打印含数据的单元格。

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

2. 将弹出一个 Kutools for Excel 对话框，显示已选中包含数据的单元格数量。单击确定按钮即可关闭该对话框。

3. 保持选中这些非空单元格，单击企业 > 打印 > 打印多选区向导。参见截图：

4. 在打开的“打印多选区向导”对话框中，您将看到所有选定的非空单元格均已列在要打印的区域列表中，请单击完成按钮。

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

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

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

打印区域、所选区域和整个工作簿（Excel）