如何快速刪除Excel中所有未鎖定／未受保護儲存格的內容？

如果您有一個工作表包含部分未鎖定的儲存格，現在您希望一次性刪除所有未鎖定儲存格的內容。您有什麼解決方案來處理這個任務嗎？

使用尋找和替換功能刪除所有未鎖定儲存格的內容

使用VBA代碼刪除所有未鎖定儲存格的內容

使用Kutools for Excel刪除所有未鎖定儲存格的內容

使用尋找和替換功能刪除所有未鎖定儲存格的內容

要清除所有未受保護儲存格的值，您可以先使用尋找和替換功能選擇未鎖定的儲存格，然後立即刪除它們。

1. 打開您要刪除未鎖定儲存格的工作表，並點擊 「Home」>「Find & Select」> 「Find」或按快捷鍵 - Ctrl + F鍵打開尋找和替換對話框，請參見截圖：

2. 在尋找和替換對話框中，點擊「Options」按鈕以展開對話框，請參見截圖：

3. 然後點擊「Format」按鈕，會彈出一個「Find Format」對話框，然後在「Protection」標籤下，取消勾選「Locked」和「Hidden」方框，請參見截圖：

4. 點擊「OK」返回到 尋找和替換對話框，然後點擊「Find All」按鈕，所有未受保護的儲存格會顯示在下面的列表框中，然後按Ctrl + A選擇所有這些儲存格，請參見截圖：

5. 然後關閉此尋找和替換對話框，在當前工作表中所有未鎖定的儲存格都已被選擇，請參見截圖：

6. 接下來，您只需按下鍵盤上的「Delete」鍵，所選未鎖定儲存格的內容將立即被移除。

使用VBA代碼刪除所有未鎖定儲存格的內容

以下VBA代碼也可以幫助您清除未鎖定儲存格的內容，請按照以下步驟操作：

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

2. 點擊「Insert」>「Module」，並將以下代碼粘貼到模塊窗口中。

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. 點擊「OK」，未鎖定範圍內的儲存格內容已經被清除。

使用Kutools for Excel刪除所有未鎖定儲存格的內容

如果您已安裝Kutools for Excel，其「選擇非鎖定儲存格」功能可以幫助您先選擇未受保護的儲存格，然後您可以一次性刪除它們。

Kutools for Excel 包含超過300種實用的Excel工具。免費試用30天無限制。 立即獲取

安裝Kutools for Excel後，請按照以下步驟操作：

1. 選擇您要清除未鎖定儲存格內容的資料範圍。

2. 點擊「Kutools」>「Select 」>「選擇非鎖定儲存格」。

3. 並且所有未鎖定的儲存格已在您的選擇中被選中。

4. 按下鍵盤上的「 Delete」鍵立即刪除所選儲存格的內容。

如果您想了解更多關於此功能的信息，請點擊「選擇非鎖定儲存格」。

相關文章：

如何在Excel中選擇所有未鎖定的儲存格？