如何刪除 Excel 中除選定區域外的所有內容?
在 Excel 中,我們可以快速直接地刪除選定的區域,但您是否嘗試過刪除除選定區域之外的其他單元格內容呢?本文將介紹一些技巧,幫助您快速輕鬆地完成此任務。
使用 Kutools for Excel 的選區助手刪除除選定區域外的所有內容
使用 Kutools for Excel 的多區域複製功能刪除除選定區域外的所有內容
使用 VBA 程式碼刪除除選定區域外的所有內容
目前沒有直接的方法可以一次性刪除所有未選中的單元格值,但以下 VBA 程式碼可能會對您有所幫助,請按照以下步驟操作:
1. 請按住 Ctrl 鍵選擇您要保留的單元格。
2. 同時按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Application 視窗。
3. 在 Microsoft Visual Basic for Application 視窗對話框中,點擊 插入 > 模組,然後複製並將以下 VBA 程式碼粘貼到 模組 視窗中。
VBA 程式碼:刪除除選定區域外的所有單元格值
Sub ClearAllExceptSelection()
'updateby Extendoffice
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 the ranges want to keep", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In ActiveSheet.UsedRange
If Intersect(xCell, xRg) Is Nothing Then
xCell.Clear
End If
Next
Application.ScreenUpdating = xUpdate
End Sub
4. 然後按下 F5 鍵運行程式碼,會彈出一個提示框提醒您選擇要保留的單元格範圍。如果已在步驟 1 中選擇了範圍,請點擊 確定;如果尚未選擇,可以在提示框中選擇所需的單元格,並輸入逗號分隔多個範圍,然後點擊 確定 按鈕,參見截圖:
5. 點擊 確定 後,所有其他單元格值都已被刪除,僅保留選定的範圍,參見截圖:
使用 Kutools for Excel 的選區助手刪除除選定區域外的所有內容
如果您已安裝 Kutools for Excel,利用其選區助手工具的反選功能,您可以快速反向選擇,然後一次性刪除反向選擇的部分。
安裝 Kutools for Excel 後,請按照以下步驟操作:
1. 選擇您要保留的單元格範圍。
2. 然後點擊 Kutools > 選擇 > 選區助手,參見截圖:
3. 在選區助手對話框中,勾選 反選,參見截圖:
4. 然後拖動鼠標選擇您想要反向選擇的範圍。當您釋放鼠標時,選中的單元格將被取消選擇,而未選中的單元格將被立即選擇。參見截圖:
5. 然後關閉對話框,並按下 Delete 鍵一次性刪除所選部分。只有您需要的單元格將被保留,參見截圖:
Kutools for Excel - 超過 300 種必備工具,讓 Excel 功能更強大。永久免費享受 AI 功能!立即獲取
使用 Kutools for Excel 的選區助手刪除除選定區域外的所有內容
另一個工具——Kutools for Excel 的多區域複製功能也可以幫助您完成此任務,您只需將選定的範圍複製到新工作表中,然後刪除舊的工作表即可。
安裝 Kutools for Excel 後,請按照以下步驟操作:
1. 按住 Ctrl 鍵選擇您要保留的單元格範圍。
2. 然後點擊 Kutools > 多區域複製,參見截圖:
3. 在多區域複製對話框中,勾選 選擇性粘貼 下的 全部 選項,如果需要保留行高和列寬,請勾選 包括行高 和 包括列寬,參見截圖:
4. 然後點擊 確定 按鈕,另一個提示框將彈出提醒您選擇一個單元格放置複製的單元格,請在新工作表中選擇一個單元格,參見截圖:
5. 然後點擊 確定,並且只有您選定的範圍被粘貼到新工作表中,現在您可以根據需要刪除原始工作表。
Kutools for Excel - 超過 300 種必備工具,讓 Excel 功能更強大。永久免費享受 AI 功能!立即獲取
演示:使用 Kutools for Excel 刪除除選定區域外的所有內容
最佳辦公效率工具
🤖 | 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、Publisher、Access、Visio 和 Project 中啟用標籤式編輯和閱讀。
- 在同一窗口的新標籤中打開和創建多個文檔,而不是在新窗口中。
- 將您的生產力提高 50%,每天為您減少數百次鼠標點擊!