Как очистить весь лист с помощью vba?

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

Очистить активный лист

Допустим, если вы хотите очистить все содержимое листа активации, код будет такой, как показано ниже.

 Cells.Clear

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

Очистить определенный лист

Обратите внимание на одну вещь: чтобы очистить лист, этот лист должен быть включен. Допустим, вы хотите очистить «Лист1», код будет выглядеть следующим образом:

 Sheets("Sheet1").Activate Cells.Clear

В этом коде первая активирует «Лист1», а вторая строка очищает все.

Другие вещи, которые нужно очистить

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

 Cells.ClearContents 'to clear contents Cells.ClearComments 'to clear Comments Cells.ClearFormats 'to clears formatting Cells.ClearHyperlinks 'to clear hyperlinks Cells.ClearNotes 'to clear notes Cells.ClearOutline 'to clears outline

Удаление листа из определенной книги

Код ниже может ссылаться на книгу «Книга1» и очищать лист «Лист1». Но убедитесь, что книга открыта во время выполнения этого кода .

 Workbooks("Book1").Sheets("Sheet1").Activate Cells.Clear

Этот код сначала активирует «Лист1» книги и стирает его.

Удаление листа из закрытой книги

В приведенном ниже коде мы упомянули «Лист1» книги «файл-образец», хранящийся в определенном месте.

 Sub vba_clear_sheet() Dim wb As Workbook Application.ScreenUpdating = False Set wb = Workbooks.Open("C:\Users\Dell\Desktop\sample-file.xlsx") wb.Sheets("Sheet1").Activate Cells.Clear wb.Close SaveChanges:=True Application.ScreenUpdating = False End Sub