Como limpar o conteúdo da célula com base na condição no Excel?
Às vezes, pode ser necessário limpar o conteúdo da célula com base nas condições do Excel, como limpar o conteúdo da célula se a célula contiver um valor específico, limpar o conteúdo da célula se houver células em branco em outra coluna ou limpar o conteúdo da célula com cor de fundo específica, etc. Este artigo apresentará alguns truques para resolver essas tarefas de maneira rápida e fácil.
Limpar o conteúdo da célula com base no valor da célula com código VBA
Limpar linhas inteiras se o valor for maior ou menor que um valor específico com código VBA
Limpe o conteúdo da célula ou linha com base no valor da célula com um recurso útil
Limpar linhas inteiras se outra célula estiver em branco com código VBA
Limpar o conteúdo da célula com base na cor de fundo com código VBA
Limpar o conteúdo da célula com base no valor da célula com código VBA
Por exemplo, você tem o seguinte intervalo de dados, agora deseja limpar o conteúdo da célula que é “Hoodie”, o código VBA abaixo pode fazer um favor.
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.
Código VBA: Limpe o conteúdo da célula se a célula for igual a um valor específico
Sub ClearContents()
'Updateby ExtendOffice
Dim xRng As Range
Dim xCell As Range
Dim xText As String
Set xRng = Application.Range("A2:A12")
xText = "Hoodie" 'Change this text to your own
For Each xCell In xRng
If xCell.Value = xText Then
xCell.clearContents
End If
Next xCell
End Sub
3. Então aperte F5 key para executar este código, e todas as células com o texto “Hoodie” são apagadas de uma vez, veja a captura de tela:
Limpar linhas inteiras se o valor for maior ou menor que um valor específico com código VBA
Supondo que você tenha o intervalo de dados abaixo, para limpar todo o conteúdo da linha se o valor na coluna D for maior ou menor que 300. Aqui, criarei um código VBA para completá-lo.
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.
Código VBA: limpe linhas inteiras se o valor da célula for maior ou menor que um valor específico
Sub ClearRowInValue()
'Updateby ExtendOffice
Dim xRg As Range
Dim xStrAddress As String
Dim xStrValue As Integer
Dim xCell As Range
Dim xRowRg As Range
Dim xF As Integer
Dim xBol As Boolean
xStrAddress = "D2:D12" 'Change cell range
xStrValue = 300 'change the value
Set xRg = Range(xStrAddress)
For xF = xRg.Rows.Count To 1 Step -1
Set xRowRg = xRg.Rows.Item(xF)
xBol = False
For Each xCell In xRowRg.Cells
If Application.IsNumber(xCell.Value) Then
If xCell.Value > xStrValue Then
xBol = True
Exit For
End If
End If
Next
If xBol Then
xRowRg.EntireRow.clearContents
End If
Next
End Sub
3. Então aperte F5 key para executar este código e todo o conteúdo da linha é limpo se o valor na coluna D for maior que 300, veja a captura de tela:
Limpe o conteúdo da célula ou linha com base no valor da célula com um recurso útil
Se você tem Kutools for Excel, Com o seu Selecione células específicas recurso, você pode selecionar as células ou linhas com base no valor específico e, em seguida, excluir o conteúdo da célula de uma só vez.
Depois de instalar Kutools for Excel, por favor, faça o seguinte:
1. Selecione o intervalo de dados com valores nos quais você deseja limpar o conteúdo da célula ou linha com base e, em seguida, clique em Kutools > Selecionar > Selecione células específicas, veja a captura de tela:
2. No aberto Selecione células específicas caixa de diálogo, faça as seguintes operações:
- Clique Célula or Linha inteira que você deseja selecionar;
- Especifique os critérios sob o Tipo específico seção como você precisa. Aqui, quero selecionar as linhas cujo valor na coluna D é maior que 300.
3. Então clique Ok botão e todas as linhas com valor maior que 300 são selecionadas. Agora, você só precisa pressionar a tecla Delete no teclado para excluir o conteúdo da célula, veja a captura de tela:
Limpar dados de linhas em um intervalo se contiver célula em branco com código VBA
Nesse caso, se a célula no intervalo de dados contiver algum espaço em branco, quero limpar os dados das linhas do intervalo, conforme a captura de tela mostrada abaixo.
Para concluir esta tarefa, aplique o seguinte código VBA:
1. Mantenha pressionada a ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe, em seguida, cole o seguinte código no Módulo Janela.
Código VBA: Limpar dados de linhas se contiver célula em branco
Sub ClearContents()
'Updateby ExtendOffice
Dim xcell As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Value = "" Then
Intersect(xcell.EntireRow, xrng).ClearContents
End If
Next
End Sub
3. Então aperte F5 key para executar este código, e os dados das linhas com células em branco são limpos de uma vez no intervalo específico conforme você precisa.
Limpar o conteúdo da célula com base na cor de fundo com código VBA
Para limpar as células que são preenchidas com uma cor de fundo específica, você pode usar o seguinte código VBA.
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe, em seguida, cole o seguinte código no Módulo Janela.
Código VBA: limpar o conteúdo da célula com base na cor de fundo
Sub Clearcontents()
'Updateby ExtendOffice
Dim xcell As Range
Dim xrng As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Interior.Color = RGB(252, 228, 214) Then
xcell.Clearcontents
End If
Next
End Sub
3. E então, pressione F5 key para executar este código e o conteúdo da célula com a cor de fundo especificada é apagada imediatamente. Veja captura de tela:
As melhores ferramentas de produtividade para escritório
Kutools for Excel Resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
- Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
- Mesclar células / linhas / colunas e manutenção de dados; Dividir o conteúdo das células; Combine Linhas Duplicadas e Soma / Média... Evite células duplicadas; Comparar intervalos...
- Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
- Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
- Fórmulas favoritas e de inserção rápida, Intervalos, gráficos e imagens; Criptografar células com senha; Criar lista de discussão e enviar emails ...
- Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
- Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
- Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
- Agrupamento de tabela dinâmica por número da semana, dia da semana e mais ... Mostrar células desbloqueadas, bloqueadas por cores diferentes; Destacar células que possuem fórmula / nome...
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
