Como excluir linhas com valores negativos no Excel?
Suponha que você tenha o seguinte intervalo de dados e deseja excluir as linhas inteiras se o número for negativo na coluna B. Existem bons métodos para resolver esse problema no Excel?
 |  |  | Excluir linhas com números negativos usando código VBA Excluir linhas com números negativos usando Kutools para Excel |
Excluir linhas com números negativos usando código VBA
O seguinte código VBA pode ajudá-lo a excluir as linhas inteiras se houver números negativos em uma coluna específica. Por favor, siga os passos abaixo:
1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.
Código VBA: Excluir linhas com números negativos
Sub Deleter()
'updatebyExtendoffice
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
Dim I As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Sel:
Set xRg = Nothing
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
If xRg.Columns.Count > 1 Then
MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) < 0 Then xRg.Cells(I).EntireRow.Delete
Next
End Sub
3. Em seguida, pressione a tecla F5 para executar este código. Na caixa de diálogo, selecione a coluna numérica da qual deseja encontrar os números negativos, veja a captura de tela:
4. Depois clique no botão OK, as linhas com números negativos serão excluídas imediatamente.
Excluir linhas com números negativos usando Kutools para Excel
Para lidar com essa tarefa, o recurso Selecionar Células Específicas do Kutools para Excel também pode ajudá-lo. Com esta ferramenta, você pode selecionar primeiro as linhas inteiras contendo os valores negativos e depois excluir todas as linhas conforme necessário.
| Kutools para Excel : com mais de 300 complementos úteis para o Excel, grátis para experimentar sem limitação por 30 dias. |
Após instalar o Kutools para Excel, siga os passos abaixo:
1. Selecione a coluna que contém os números negativos que você deseja excluir.
2. Em seguida, clique em Kutools > Selecionar > Selecionar Células Específicas, veja a captura de tela:
3. Na caixa de diálogo Selecionar Células Específicas, selecione a opção Linha Inteira no tipo de seleção, e depois escolha Menor que no tipo específico e insira 0 na caixa de texto ao lado dos critérios, veja a captura de tela:
4. Depois clique em Ok, as linhas que contêm números negativos serão selecionadas imediatamente, e então clique em Página Inicial > Excluir > Excluir Linhas da Planilha para excluir as linhas selecionadas conforme necessário, veja as capturas de tela:
 | |  |
Dicas: Você também pode clicar com o botão direito para selecionar Excluir no menu de contexto para excluir as linhas selecionadas.
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins