如何在Excel中删除除选定区域外的所有内容？

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

使用VBA代码删除除选定区域外的所有内容

使用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的选区助手删除除选定区域外的所有内容

Kutools for Excel的另一个工具——多区域复制也可以帮助您完成此任务，您只需将选定的区域复制到新工作表中，然后删除旧工作表即可。

安装Kutools for Excel后，请按以下步骤操作：

1. 按住Ctrl键选择要保留的单元格区域。

2. 然后点击 Kutools > 多区域复制，参见截图：

3. 在多区域复制对话框中，勾选选择性粘贴下的全部选项，如果需要保留行高和列宽，请勾选包括行高和包括列宽，参见截图：

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

5. 然后点击确定，只有您选定的区域会被粘贴到新工作表中，现在您可以根据需要删除原始工作表。

演示：使用Kutools for Excel删除除选定区域外的所有内容