Как быстро удалить все содержимое разблокированных/незащищенных ячеек в 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?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек