如何快速删除Excel中所有未锁定/未受保护单元格的内容？

如果您的工作表中包含部分未锁定的单元格，现在您希望一次性删除所有未锁定单元格的内容。您是否有解决方案来处理此任务？

使用“查找和替换”功能删除所有未锁定单元格的内容

使用VBA代码删除所有未锁定单元格的内容

使用Kutools for Excel删除所有未锁定单元格的内容

使用“查找和替换”功能删除所有未锁定单元格的内容

要清除所有未受保护单元格的值，您可以先使用“查找和替换”功能选择未锁定的单元格，然后立即删除它们。

1. 打开您要删除未锁定单元格的工作表，然后点击 “开始”>“查找和选择”> “查找”，或者按快捷键Ctrl + F打开“查找和替换”对话框，请参见截图：

2. 在“查找和替换”对话框中，点击“选项”按钮以展开对话框，请参见截图：

3. 然后点击“格式”按钮，会弹出一个“查找格式”对话框，在“保护”选项卡下，取消选中“锁定”和“隐藏”复选框，请参见截图：

4. 点击“确定”返回到“ 查找和替换”对话框，然后点击“ 查找全部”按钮，所有未受保护的单元格都会显示在下方的列表框中，然后按Ctrl + A选择所有单元格，请参见截图：

5. 然后关闭“查找和替换”对话框，当前工作表中的所有未锁定单元格都已被选中，请参见截图：

6. 接下来只需按下键盘上的“删除”键，所选未锁定单元格的内容将立即被移除。

使用VBA代码删除所有未锁定单元格的内容

以下VBA代码也可以帮助您清除未锁定单元格的内容，请按照以下步骤操作：

1. 按住ALT + F11键打开Microsoft Visual Basic for Applications窗口。

2. 点击“插入”>“模块”，并将以下代码粘贴到模块窗口中。

VBA代码：删除所有未锁定单元格的内容

Sub ClearUnlockedCells()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    If Rng.Locked = False Then Rng.ClearContents
Next
Application.ScreenUpdating = True
End Sub

3. 然后按F5键运行此代码，并在弹出的框中指定要删除未锁定单元格内容的区域，请参见截图：

4. 点击“确定”，未锁定区域单元格中的内容将被清除。

使用Kutools for Excel删除所有未锁定单元格的内容

如果您已安装Kutools for Excel，其“选择非锁定单元格”功能可以帮助您首先选择未受保护的单元格，然后您可以一次性删除它们。

Kutools for Excel 包含300多种便捷的Excel工具。免费试用30天无任何限制。 立即获取

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

1. 选择要清除未锁定单元格内容的数据区域。

2. 点击Kutools > 选择 > 选择非锁定单元格。

3. 您的选择范围内所有未锁定的单元格都已被选中。

4. 按下键盘上的“ 删除”键，立即删除所选单元格的内容。

如果您想了解更多关于此功能的信息，请点击“选择非锁定单元格”。

相关文章：

如何在Excel中选择所有未锁定的单元格？