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

Como remover linhas com base no valor da célula no Excel?

Para excluir ou remover rapidamente várias linhas com base no valor da célula no Excel, você pode precisar selecionar essas linhas inteiras que contêm o valor específico da célula primeiro e, em seguida, removê-las. Parece que não há uma maneira rápida de excluir linhas com base no valor da célula, mas usando o código VBA. Aqui estão alguns truques rápidos para ajudá-lo.


Remova as linhas com base no valor da célula com o recurso Localizar e Substituir

No Excel, você pode aplicar o poderoso recurso Localizar e Substituir para remover linhas com base em um determinado valor de célula facilmente. Faça o seguinte:

1. Selecione o intervalo onde você removerá as linhas com base em um determinado valor de célula e abra a caixa de diálogo Localizar e Substituir pressionando o Ctrl + F chaves simultaneamente.

2. Na caixa de diálogo Localizar e substituir, digite o determinado valor da célula (no nosso caso, inserimos o Quente) no Find what caixa, e clique no Find All botão. Veja a primeira imagem abaixo:

3. Selecione todos os resultados da pesquisa na parte inferior da caixa de diálogo Localizar e Substituir e feche esta caixa de diálogo. (Nota: Você pode selecionar um dos resultados da pesquisa e, em seguida, Ctrl + A para selecionar todos os resultados encontrados. Veja a segunda captura de tela acima.)
E então você pode ver que todas as células contendo determinado valor estão selecionadas.

4. Vá em frente, clique com o botão direito nas células selecionadas e selecione o Delete no menu do botão direito. E então verifique o Entire row opção na caixa de diálogo Excluir pop-up e clique no OK botão. Agora você verá que todas as células contendo determinado valor foram removidas. Veja as imagens abaixo:

E então linhas inteiras já foram excluídas com base em um determinado valor.


Remova as linhas com base no valor da célula com código VBA

Com o seguinte código VBA, você pode excluir rapidamente as linhas com determinado valor de célula, siga as seguintes etapas:

1. aperte o Alt + F11 chaves ao mesmo tempo para abrir Microsoft Visual Basic for applications janela,

2. Clique Insert > Modulee insira o seguinte código no módulo:

VBA: remove linhas inteiras com base no valor da célula

Sub DeleteRows()
'Updateby20211217
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Dim xTitleId As String
Dim xArr
Dim xF As Integer
Dim xWSh As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8)
If InputRng Is Nothing Then Exit Sub
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
Set xWSh = InputRng.Worksheet
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
            Set DeleteRng = DeleteRng.EntireRow
        End If
    End If
Next
xArr = Split(DeleteRng.AddressLocal, ",")
DeleteRng.Select
DeleteRng.Delete
For xF = UBound(xArr) To 0 Step -1
    Set DeleteRng = xWSh.Range(xArr(xF))
    DeleteRng.Delete
Next
End Sub

3. Em seguida, clique no botão Run botão para executar o código.

4. Na caixa de diálogo que aparece, selecione o intervalo onde você removerá as linhas com base em um determinado valor e clique no botão OK botão.

5. Em outra caixa de diálogo, digite o determinado valor no qual você removerá as linhas e clique no botão OK botão. Veja a imagem:

E então você verá que linhas inteiras já foram excluídas com base no valor especificado.


Remova linhas com base em um ou dois valores de células com o Kutools para Excel

Se você instalou Kutools for Excel, as TIC Select Specific Cells recurso pode ajudá-lo a excluir rapidamente as linhas com valor específico. Faça o seguinte:

Kutools for Excel - Inclui mais de 300 ferramentas úteis para Excel. Avaliação gratuita de recursos completos 30-dia, sem necessidade de cartão de crédito! Get It Now

1. Selecione o intervalo em que você removerá as linhas com base em um determinado valor e clique em Kutools > Select > Select Specific Cells. Veja a imagem:

2. Na abertura da caixa de diálogo Selecionar células especificadas, marque Entire row opção, selecione Contains desde Specific type lista suspensa, insira o valor especificado na caixa à direita e clique no Ok botão (Veja a imagem acima).
Depois de aplicar este recurso, uma caixa de diálogo aparecerá e mostrará quantas células foram encontradas com base nos critérios especificados. Por favor clique no OK botão para fechá-lo.

3. Agora, linhas inteiras com determinado valor são selecionadas. Clique com o botão direito nas linhas selecionadas e clique no Delete no menu do botão direito. Veja a imagem abaixo:

Nota: Este Select Specific Cells recurso suporta a exclusão de linhas por um ou dois determinados valores. Para excluir linhas com base em dois valores especificados, especifique outro valor no Specific type seção da caixa de diálogo Selecionar células específicas conforme a seguinte captura de tela mostrada:

Kutools for Excel - Inclui mais de 300 ferramentas úteis para Excel. Avaliação gratuita de recursos completos 30-dia, sem necessidade de cartão de crédito! Get It Now


Remova linhas com base em vários valores de células com o Kutools para Excel

Em alguns casos, pode ser necessário remover linhas com base em vários valores de células de outra coluna / lista no Excel. Aqui vou apresentar Kutools for Excel's Select Same & Different Cells recurso para resolvê-lo rapidamente com facilidade.

Kutools for Excel - Inclui mais de 300 ferramentas úteis para Excel. Avaliação gratuita de recursos completos 30-dia, sem necessidade de cartão de crédito! Get It Now

1. Clique Kutools > Select > Select Same & Different Cells para abrir a caixa de diálogo Selecionar células iguais e diferentes.

2. Na abertura Select Same & Different Cells caixa de diálogo, faça o seguinte (veja a imagem):

(1) No Find values in caixa, selecione a coluna onde você encontrará os determinados valores;
(2) No According to , selecione a coluna / lista com vários valores nos quais você excluirá as linhas;
(3) No Based on seção, por favor, verifique o Each row opção;
(4) No Find seção, por favor, verifique o Same Values opção;
(5) Verifique o Select entire rows opção na parte inferior da caixa de diálogo de abertura.
Nota: Se duas colunas especificadas contiverem o mesmo cabeçalho, verifique o My data has headers opção.

3. Clique no Ok botão para aplicar este utilitário. E então uma caixa de diálogo aparece e mostra quantas linhas foram selecionadas. Basta clicar no OK botão para fechá-lo.

E então todas as linhas contendo valores entre a lista especificada foram selecionadas.

4. Clique Home > Delete > Delete Sheet Rows para excluir todas as linhas selecionadas.


Demonstração: remova linhas com base em um ou vários valores de células no Excel


Kutools for Excel inclui mais de 300 ferramentas úteis para Excel, grátis para testar sem limitação em 30 dias. Baixe e teste grátis agora!

As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • 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 sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... 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 ...
  • 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...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • 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 (39)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Fantástico! Isso funcionou muito bem, alterei um pouco para se adequar ao que eu precisava, mas puro gênio. Oh Versão VBA.
