Note: The other languages of the website are Google-translated. Back to English
Log in  \/ 
x
or
x
Inscreva-se  \/ 
x

or

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 Dados > 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 Dados > 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 livre 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 KutoolsforExcel 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 Excluir 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:


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 ...
  • Super Formula Bar (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-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. 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!
officetab bottom
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Guest · 2 years ago
    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
    • To post as a guest, your comment is unpublished.
      AndrewRosales · 2 years ago
      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?
      • To post as a guest, your comment is unpublished.
        crystal · 2 years ago
        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.
  • To post as a guest, your comment is unpublished.
    Sheri · 4 years ago
    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!
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Sheri,
      The code works well in my case. Which Excel verson do you use?
      • To post as a guest, your comment is unpublished.
        sheri.dohm@gmail.com · 2 years ago
        Hi Crystal. I posted this two years ago so I’m guessing I figured it out. But thanks for the reply.
  • To post as a guest, your comment is unpublished.
    R. Arunkumar · 5 years ago
    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).
  • To post as a guest, your comment is unpublished.
    J Murphy · 5 years ago
    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
  • To post as a guest, your comment is unpublished.
    Andrew · 6 years ago
    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
    • To post as a guest, your comment is unpublished.
      yoav · 2 years ago
      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?
    • To post as a guest, your comment is unpublished.
      Anonymous · 5 years ago
      thanks for the response, worked for me
  • To post as a guest, your comment is unpublished.
    Andrew · 6 years ago
    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
  • To post as a guest, your comment is unpublished.
    Scott · 6 years ago
    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...
  • To post as a guest, your comment is unpublished.
    Tom B · 6 years ago
    This was a life saver!!