Skip to main content

Kutools for Office — 一套工具,五種功能。完成更多工作。

如何在Excel中列印不包含空行的工作表?

Author: Siluvia Last Modified: 2025-08-23

在列印工作表時,空行也會被列印出來。對於一些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 code to selec the data range

然後,所選區域中的所有空行都會立即被隱藏。接下來,您可以開始列印不含空行的工作表。

備註:列印完成後,您可以使用以下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 刪除空行 工具刪除所有空行,然後您可以手動列印工作表。

Kutools for Excel 提供超過 300 種進階功能,簡化複雜任務,提升創造力與效率。 結合 AI 能力,Kutools 能夠精準自動化任務,讓數據管理變得輕而易舉。Kutools for Excel 的詳細資訊...免費試用...

1. 點擊 Kutools > 刪除 > 刪除空行 > 選擇區域/當前工作表/選中的工作表/所有工作表 以符合您的需求。見截圖:

備註:若要刪除某個區域中的空行,請先選擇該區域,然後應用此功能。

click Delete Blank Rows feature of kutools

2. 接著會彈出一個對話框告訴您已刪除多少行,請點擊 確定 按鈕。

a dialog box pops up to tell you how many rows have been deleted

現在,所有空行都已被刪除。您可以開始列印您的工作表。

備註:此工具支持撤銷 Ctrl + Z

  如果您想免費試用(30天)此工具,請點擊下載,然後按照上述步驟進行操作。

最佳 Office 生產力工具

🤖 Kutools AI 助手:以智能執行為基礎,革新數據分析 生成程式碼 創建自訂公式 分析數據並生成圖表 調用 Kutools 增強函數
熱門功能查找、選取項目的背景色或標記重複值刪除空行合併列或單元格且不遺失數據四捨五入(免公式)...
高級 LOOKUP多條件 VLookup多值 VLookup多表查找模糊查找...
高級下拉列表快速創建下拉列表 依賴型下拉列表 多選下拉列表...
列管理器添加指定數量的列移動列切換隱藏列的顯示狀態比較區域及列...
精選功能網格聚焦 設計檢視 增強編輯欄 工作簿及工作表管理器 資源庫(快捷文本) 日期提取器 合併資料 加密/解密儲存格 按列表發送電子郵件 超級篩選 特殊篩選(篩選粗體/傾斜/刪除線...)...
15 大工具集12 項文本工具添加文本刪除特定字符…)50+ 儀表 類型甘特圖等)40+ 實用 公式基於生日計算年齡等)19 項插入工具插入QR码根據路徑插入圖片等)12 項轉換工具金額轉大寫匯率轉換等)7 項合併與分割工具高級合併行分割儲存格等)...及更多
使用 Kutools,語言任你選 — 支援英語、西班牙語、德語、法語、中文及超過40 種語言!

運用 Kutools for Excel,全面提升您的 Excel 技能,體驗前所未有的高效。 Kutools for Excel 提供超過300 項進階功能,讓您提升工作效率、節省時間。 點此尋找您最需要的功能...


Office Tab 為 Office 帶來分頁介面,讓您的工作更加輕鬆簡單

  • 在 Word、Excel、PowerPoint 中啟用分頁編輯與閱讀
  • 在同一視窗的新分頁中打開與創建多份文件,而非開啟新視窗。
  • 提升您的生產力50%,每日可幫您減少數百次鼠標點擊!

所有 Kutools 外掛,一次安裝

Kutools for Office 套裝整合了 Excel、Word、Outlook 和 PowerPoint 的外掛,外加 Office Tab Pro,非常適合需要跨 Office 應用程式協同作業的團隊。

Excel Word Outlook Tabs PowerPoint
  • 全合一套裝 — Excel、Word、Outlook及 PowerPoint 外掛 + Office Tab Pro
  • 一鍵安裝,一份授權 — 幾分鐘完成設置(支援 MSI)
  • 協同運作更順暢 — Office 應用間無縫提升生產力
  • 30 天全功能試用 — 無需註冊、無需信用卡
  • 最超值 — 一次購買,節省單獨外掛費用