如何在Excel中打印不带空行的工作表？

在打印工作表时，空白行也会被打印出来。对于一些Excel用户来说，为了使数据紧凑并节省纸张，他们倾向于打印不带空行的工作表。那么如何在Excel中打印不带空行的工作表呢？本文为您提供两种方法。

使用VBA代码在打印前隐藏空行
使用Kutools for Excel在打印前删除空行

使用VBA代码在打印前隐藏空行

在打印工作表之前，您可以运行以下VBA代码来隐藏指定区域中的空行。请按照以下步骤操作。

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

2. 在 Microsoft Visual Basic for Application 窗口中，点击 插入 > 模块。然后复制并将以下VBA代码粘贴到模块窗口中。

VBA代码：隐藏选定区域中的空行

Sub HideBlankRows()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	Dim I As Long
	On Error Resume Next
	xAddress = Application.ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg  = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		If xRg.Areas.Count > 1 Then
			MsgBox "Don't support multiple ranges", , "Kutools for Excel"
			Exit Sub
			End If
			xUpdate = Application.ScreenUpdating
			Application.ScreenUpdating = False
			For I = 1 To xRg.Rows.Count
				xRg.Rows(I).EntireRow.Hidden = (Application.CountA(xRg.Rows(I)) = 0)
			Next
			Application.ScreenUpdating = xUpdate
		End Sub

3. 按下 F5 键运行代码，随后会弹出一个 Kutools for Excel 对话框，请选择您不想打印的带有空行的区域，然后点击 确定 按钮。

然后，所选区域中的所有空行都会立即被隐藏。接下来，您可以开始打印不含空行的工作表。

注意：打印后，您可以使用以下VBA代码取消隐藏这些空行。

VBA代码：取消隐藏选定区域中的所有空行

Sub UnhideRows()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	On Error Resume Next
	xAddress = Application.ActiveWindow.RangeSelection.Address
	Set xRg = Application.InputBox("Please select a range to unhide the blank rows", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		xUpdate = Application.ScreenUpdating
		Application.ScreenUpdating = False
		xRg.EntireRow.Hidden = False
		Application.ScreenUpdating = xUpdate
	End Sub

使用Kutools for Excel在打印前删除空行

如果您想打印不带空行的工作表，我们建议您使用 Kutools for Excel 的 删除空行 工具删除所有空行，然后您可以手动打印工作表。

1. 点击 Kutools > 删除 > 删除空行 > 根据您的需求选择 选择区域/当前工作表/选中的工作表/所有工作表。参见截图：

注意：要删除某个区域中的空行，请先选择该区域，然后应用此功能。

2. 随后会弹出一个对话框，告诉您已删除了多少行，请点击 确定 按钮。

现在，所有空行都已被删除。您可以开始打印您的工作表了。

注意：此工具支持撤销 Ctrl + Z。