Ir para o conteúdo principal

Como excluir uma linha inteira se a célula contém zero no Excel?

Às vezes, você deseja excluir a linha inteira se a célula contiver zero no Excel e pode excluí-los um por um, se houver alguns. Mas que tal centenas de linhas contendo zero precisarem ser removidas? Você pode escolher uma das maneiras mais complicadas de resolvê-lo.

Exclua a linha se a célula contiver zero com a função Filtro no Excel
Exclua a linha se a célula contiver zero com VBA no Excel
Exclua a linha se a célula contiver zero com o Kutools para Excel


Exclua a linha se a célula contiver zero com a função Filtro no Excel

Você pode usar a função Filtro para filtrar todas as linhas com base nos valores zero em uma determinada coluna e excluir todas as linhas visíveis posteriormente. Faça o seguinte.

1. Selecione as células da coluna que contêm os valores zero nos quais você deseja excluir todas as linhas com base e clique em Data > filtros. Veja a imagem:

2. Em seguida, uma seta suspensa é exibida na primeira célula da coluna selecionada, clique na seta e selecione Filtros de número > É igual a na lista suspensa.

doc deletar se zero 1

3. No AutoFiltro Personalizado caixa de diálogo, insira o número 0 na caixa de texto conforme a captura de tela mostrada abaixo e, em seguida, clique no OK botão.

doc deletar se zero 1

4. Em seguida, todas as células de valor zero nesta determinada coluna são filtradas. Selecione todas as células visíveis no intervalo do filtro e clique com o botão direito sobre elas, selecione Eliminar linhas no menu do botão direito. E na caixa de prompt pop-up, clique no OK botão. Veja a imagem:

doc deletar se zero 1

5. Agora todas as linhas visíveis são excluídas. Você pode clicar Data > filtros novamente para mostrar todos os dados sem células de valor zero. Veja a imagem:

doc deletar se zero 1


Exclua facilmente todas as linhas se existirem valores zero em um determinado intervalo no Excel:

Kutools para Excel's Selecione células específicas O utilitário ajuda você a selecionar facilmente linhas inteiras se valores zero existirem em um determinado intervalo, e então você pode excluir rapidamente todas as linhas selecionadas manualmente sem erros.
Baixe e experimente agora! (trilha gratuita de 30 dias)


Exclua a linha se a célula contiver zero com VBA no Excel

Esta seção mostrará o método VBA para excluir todas as linhas se existirem valores zero em uma determinada coluna do Excel.

1. Pressione Alt + F11 simultaneamente para exibir o Microsoft Visual Basic para Aplicações janela.

2. Na janela Microsoft Visual Basic for Applications, clique em inserção > Módulo, em seguida, copie e cole o seguinte código VBA na janela do módulo.

VBA: Exclua linhas inteiras se houver valor zero em determinado intervalo de colunas em uma planilha

Sub DeleteZeroRow () 'Updateby20140616 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8 ) Application.ScreenUpdating = False Defina Rng = WorkRng.Find ("0", LookIn: = xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub

3. aperte o F5 chave para executar o código, no pop-up Kutools para Excel caixa de diálogo, selecione o intervalo de colunas que deseja excluir linhas inteiras com base nos valores zero dentro e clique no OK botão. Veja a imagem:

doc deletar se zero 1

Em seguida, todas as linhas com base nos valores zero no intervalo de coluna especificado são excluídas imediatamente.

doc deletar se zero 1


Exclua a linha se a célula contiver zero com o Kutools para Excel

Para muitos usuários do Excel, usar o código VBA é perigoso para remover dados do Excel. Se você não confia exatamente no código VBA, recomendamos que experimente o Selecione células específicas utilidade de Kutools for Excel.

Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.

1. Selecione o intervalo de colunas que você removerá linhas inteiras com base nos valores zero dentro e clique em Kutools > Selecionar > Selecione células específicas. Veja a imagem:

