Vba clearcontents: como limpar o conteúdo de uma célula?

Pontos chave

• Para limpar o conteúdo de uma célula, você deve usar o método ClearContents.
• Você pode usá-lo para uma única célula, um intervalo ou uma planilha inteira.

Método ClearContents

No VBA, existe um método chamado ClearContents que você pode usar para limpar valores e fórmulas de uma célula, um intervalo de células e de toda a planilha.

 Expression.ClearContents

Para usar este método, você deve primeiro definir a expressão para um local onde deseja limpar o conteúdo e, em seguida, digitar “.ClearContents”.

Limpe o conteúdo de uma única célula

Suponha que você queira limpar os valores da célula A1. Primeiro, você precisa definir a célula A1 usando o objeto range e depois o método ClearContents.

Então o código seria:

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

Você também pode usar a propriedade cell para definir uma célula e o código seria:

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

Limpar o conteúdo de uma faixa

Da mesma forma, você pode definir um intervalo e usar o método ClearContent para limpar valores e fórmulas desse intervalo. Suponha que você queira limpar os valores do intervalo A1:A10, neste caso o código seria algo como abaixo.

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

Limpar o conteúdo de uma planilha inteira

Para limpar o conteúdo de uma planilha inteira , você pode usar o código abaixo:

 Sub ClearContentExamples() Cells.ClearContents End Sub

E para limpar em uma planilha específica:

 Worksheets("Sheet1").Cells.ClearContents

Limpar conteúdo da seleção

Se quiser escrever um código dinâmico que possa limpar o conteúdo das células selecionadas, você pode usar o código abaixo.

 Sub ClearContentExamples() Selection.ClearContents End Sub

Outros métodos

Aqui estão alguns dos outros métodos que você pode usar:

 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