Vba: como limpar o conteúdo se a célula contiver um valor específico

Você pode usar a seguinte sintaxe básica para limpar o conteúdo de cada célula em uma planilha do Excel igual a um valor específico:

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.ClearContents
    Else
    End If
Next cell

End Sub

Esta macro específica limpará o conteúdo de cada célula no intervalo A2:A11 que é igual a “Mavs”.

O exemplo a seguir mostra como usar essa sintaxe na prática.

Exemplo: use VBA para limpar o conteúdo se a célula contiver um valor específico

Digamos que temos uma planilha Excel com informações sobre diferentes jogadores de basquete:

Digamos que queremos limpar o conteúdo de cada célula da coluna Equipe igual a “Mavs”.

Podemos criar a seguinte macro para fazer isso:

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.ClearContents
    Else
    End If
Next cell

End Sub

Assim que esta macro for executada, todas as células com valor “Mavs” na coluna Equipe serão limpas:

Se, em vez disso, você quiser limpar todas as células em cada linha com o valor “Mavs” na coluna Equipe , poderá usar a seguinte sintaxe:

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.EntireRow.ClearContents
    Else
    End If
Next cell

End Sub

Depois de executar esta macro, receberemos a seguinte saída:

Observe que todas as células em cada linha contendo “Mavs” na coluna Equipe foram limpas.

Nota : Você pode encontrar a documentação completa do método ClearContents em VBA aqui .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

VBA: Como encontrar a última linha usada
VBA: Como encontrar a última coluna usada
VBA: Como exibir todas as planilhas