如何在Excel中打印没有空白行的工作表？

在打印工作表时，空白行也将被打印出来。 对于某些Excel用户，他们倾向于打印没有空白行的工作表，以压缩数据并节省纸张。 但是如何在Excel中打印没有空白行的工作表。 本文为您提供了两种方法。

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

---

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

在打印工作表之前，您可以运行下面的VBA代码以隐藏指定范围内的空白行。 请执行以下操作。

1。 按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 在里面 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块。 然后将下面的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 对话框弹出，请选择您不想打印的空白行范围，然后单击 OK 按钮。

然后，选定范围内的所有空白行将立即隐藏。 然后，您可以开始打印没有空白行的工作表。

备注注意：打印后，可以使用以下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。 点击 库工具 > 删除 > 删除空白行 > 在选定范围内/在活动表中/在选定的工作表中/在所有工作表中 根据您的需求。 看截图：

备注：要删除某个范围内的空白行，请首先选择该范围，然后再应用该功能。

2.然后会弹出一个对话框，告诉您已删除了多少行，请单击 OK 按钮。

现在，所有空白行均被删除。 您可以开始打印工作表。

备注：此实用程序支持撤消 按Ctrl + Z.