Este comentário foi feito pelo moderador no site
Qualquer maneira de modificar o If (cell.Value) = "Apple" para incluir vários valores?
Este comentário foi feito pelo moderador no site
Bobby, tente isso, deve obter o que você deseja: If (cell.Value) = "Apple" OR (cell.Value) = "Monday"
Este comentário foi feito pelo moderador no site
Existe alguma maneira de fazer com que o valor reconheça um valor seja > ou = para um determinado valor?
Este comentário foi feito pelo moderador no site
Ei - muito obrigado pelo script. Eu queria saber se você pode usar curingas para poder selecionar qualquer coisa dentro de uma célula que corresponda em vez de um item específico? Eu tentei usar ** curingas, mas parece não fazer nada. Aqui está o que eu tenho: Sub Delete_Rows() Dim rng As Range, cell As Range, del As Range Set rng = Intersect(Range("B6:B20"), ActiveSheet.UsedRange) For Each cell In rng If cell.Value Like "*WORDTODELETE*" _ Then If del Is Nothing Then Set del = cell Else: Set del = Union(del, cell) End If End If Next cell On Error Resume Next del.EntireRow.Delete End Sub
Este comentário foi feito pelo moderador no site
Obrigado de coração - é sempre divertido quando o cara do Marketing tenta escrever código, e esta informação foi super útil. Não consegui fazer com que o código abrangesse várias colunas ("AA2:AA3000" funciona, "AB2:AB3000" funciona, mas "AA2:AB3000" não funciona. Não há Kaboom devastador - simplesmente não faz nada. Eu resolvi isso (amadoramente, suponho) executando várias macros em sequência, mas provavelmente há uma maneira mais elegante. Obrigado novamente por sua ajuda, Jim (Melville, NY)
Este comentário foi feito pelo moderador no site
Eu recebo: erro de tempo de execução '13': Tipo de incompatibilidade A depuração destaca a seção If (cell.Value) = "FALSE" _ Then. Estou totalmente perdido no MVB, qualquer ajuda seria apreciada.
Este comentário foi feito pelo moderador no site
Digamos que eu coloque o código abaixo para excluir todas as minhas linhas que contêm maçã, mas quero que continue assim que terminar e exclua todas as linhas que contêm banana? Eu tentei apenas duplicar o código, mas parece parar depois da apple. obrigado. Sub Delete_Rows() Dim rng As Range, cell As Range, del As Range Set rng = Intersect(Range("A1:C20"), ActiveSheet.UsedRange) For Each cell In rng If (cell.Value) = "Apple" _ Then If del Is Nothing Then Set del = cell Else: Set del = Union(del, cell) End If End If Next cell On Error Resume Next del.EntireRow.Delete End Sub
Este comentário foi feito pelo moderador no site
Eu só queria agradecer. Isso funcionou como um encanto.
Este comentário foi feito pelo moderador no site
Definitivamente otimo! Valeu por compartilhar!!!
Este comentário foi feito pelo moderador no site
Obrigado, isso é ótimo! Comentário rápido, tentei a função localizar e substituir no excel 2010. Para selecionar todos os resultados encontrados, tive que usar Ctrl + A em vez de Alt + A.
Este comentário foi feito pelo moderador no site
Oi, Qual é a maneira mais fácil de excluir linhas que NÃO contêm "Apple", por favor? Obrigado
Este comentário foi feito pelo moderador no site
Oi, Qualquer maneira de escrevê-lo para excluir uma linha, com uma exceção OR? Ou seja, exclua as linhas duplicadas, mas ignore um determinado valor. Eu quero excluir duplicatas, exceto onde a coluna em questão contém um branco b/c essa coluna ainda não possui dados válidos. Eu corri como você fez, mas acabei excluindo linhas com um espaço em branco na coluna em questão, então não posso usar como está. Obrigado
Este comentário foi feito pelo moderador no site
Obrigado pelo script VB. Eu mal posso esperar para experimentar isso. Pergunta:Existe alguma maneira de marcar as colunas para exclusão antes de excluí-las e/ou copiá-las para uma guia separada na pasta de trabalho? Além disso, existe uma maneira de executar esse script em várias pastas de trabalho/arquivos ao mesmo tempo?
Este comentário foi feito pelo moderador no site
obrigado.. me ajuda muito...
Este comentário foi feito pelo moderador no site
Eu gostaria de excluir todas as linhas em que column1 = "Apple" AND column3 = "green". por favor?
Este comentário foi feito pelo moderador no site
Não tenho certeza de como fazer isso usando macros ou algo assim, mas uma opção que faria seu trabalho muito bem é adicionar uma coluna extra que testa se uma coluna é "maçã" e a outra "verde" e, em seguida, deixe dá um simples valor "sim" ou "não". do que usar uma das opções acima para pesquisar o valor "yes" e remover linhas com base nisso, em vez de 2 valores separados.
Este comentário foi feito pelo moderador no site
eu tenho uma lista de lojas em um documento. Tenho um relatório que retorna milhares de linhas. o número da loja está sempre na Coluna A. Existe um código/macro que irá pesquisar o relatório e excluir todas as colunas com números de loja da lista de lojas. pensando que um vlookup e "Do While" são necessários.
Este comentário foi feito pelo moderador no site
Olá e muito obrigado pelo código VBA. Eu tenho uma pergunta. É possível fazer o código da forma que é possível escolher vários valores de células para deletar ao mesmo tempo? Por exemplo, escolha Apple e Emily ao mesmo tempo e exclua-as? Agradeço seu trabalho e aguardo sua resposta. Joan K
Este comentário foi feito pelo moderador no site
Como posso especificar o intervalo A3:D3000 (ou seja, não quero que o usuário selecione o intervalo)? Como posso tornar o Delete String uma referência de célula, ex. G1?
Este comentário foi feito pelo moderador no site
é possível comparar duas colunas e depois excluir? está no intervalo A3:D3000 se a célula A=xe a célula B=y excluir a linha?
Este comentário foi feito pelo moderador no site
Que ótimo. muito obrigado a todos. :)
Não há comentários postados aqui ainda
carregar mais
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL