Note: The other languages of the website are Google-translated. Back to English

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
Nota: No código acima, A2: A12 é o intervalo de dados do qual você deseja limpar o conteúdo da célula, o texto “Moletom com capuz” é o valor específico que você deseja limpar. Por favor, altere-os para o seu próprio.

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
Nota: No código acima, D2: D12 é o intervalo de dados que contém o valor específico no qual você deseja limpar as linhas com base; 300 é o valor específico; a > personagem dentro do roteiro If xCell.Value > xStrValue Then significa maior que, use menor que, mude para < personagem como você precisa.

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:

Tips: Existem muitos outros critérios que você pode usar, especifique sua própria condição na caixa de diálogo conforme a captura de tela abaixo:

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
Nota: No código acima, A2: D12 é o intervalo de dados contém células em branco das quais você deseja limpar o conteúdo das células.

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
Nota: No código acima, A2: D12 é o intervalo de dados que você deseja usar, RGB (252, 228, 214) é a cor específica na qual você deseja limpar as células com base, você pode extrair o modo RGB da cor de fundo usando o pintar programa no seu computador.

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:



  • 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...
guia kte 201905
  • 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!
parte inferior da aba do escritório
Comentários (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos