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

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

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

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

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

---

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

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

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

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

3. Затем нажмите Формат и Найти формат появится диалоговое окно, затем под Protection вкладка, снимите флажок Заблокированный и Скрытый коробки, см. снимок экрана:

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

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

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

---

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

Следующий код VBA также может помочь вам очистить содержимое разблокированных ячеек, пожалуйста, сделайте следующее:

1. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: удалить все содержимое разблокированных ячеек

Sub ClearUnlockedCells()
'Updateby20140724
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. Нажмите Кутулс > Выберите Инструменты > Выберите разблокированные ячейки, см. снимок экрана:

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

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

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

---

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

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