Как быстро удалить все содержимое разблокированных/незащищенных ячеек в Excel?

Если у вас есть лист, содержащий часть разблокированных ячеек, и вы хотите удалить все содержимое разблокированных ячеек одновременно. Есть ли у вас какие-либо решения для выполнения этой задачи?

Удаление всего содержимого разблокированных ячеек с помощью функции «Поиск и замена»

Удаление всего содержимого разблокированных ячеек с помощью кода VBA

Удаление всего содержимого разблокированных ячеек с помощью Kutools для Excel

Удаление всего содержимого разблокированных ячеек с помощью функции «Поиск и замена»

Чтобы очистить все значения незащищенных ячеек, вы можете использовать функцию «Поиск и замена», чтобы сначала выбрать разблокированные ячейки, а затем сразу их удалить.

1. Откройте ваш рабочий лист, из которого вы хотите удалить разблокированные ячейки, и нажмите Главная > Найти и выделить > Найти или используйте сочетание клавиш - Ctrl + F, чтобы открыть диалоговое окно «Найти и заменить», см. скриншот:

2. В диалоговом окне «Найти и заменить» нажмите кнопку Опции, чтобы расширить диалог, см. скриншот:

3. Затем нажмите кнопку Формат, и появится диалоговое окно «Формат поиска», затем на вкладке Защита снимите флажки Заблокировано и Скрытые, см. скриншот:

4. Нажмите OK, чтобы вернуться к диалоговому окну « Найти и заменить», затем нажмите кнопку Найти все, все незащищенные ячейки отобразятся в списке ниже, и затем нажмите Ctrl + A, чтобы выбрать их все, см. скриншот:

5. Затем закройте это диалоговое окно «Найти и заменить», все разблокированные ячейки будут выбраны в текущем листе, см. скриншот:

6. Теперь вам просто нужно нажать клавишу Delete на клавиатуре, и содержимое выбранных разблокированных ячеек будет немедленно удалено.

Удаление всего содержимого разблокированных ячеек с помощью кода 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. Нажмите OK, и содержимое в разблокированном диапазоне ячеек будет очищено.

Удаление всего содержимого разблокированных ячеек с помощью Kutools для Excel

Если вы установили Kutools для Excel, его функция Выбрать незаблокированные ячейки поможет вам сначала выбрать незащищенные ячейки, а затем вы сможете удалить их сразу.

Kutools для Excel включает более 300 удобных инструментов для Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получите сейчас

После установки Kutools для Excel выполните следующие шаги:

1. Выберите диапазон данных, из которого вы хотите очистить содержимое разблокированных ячеек.

2. Нажмите Kutools > Выбрать > Выбрать незаблокированные ячейки.

3. И все разблокированные ячейки будут выбраны в вашем выделении.

4. Нажмите клавишу Delete на клавиатуре, чтобы немедленно удалить содержимое выбранных ячеек.

Если вы хотите узнать больше об этой функции, пожалуйста, нажмите Выбрать незаблокированные ячейки.

Связанная статья:

Как выбрать все разблокированные ячейки в Excel?