如何在 Excel 中刪除所有內容，僅保留所選區域？

在 Excel 中，我們可以快速直接地刪除選取區域，但您是否曾想過反其道而行——刪除其他儲存格的內容，僅保留選取區域？本文將為您介紹幾項實用技巧，讓您在 Excel 中輕鬆又高效地完成這項任務。

使用 VBA 程式碼刪除所有內容，僅保留選擇區域

使用 Kutools for Excel 的選區助手刪除所有內容，僅保留選擇區域

使用 Kutools for Excel 的多區域複製刪除所有內容，僅保留選擇區域

使用 VBA 程式碼刪除所有內容，僅保留選擇區域

目前沒有直接方法可一次刪除所有未選取的儲存格值，但下列 VBA 程式碼或許能協助您，請依照以下步驟操作：

1. 請按住 Ctrl 鍵，選取您要保留的儲存格。

2. 同時按下 Alt + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

3. 在 Microsoft Visual Basic for Applications 視窗中，點選插入 > 模組，並將下方的 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 的選區助手刪除所有內容，僅保留選擇區域

另一項利器－多區域複製（屬於 ）Kutools for Excel）也能協助您輕鬆完成此任務：只需將選取的區域複製到全新的工作表，再刪除原始工作表即可。

安裝 Kutools for Excel 後，請依照下列步驟操作：

1. 按住 Ctrl 鍵，選取您要保留的儲存格範圍。

2. 接著點選 Kutools> 多區域複製，參見截圖：

3. 在多區域複製對話框中，於選擇性貼上下方勾選全部選項；若您希望保留所需的行高與列寬，也請一併勾選包括行高與包括列寬，參見截圖：

4. 接著點選確定按鈕，系統將彈出另一個提示方塊，提醒您選取一個儲存格來放置所複製的內容。請在新工作表中選擇一個儲存格，參見截圖：

5. 接著點選確定，您所選的區域將貼至新工作表，現在即可視需要刪除原始工作表。

示範：使用 Kutools for Excel 刪除所有內容，僅保留選擇區域

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行   ｜  產生程式碼｜  建立自訂公式  ｜  分析資料並產生圖表｜  呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值   ｜  刪除空白行   ｜  合併列或儲存格而不遺失資料   ｜  不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup  ｜  多重數值 VLookup  ｜   跨多個工作表 VLookup   ｜   模糊查找……
	高級下拉列表：快速建立下拉式清單   ｜  相依式下拉式清單   ｜  多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦   ｜  設計視圖   ｜增強編輯欄   ｜ 工作簿與工作表管理員   ｜  資源庫（自動文字）｜  日期提取   ｜  合併工作表  ｜  加密／解密儲存格   ｜ 依清單傳送電子郵件   ｜  超級篩選   ｜   特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜   50+ 圖表 類型（甘特圖，……）｜   40+ 實用公式（基於生日計算年齡，……）｜   19 插入工具（插入二維碼，從路徑插入圖片，……）｜   12 轉換工具（金額轉大寫，匯率轉換，……）｜   7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多

在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言！

運用 Kutools for Excel 強化您的 Excel 技能，體驗前所未有的高效能！Kutools for Excel 提供超過 300 項進階功能，大幅提升生產力並節省寶貴時間。立即點擊，取得您最需要的功能……

Kutools for Excel 詳細資訊……免費下載……

---

Office Tab 為 Office 帶來分頁式介面，讓您的工作更輕鬆自在！

• 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能，以及 Access、Visio 與 Project。
• 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
• 每天為您提升 50% 的工作效率，並省下數百次滑鼠點擊！

Office Tab 詳細資訊……免費下載……

---

所有 Kutools 增益集，一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集，以及 Office Tab Pro，非常適合需要跨多個 Office 應用程式協作的團隊使用！

• 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集，以及 Office Tab Pro
• 一個安裝程式，一個授權— 數分鐘內即可完成設定（支援 MSI）
• 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
• 30 天完整功能試用— 無需註冊，無需信用卡
• 超值之選— 比單獨購買各增益集更省費用

Kutools for Office 詳細資訊……免費下載……