如何刪除 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 刪除除選定區域外的所有內容
最佳 Office 辦公效率工具
🤖 | Kutools AI Aide:徹底革新數據分析,基於智能執行|生成程式碼|創建自訂公式|分析數據並生成圖表|調用 Kutools Functions… |
熱門功能:查找、選取項目的背景色或標記重複值 | 刪除空行 | 合併列或單元格且不丟失資料 | 四捨五入... | |
高級 LOOKUP:多條件查找|多值查找|多表查找|模糊查找... | |
高級下拉列表:快速創建下拉列表 | 關聯下拉列表 | 多選下拉列表 ... | |
列管理器: 添加指定數量的列 | 移動列 | 切換隱藏列的可見狀態 | 區域與列比較 ... | |
精選功能:網格聚焦 | 設計檢視 | 增強編輯欄 | 工作簿及工作表管理器 | 資源庫 (自動文本) | 日期提取器 | 合併資料 | 加密/解密儲存格 | 按清單發送電子郵件 | 超級篩選 | 特殊篩選(篩選粗體/傾斜/刪除線 ...)... | |
前15 大工具集:12 款文本工具(添加文本,刪除特定字符,...)|50+ 種圖表 類型(甘特圖,...)|40+ 實用 公式(基於生日計算年齡,...)|19 款插入工具(插入QR码,按路徑插入圖片,...)|12 款轉換工具(金額轉大寫,匯率轉換,...)|7 款合併和分割工具(高級合併行,分割儲存格,...)| ...以及更多 |
利用 Kutools for Excel 大幅提升你的 Excel 技能,感受前所未有的高效體驗。 Kutools for Excel 提供超過300 項高級功能,助你提升效率並保存時間。 點此查看你最需要的功能...
Office Tab 為 Office 帶來標籤式介面,讓你的工作更加輕鬆
- 啟用 Word、Excel、PowerPoint 的標籤式編輯和閱讀功能
- 在同一個視窗的標籤中打開和創建多個文件,而不是在新窗口中分開開啟。
- 可提升你50% 的工作效率,每天為你大量減少滑鼠點擊次數!