2. No Selecione células específicas diálogo, você precisa:

(1) Selecione o Linha inteira opção no Tipo de seleção seção.

(2) Selecione É igual a em primeiro Tipo específico lista suspensa e insira o número 0 na caixa de texto.

(3) Clique no OK botão.

3. Uma caixa de diálogo aparecerá para informar quantas linhas foram selecionadas, clique no OK botão. Agora, todas as linhas com os valores zero existentes no intervalo de coluna especificado são selecionadas. Clique com o botão direito em qualquer linha selecionada e clique em Apagar no menu do botão direito. Veja a imagem:

doc deletar se zero 1

Agora, todas as linhas com valores zero existentes na coluna especificada são excluídas imediatamente. Veja a imagem:

doc deletar se zero 1

  Se você quiser ter um teste gratuito (30 dias) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.


Exclua a linha se a célula contiver zero com o Kutools para Excel


Artigos relativos:

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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...

Descrição


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!
Comments (15)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0?
This comment was minimized by the moderator on the site
Insert this in VB new module.
This is with InputBox to delete row which contains that word.

Attribute VB_Name = "FindDelRowByWord"
Sub FindDelRow()
'Updateby20140616
Dim Rng As Range
Dim WorkRng As Range
Dim xRep As String
On Error Resume Next
xTitleId = "ZOK Tools"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRep = Application.InputBox("word to delete Row:", "ZOK Tools", , , , , 2)
Application.ScreenUpdating = False
Do
Set Rng = WorkRng.Find(xRep, LookIn:=xlValues)
If Not Rng Is Nothing Then
Rng.EntireRow.Delete
End If
Loop While Not Rng Is Nothing
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
WHAT IF you have a big sheet, and there are rows you want to keep, and others rows that contain certain key words and delete those? the kutools work for me but for one key word that many rows have that key word, the rows were deleted, i just want to have multiple key words to do the same? does this work for the code above?
This comment was minimized by the moderator on the site
Good Day,
Kutools can deal with two key words at the same time. You need to enable its second condition with "And" or "Or". Hope I can help.
This comment was minimized by the moderator on the site
This didn't work for me. It changed all values in my chosen column and the adjacent column to zeros. I must be doing something wrong!
This comment was minimized by the moderator on the site
Hi Sheri,
The code works well in my case. Which Excel verson do you use?
This comment was minimized by the moderator on the site
Hi Crystal. I posted this two years ago so I’m guessing I figured it out. But thanks for the reply.
This comment was minimized by the moderator on the site
Hi dears , I need a code to hide the rows which have the value=0 on the column "N" in the sheet 1. The value of the column "N" will change when update the details on the Sheet 2. that's the time need to un-hide the row. is this possible to do this with Excel formula(without macro and Excel Filters).
This comment was minimized by the moderator on the site
modified for my purpose--thank you for your help: Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation = xlManual MsgBox "Set the range you want to remove the unused 0 quantity rows from" Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Type:=8) Application.ScreenUpdating = False Sheets("ENTRY").Select Do Set Rng = WorkRng.Find("0", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True Range("FF92").Select Selection.End(xlDown).Select MsgBox "Removed 0's ROWS from column FG--calculating now--please wait" Application.Calculation = xlAutomatic End Sub
This comment was minimized by the moderator on the site
I modified the below code to work for me. This deleted every row in column C that had "Delete" in the cell of column C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
Hi,
its worked for me, thanks a lot.
if I have multiple sheets? how i can run the script 1 time for all the sheets?
This comment was minimized by the moderator on the site
thanks for the response, worked for me
This comment was minimized by the moderator on the site
I modified the above code to work for me. I wanted to delete every row that had "Delete" in row C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
Your VB code doesn't work. It deletes all rows with a Zero in the 10s position. I hope no one actually uses this as they will delete data...
This comment was minimized by the moderator on the site
This was a life saver!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations