Vba clearcontents: как очистить содержимое ячейки?

Ключевые моменты

• Чтобы очистить содержимое ячейки, необходимо использовать метод ClearContents.
• Вы можете использовать его для одной ячейки, диапазона или всего листа.

Метод ClearContents

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

 Expression.ClearContents

Чтобы использовать этот метод, вы должны сначала установить выражение в место, где вы хотите очистить содержимое, а затем ввести «.ClearContents».

Очистить содержимое одной ячейки

Предположим, вы хотите очистить значения в ячейке A1. Сначала вам нужно определить ячейку A1, используя объект диапазона, а затем метод ClearContents.

Таким образом, код будет:

 Sub ClearContentExamples() Range("A1").ClearContents End Sub

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

 Sub ClearContentExamples() Cells(1, 1).ClearContents End Sub

Очистить содержимое трека

Аналогичным образом вы можете определить диапазон, а затем использовать метод ClearContent для очистки значений и формул из этого диапазона. Предположим, вы хотите очистить значения из диапазона A1:A10, в этом случае код будет примерно таким, как показано ниже.

 Sub ClearContentExamples() Range("A1:A10").ClearContents End Sub

Очистить содержимое всей таблицы

Чтобы очистить содержимое всего листа , вы можете использовать приведенный ниже код:

 Sub ClearContentExamples() Cells.ClearContents End Sub

И чтобы очистить конкретный лист:

 Worksheets("Sheet1").Cells.ClearContents

Очистить выделенное содержимое

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

 Sub ClearContentExamples() Selection.ClearContents End Sub

Другие методы

Вот некоторые другие методы, которые вы можете использовать:

 Sub ClearContentExamples() Range(“A1”).Clear 'Clears Everything Range(“A1”).ClearComments 'Clear Comments Range(“A1”).ClearFormats 'Clears Formatting Range(“A1”).ClearHyperlinks 'Clear Hyperlinks Range(“A1”).ClearNotes 'Clear Notes Range(“A1”).ClearOutline 'Clears Outline End Sub