如何删除Excel中所有未选中的范围？

在Excel中，我们可以快速直接删除选定的范围，但是您是否尝试过删除选定范围以外的其他单元格内容？ 本文，我将为您介绍一些技巧，以帮助您快速轻松地解决Excel中的此任务。

使用VBA代码删除所有未选中的范围

使用Kutools for Excel的Select Range Helper删除所有未选中的范围

使用Kutools for Excel的复制范围删除所有未选中的范围

---

使用VBA代码删除所有未选中的范围

没有直接的方法可以立即删除所有未选择的单元格值，但是以下VBA代码可能会帮助您，请执行以下操作：

1。 请按住 按Ctrl 键以选择要保留的单元格。

2。 按 Alt + F11键 同时打开 Microsoft Visual Basic应用程序 窗口。

3。 在 Microsoft Visual Basic应用程序 窗口对话框，单击 插页 > 模块，然后将下面的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中选择了范围，请单击 OK，如果没有，则可以在提示框中选择所需的单元格，然后输入逗号来分隔多个范围，然后单击 OK 按钮，请参见屏幕截图：

5。 点击后 OK，所有其他单元格值均已删除，但仅保留所选范围，请参见屏幕截图：

---

使用Kutools for Excel的Select Range Helper删除所有未选中的范围

如果你已经安装 Kutools for Excel，其 逆选择 的特点 选择范围助手 实用程序，您可以快速撤消选择，然后立即删除撤消的选择。

Kutools for Excel : 带有300多个便捷的Excel加载项，可以在30天内免费试用.

前往下载 30天免费试用购买 贝宝/ MyCommerce

安装后 Kutools for Excel，请执行以下操作： 立即免费下载Kutools for Excel！ )

1。 选择要保留的单元格范围。

2。 然后点击 库工具 > 选择 > 选择范围助手，请参见屏幕截图：

3。 在 选择范围助手 对话框，检查 逆选择，请参见屏幕截图：

4。 然后拖动鼠标以选择要撤消选择的范围。 释放鼠标时，已取消选择选定的单元格，并立即选择了未选定的单元格。 看截图：

5。 然后关闭对话框，然后按 删除 键立即删除选择。 并且仅保留了所需的单元格，请参见屏幕截图：

立即免费下载Kutools for Excel！

---

使用Kutools for Excel的Select Range Helper删除所有未选中的范围

另一个实用程序-复制范围 of Kutools for Excel 也可以帮助您完成这项工作，只需将所选范围复制到新工作表，然后删除旧工作表。

安装后 Kutools for Excel，请执行以下步骤：( 立即免费下载Kutools for Excel！ )

1。 保持 按Ctrl 键选择要保留的单元格范围。

2。 然后点击 库工具 > 复制范围，请参见屏幕截图：

3. 而在 复制多个范围 对话框，检查 全部商品 选项下 特殊粘贴，检查 包括行高 和 包括列宽 如果要保留所需的行高和列宽，请参见屏幕截图：

4。 然后点击 Ok 按钮，然后会弹出另一个提示框，提醒您选择一个单元格来放置复制的单元格，请在新工作表中选择一个单元格，请参见屏幕截图：

5。 然后点击 OK，并且只有您选择的范围已粘贴到新工作表中，现在您可以根据需要删除原始工作表。

立即免费下载Kutools for Excel！

---

演示：使用Kutools for Excel删除所有未选中的范围