Como eliminar linhas com valores negativos no Excel?
Suponha que tem o seguinte intervalo de dados e pretende eliminar a linha inteira sempre que o número na coluna B for negativo. Existem métodos eficazes para resolver este problema no Excel?
 |  |  | Excluir linhas com números negativos utilizando código VBA Excluir linhas com números negativos utilizando Kutools para Excel |
Excluir linhas com números negativos utilizando código VBA
O seguinte código VBA pode ajudá-lo a eliminar a linha inteira caso existam números negativos numa coluna especificada. Siga os passos abaixo:
1. Prima e mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e cole o código seguinte 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, prima a tecla F5 para executar este código. Na caixa de diálogo apresentada, selecione a coluna numérica a partir da qual pretende localizar os números negativos (veja a imagem):
4. Depois, clique no botão OK e as linhas com números negativos serão eliminadas imediatamente.
Excluir linhas com números negativos utilizando Kutools para Excel
Para realizar esta tarefa, a funcionalidade Kutools para Excel’s Selecionar células específicas também lhe pode prestar um favor. Com esta ferramenta, pode primeiro selecionar as linhas inteiras que contêm valores negativos e, em seguida, eliminá-las conforme necessário.
| Kutools para Excel:com mais de 300 práticas extensões para Excel, gratuitas para experimentar sem limitações durante 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 pretende remover.
2. Em seguida, clique em Kutools > Selecionar > Selecionar células específicas (veja a imagem):
3. Na caixa de diálogo Selecionar células específicas, selecione a opção Linha inteira em Selecionar tipo e, em seguida, escolha Menor do que em Especificar tipo e introduza 0 na caixa de texto junto aos critérios (veja a imagem):
4. Em seguida, clique em Ok. As linhas que contêm números negativos serão selecionadas imediatamente. Depois, clique em Base > Eliminar > Eliminar Linhas da Folha para eliminar as linhas selecionadas conforme necessário (veja as imagens):
 | |  |
Dicas： Também pode clicar com o botão direito do rato e selecionar Eliminar no menu de contexto para eliminar as linhas selecionadas.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos