Как очистить страницу excel

Как очистить лист Excel на VBA

Иногда есть необходимость перед какими-то действиями сначала очистить лист Excel от всех данных, которые на нем есть, чтобы заполнить его новыми данными. Я предлагаю 3 варианта как можно очистить лист.

Способ 1

Очистка всех ячеек на листе

' Очистка всех ячеек от данных, а так же оформления ячеек (шрифт, фон и т.п.) Sheets("Лист1").Cells.Clear

Либо, если нужно очистить только данные на листе Excel, не затрагивая формат ячеек, можно сделать так:

' Очистка всех ячеек только от данных Sheets("Лист1").Cells.ClearContents

Способ 2

Чтобы очистить все данные и при этом определение последней строки SpecialCells(xlCellTypeLastCell) работало правильно, можно воспользоваться таким вариантом:

Sheets("Лист1").Cells.Delete Shift:=xlUp ThisWorkbook.Saved = True

Способ 3

Если лист содержит очень преочень много данных, тогда чтобы очистить лист Excel самым быстрым способом будет удалить его и создать заново.

' Отключаем предупреждение об удалении данных на листе Application.DisplayAlerts = False ' Удаляем лист Sheets("Лист1").Delete ' Включаем предупреждения обратно Application.DisplayAlerts = True ' Добавляем лист Set Sheet = Sheets.Add ' Переименовываем как он назывался перед удалением Sheet.Name = "Лист1"

Предложенных 3 вариантов удаления всех данных на листе Excel я думаю будет достаточно для решения повседневных задач на VBA.

Как очистить страницу excel

Сообщений: 19 Регистрация: 01.01.1970

17.02.2009 11:47:07

В общем такая проблемма — нужно очистить лист Excel от всех данных, который заведомо уже имеет на нем несколько таблице, а затем продолжить работу с этим листом.
Я делаю так:
нахожу границу данных на листе которые нужно удалить
Set aRange = Worksheets(«Лист1»).Range(«A1»).SpecialCells(xlCellTypeLastCell)
lastRow = aRange.Row
lastColumn = aRange.Column
и затем делаю так:
Worksheets(«Лист1»).Range(Cells(1, 1), Cells(lastRow, lastColumn)).Delete
или можно еще так:
Worksheets(«Лист1»).Cells.ClearContents
в результате лист чист 🙂

но если проделать еще раз:
Set aRange = Worksheets(«Лист1»).Range(«A1»).SpecialCells(xlCellTypeLastCell)
lastRow = aRange.Row
lastColumn = aRange.Column
т.е. попытаться узнать границы листа где есть данные, получим что они не изменились, т.е. как будто бы на листе есть данные.
Можно ли с этим как-то бороться?

Как очистить содержимое листа Excel?

В окне открытой книги выделите щелчком левой кнопки мыши ярлычок листа, который необходимо удалить.

Рис. 2.51. Окошко подтверждения удаления листа

Рис. 2.52. Вкладка «Главная». Меню кнопки «Удалить». Пункт «Удалить лист»

покупка

Как очистить весь лист или указанный диапазон в Excel?

Эта статья покажет вам, как быстро очистить содержимое с форматированием ячеек всего листа или указанного диапазона или без него с помощью кода VBA в Excel.

Очистить весь лист с кодом VBA в Excel

Приведенные ниже коды VBA помогут вам очистить весь лист с форматированием ячеек или без него.

1. нажмите другой + 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 или нажмите кнопку «Выполнить», чтобы запустить код.

Затем указанный рабочий лист с форматированием ячеек или без него немедленно очищается.

Очистить указанный диапазон с кодом VBA в Excel

Для очистки только указанного диапазона на листе вы можете попробовать следующий код VBA.

1. Откройте рабочий лист, из которого вы очистите указанный диапазон, затем нажмите другой + 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 ключ или щелкните Run кнопку, чтобы очистить диапазон.

Статьи по теме:

• Как очистить ограниченные значения в ячейках в Excel?
• Как очистить кеш фильтра (старые элементы) из сводной таблицы в Excel?