如何在Excel的工作表中只顯示打印區域？

當我們通過點擊「檢視 > 分頁預覽」在分頁預覽視圖中顯示工作表時，非打印區域的背景會自動變為深灰色。請參見以下截圖：

備註：您也可以通過點擊狀態欄中的「分頁預覽」按鈕切換到分頁預覽視圖。

但是，此方法不會隱藏非打印區域，您仍然可以查看非打印區域中的數據。

一鍵隱藏除所選範圍外的所有內容（隱藏未使用的列/行/單元格）

大多數時候，我們可能只使用部分工作表，並留下空白的數字單元格或範圍。Kutools for Excel 的 隱藏非選中區域 工具可以幫助您一鍵隱藏除所選範圍外的所有內容，或者輕鬆隱藏所有未使用的單元格/行/列/範圍。

要在Excel中完全隱藏非打印區域，您可以嘗試使用VBA宏。具體操作步驟如下：

步驟 1：同時按下 Alt + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

步驟 2：點擊 插入 > 模組，然後將以下VBA代碼粘貼到模組窗口中：

VBA：僅在當前工作表中顯示打印區域

Public Sub HideAllButPrintArea()
Dim xPrintRng As Range
Dim xFirstRng As Range
Dim xLastRng As Range
Application.ScreenUpdating = False
With Application.ActiveSheet
.Cells.EntireColumn.Hidden = False
.Cells.EntireRow.Hidden = False
If .PageSetup.PrintArea <> "" Then
Set xPrintRng = .Range(.PageSetup.PrintArea)
Else
Set xPrintRng = .UsedRange
End If
Set xFirstRng = xPrintRng.Cells(1)
Set xLastRng = xPrintRng.Cells(xPrintRng.Count)
If xFirstRng.Row > 1 Then
.Range(.Cells(1, 1), xFirstRng(-0, 1)).EntireRow.Hidden = True
End If
If xFirstRng.Column > 1 Then
.Range(.Cells(1, 1), xFirstRng(1, 0)).EntireColumn.Hidden = True
End If
If xLastRng.Row < .Rows.Count Then
.Range(xLastRng(2, 1), .Cells(.Rows.Count, 1)).EntireRow.Hidden = True
End If
If xLastRng.Column < .Columns.Count Then
.Range(xLastRng(1, 2), .Cells(1, .Columns.Count)).EntireColumn.Hidden = True
End If
End With
Application.ScreenUpdating = True
End Sub

步驟 3：按下 F5 鍵或點擊「運行」按鈕來執行這個VBA宏。

然後您會看到非打印區域立即被隱藏，並且只有打印區域顯示在當前工作表中。請參見以下截圖：

注意事項：

1. 當當前工作表中只有一個打印區域時，這個VBA宏能正常工作。
2. 此方法不支持撤銷。要顯示非打印區域，您必須手動取消隱藏非打印區域，或者應用 Kutools for Excel 的「隱藏 > 顯示所有隱藏區域」工具。

如果您已經安裝了 Kutools for Excel，它的「隱藏非選中區域」工具將幫助您輕鬆地只顯示當前工作表中的打印區域。

步驟 1：選擇當前工作表中的打印區域。

備註：如果您無法快速找到打印區域，可以按下 F5 鍵打開「定位至」對話框，選擇打印區域名稱並點擊「確定」按鈕，如下方截圖所示。但此方法將選擇當前工作表中的所有打印區域。

步驟 2：點擊 Kutools > 顯示 / 隱藏 > 隱藏非選中區域。

然後您會立即看到只有選定的打印區域顯示在當前工作表中，如下方截圖所示：

注意事項：

1. Kutools for Excel 的「隱藏非選中區域」功能支持撤銷，您可以同時按下 Ctrl + Z 鍵來顯示隱藏的非打印區域。
2. 您可以點擊 Kutools > 顯示 / 隱藏 顯示所有隱藏區域 來立即顯示隱藏的非打印區域。

設置滾動位置或隱藏其他單元格

顯示隱藏的範圍（列和行）

隱藏其他工作表