跳到主要內容

如何在Excel中刪除工作表中多餘的空白頁?

當工作表中包含一些空白頁時,它們將與非空白頁一起打印出來。 如果您不想打印空白頁,本文將為您介紹兩種方法。

使用設置打印區域功能刪除工作表中多餘的空白頁
使用Kutools for Excel刪除工作表中的多餘空白頁


使用設置打印區域功能刪除工作表中多餘的空白頁

如果工作表僅包含幾個頁面(包括空白頁),則可以將所有非空頁面設置為打印區域,然後打印該工作表。 請執行以下操作。

1.按住Ctrl鍵,選擇包含需要打印內容的頁面。 然後點擊 頁面佈局 > 打印區 > 設置打印區域。 看截圖:

doc刪除空白頁1

然後打印此工作表,您只能看到帶有內容的頁面被打印出來,空白頁面被忽略。


使用Kutools for Excel刪除工作表中的多餘空白頁

如果工作表包含許多頁面,則上述方法將很耗時。 實際上,您可以刪除所有空白行和列以壓縮工作表,以避免打印所有空白頁。 請嘗試 刪除空白行 的效用 Excel的Kutools.

申請前 Excel的Kutools首先下載並安裝.

1。 點擊 庫工具 > 刪除 > 刪除空白行 > 在活動表中。 看截圖:

2.彈出一個對話框,告訴您已刪除了多少行,只需單擊 OK 按鈕。

3.然後,您需要刪除當前工作表中的空白列,請執行以下配置。

刪除空白行和空白列後,工作表將被壓縮,空白頁也將被刪除。

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


相關文章:

最佳辦公生產力工具

熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

kte選項卡201905


Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you very helpful
This comment was minimized by the moderator on the site
Hi,

I search to Deleted hidden rows & colums vba code. Could you send me code please ?




Thanks,
This comment was minimized by the moderator on the site
Good Day,
The following VBA code can help you delete all hidden rows and columns of active worksheet:

Sub deletehidden()
For lp = 256 To 1 Step -1
If Columns(lp).EntireColumn.Hidden = True Then Columns(lp).EntireColumn.Delete Else
Next
For lp = 65536 To 1 Step -1
If Rows(lp).EntireRow.Hidden = True Then Rows(lp).EntireRow.Delete Else
Next
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations