如何在 Excel 中一次隱藏多個空白行或列?
Excel 工作表經常包含空白行或列,這些空白行或列可能會使您的資料顯得雜亂並難以閱讀。隱藏這些空白行或列可以改善資料的可見性和呈現效果。本指南涵蓋了快速且高效地隱藏多個空白行或列的不同方法。
使用 Kutools for Excel 刪除多個空白行或列
使用 VBA 程式碼快速隱藏多個空白行或列
以下 VBA 程式碼可以幫助您快速輕鬆地在工作表中隱藏多個空白行或列。
1. 按住「ALT」+「F11」鍵以打開「Microsoft Visual Basic for Applications」視窗。
2. 點擊「插入」>「模組」,然後將以下程式碼貼到「模組」視窗中。
VBA 程式碼:隱藏工作表中的多個空白行
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Row + xRg.Rows.Count
If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
xRg.Rows(I).EntireRow.Hidden = True
End If
Next
End Sub
3. 然後按「F5」鍵執行此程式碼,會彈出一個提示框提醒您選擇要隱藏空白行的資料區域,請參閱截圖:
4. 接著點擊「確定」按鈕,空白行立即被隱藏,請參閱截圖:
注意:若要隱藏多個空白列,請應用以下 VBA 程式碼:
VBA 程式碼:隱藏工作表中的多個空白列
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Column + xRg.Columns.Count
If Application.WorksheetFunction.CountA(xRg.Columns(I)) = 0 Then
xRg.Columns(I).EntireColumn.Hidden = True
End If
Next
End Sub
使用 Kutools AI 隱藏多個空白行或列
如果您想要更快、更自動化的解決方案,「Kutools for Excel」提供了適用於此任務的便捷工具。透過其 Kutools AI 助手,您可以簡單地用自然語言描述需求,Kutools AI 會為您處理剩餘的部分。
安裝 Kutools for Excel 後,請點擊「Kutools」>「AI 助手」以打開「Kutools AI 助手」面板。在面板中,請指定以下步驟:
- 選擇您想使用的資料區域。
- 然後,在聊天框中輸入需求,例如:
「隱藏空白行」:隱藏選取範圍內的多個空白行
「隱藏空白列」:隱藏選取範圍內的多個空白列 - 接著,按下「Enter」鍵或點擊「發送」按鈕。Kutools AI 將分析問題,完成後,請點擊「執行」按鈕以獲取結果。
使用 Kutools for Excel 刪除多個空白行或列
在本節中,我將討論如何刪除範圍、工作表或工作簿中不需要的多個空白行或列。「Kutools for Excel」的「刪除隱藏(可見)行與列」功能可以幫助您盡快完成此任務。
安裝 Kutools for Excel 後,請按照以下步驟操作:
1. 選擇您要刪除空白行或列的資料區域,然後點擊「Kutools」>「刪除」>「刪除隱藏(可見)行與列」,請參閱截圖:
2. 在「刪除隱藏(可見)行與列」對話框中,於「尋找範圍」下拉列表中選擇「選擇區域」(您也可以根據需要在此下拉列表中選擇其他選項),從「刪除類型」部分選擇「行」或「列」,並在「詳細類型」部分下選擇「空白行」或「空白列」,請參閱截圖:
3. 然後點擊「確定」按鈕,選取範圍內的空白行或列將立即被移除。請參閱截圖:
注意:使用此功能,您還可以根據需要刪除選取範圍、工作表或工作簿中的隱藏行或列、可見行或列。
結論
如果您希望自動隱藏空白行或列,可以使用 VBA 程式碼,該程式碼可以根據預定義的規則快速篩選並隱藏空行和列。對於不熟悉 VBA 的用戶,Kutools for Excel 提供了一個更直觀的解決方案,讓您無需編寫任何程式碼即可一鍵隱藏或刪除空白行和列,從而提高工作效率。根據具體需求選擇合適的方法,可以顯著優化 Excel 表格管理並提升資料處理效率。如果您有興趣探索更多 Excel 技巧,我們的網站提供數千個教程,幫助您掌握 Excel。
最佳 Office 生產力工具
🤖 | Kutools AI 助手:以智能執行為基礎,革新數據分析 |生成程式碼 | 創建自訂公式 | 分析數據並生成圖表 | 調用 Kutools 增強函數… |
熱門功能:查找、選取項目的背景色或標記重複值 | 刪除空行 | 合併列或單元格且不遺失數據 | 四捨五入(免公式)... | |
高級 LOOKUP:多條件 VLookup|多值 VLookup|多表查找|模糊查找... | |
高級下拉列表:快速創建下拉列表 |依賴型下拉列表 | 多選下拉列表... | |
列管理器:添加指定數量的列 | 移動列 | 切換隱藏列的顯示狀態 | 比較區域及列... | |
精選功能:網格聚焦 | 設計檢視 | 增強編輯欄 | 工作簿及工作表管理器 | 資源庫(快捷文本) | 日期提取器 | 合併資料 | 加密/解密儲存格 | 按列表發送電子郵件 | 超級篩選 | 特殊篩選(篩選粗體/傾斜/刪除線...)... | |
15 大工具集:12 項文本工具(添加文本、刪除特定字符…)|50+ 儀表 類型(甘特圖等)|40+ 實用 公式(基於生日計算年齡等)|19 項插入工具(插入QR码、根據路徑插入圖片等)|12 項轉換工具(金額轉大寫、匯率轉換等)|7 項合併與分割工具(高級合併行、分割儲存格等)|...及更多 |
運用 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及 PowerPoint 外掛 + Office Tab Pro
- 一鍵安裝,一份授權 — 幾分鐘完成設置(支援 MSI)
- 協同運作更順暢 — Office 應用間無縫提升生產力
- 30 天全功能試用 — 無需註冊、無需信用卡
- 最超值 — 一次購買,節省單獨外掛費用