Como deletar linhas que não contenham determinado texto no Excel?
Talvez alguns de vocês saibam como deletar linhas inteiras quando elas contêm certos textos no Excel, mas se você quiserem toda a linha quando elas não contêm certos textos, como você faria? Agora, siga este tutorial, você pode encontrar a maneira de resolver este problema no Excel.
Exclua as linhas que não contêm determinado texto com o Filtro
Exclua linhas que não contenham determinado texto com VBA
Exclua linhas que não contêm determinado texto com o Kutools para Excel
Exclua as linhas que não contêm determinado texto com o Filtro
No Excel, a função Filtro pode ajudá-lo rapidamente a filtrar as linhas que não contêm determinado texto e, então, você pode selecioná-las para exclusão.
1. Selecione a coluna que contém os textos nos quais você removerá as linhas e clique em Data > filtros. Veja a imagem:
2. No cabeçalho da coluna, há um botão de filtro e clique nele para abrir a lista suspensa, marque todos, exceto o texto específico no qual deseja se basear. Veja a imagem:
3. Em seguida, você pode ver apenas a linha de cabeçalho e as linhas que não contêm determinado texto são filtradas. Veja a captura de tela:
4. Selecione todos eles, exceto a linha de cabeçalho e clique com o botão direito para selecionar Excluir linha no menu de contexto. Veja a imagem:
5. Então clique Data > filtros novamente e, em seguida, todas as linhas que não contêm determinado texto são excluídas. Veja a imagem:
Exclua linhas que não contenham determinado texto com VBA
O VBA é muito útil para operações um tanto difíceis no Excel e siga as etapas abaixo para excluir as linhas que não contêm determinado texto.
1. Pressione Alt + F11 para exibir o Microsoft Visual Basic para Aplicações janela.
2. Na janela, clique em inserção > Módulo para mostrar uma nova janela do módulo, copie o seguinte código VBA para a janela do módulo.
VBA: Exclua a linha inteira se a célula contiver determinado texto.
Sub DeleteRowNoInclude()
'Update20140618
Dim xRow As Range
Dim rng As Range
Dim WorkRng As Range
Dim xStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xStr = Application.InputBox("Text", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 1 Step -1
Set xRow = WorkRng.Rows(i)
Set rng = xRow.Find(xStr, LookIn:=xlValues)
If rng Is Nothing Then
xRow.Delete
End If
Next
Application.ScreenUpdating = True
End Sub
3. Clique Execute botão, e uma caixa de diálogo é exibida para você selecionar um intervalo para trabalhar. Veja a imagem:
4. Então clique OKe digite o texto no qual deseja remover a base de linhas em outra caixa de diálogo pop-up. Veja a imagem:
5. Clique OK, e as linhas que não contêm Apple serão removidas.
Exclua linhas que não contêm determinado texto com o Kutools para Excel
Se você acha que os métodos acima não são fáceis para você, você pode usar Kutools for Excel's Selecione células específicas recurso.
Kutools for Excel inclui mais de 300 ferramentas úteis do Excel. Gratuito para testar sem limitação em 30 dias. Get it Now
1. Selecione a coluna em que deseja excluir as linhas que não contêm o texto específico e clique em Kutools > Selecione Ferramentas > Selecione células específicas. Veja a imagem:
2. E no Selecione células específicas diálogo, verificar Linha inteiraE selecione Não contéme digite o texto certo na caixa de texto, você também pode clicar no botão de intervalo no Tipo específico seção para selecionar a célula que contém o determinado texto.
3. Então clique Ok, então as linhas que não contêm determinado texto são selecionadas, clique com o botão direito para selecionar Apagar no menu de contexto. Veja a imagem:
4. Agora todas as linhas que não contêm determinado texto no intervalo são removidas. Clique nela para obter mais informações sobre Selecionar células específicas.
Artigos relativos:
- Exclua linhas inteiras se a célula não contiver zero no Excel
- Excluir linhas que não correspondem aos critérios em outra folha
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!