Как очистить весь лист или заданный диапазон в Excel?
В этой статье показано, как быстро очистить содержимое всего листа или заданного диапазона с помощью кода VBA в Excel — с форматированием ячеек или без него.
Очистка всего листа с помощью кода VBA в Excel
Очистка Ограниченный диапазон с помощью кода VBA в Excel
Очистка всего листа с помощью кода VBA в Excel
Приведённые ниже коды VBA позволят вам очистить весь лист — с форматированием ячеек или без него.
1. Нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложений выберите Вставка > Модуль и скопируйте приведённый ниже код VBA в модуль.
Если вы хотите очистить только содержимое ячеек, сохранив при этом форматирование, используйте этот код.
Код VBA: Очистка всего листа без форматирования ячеек
Sub sbClearEntireSheetOnlyData()
Sheets("Sheet4").Cells.ClearContents
End Sub Если вы хотите удалить и содержимое, и форматирование ячеек, используйте этот код.
Код VBA: Очистка всего листа с форматированием ячеек
Sub sbClearEntireSheet()
Sheets("Sheet4").Cells.Clear
End Sub Примечание: в коде Sheet4 — это имя листа, содержимое которого будет удалено. При необходимости замените его на нужное имя.
3. Нажмите клавишу F5 или кнопку «Выполнить», чтобы запустить код.
После этого указанный лист будет немедленно очищен — с форматированием ячеек или без него.

Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Очистка Ограниченный диапазон с помощью кода VBA в Excel
Чтобы очистить только ограниченный диапазон на рабочем листе, используйте приведённый ниже код VBA.
1. Откройте рабочий лист, из которого нужно очистить ограниченный диапазон, затем нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложенийвыберите Вставка>Модульи скопируйте приведённый ниже код VBA в модуль.
Чтобы очистить диапазон, сохранив форматирование, воспользуйтесь этим кодом.
Код VBA: Очистка Ограниченный диапазон без форматирования ячеек
Sub sbClearCellsOnlyData()
Range("A1:C10").ClearContents
End Sub Чтобы очистить диапазон вместе с форматированием ячеек, используйте этот код:
Код VBA: Очистка Ограниченный диапазон с форматированием ячеек
Sub sbClearCells()
Range("A1:C10").Clear
End Sub Примечание: A1:C10 — это диапазон, который будет очищен на рабочем листе.
3. Нажмите клавишу F5 или кнопку Выполнить, чтобы очистить этот диапазон.
См. также:
- Как удалить ограничения на значения в ячейках Excel?
- Как очистить кэш фильтра (устаревшие элементы) в сводной таблице 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек