Como localizar e eliminar várias correspondências de uma só vez no Excel?
Ao trabalhar com grandes volumes de dados no Excel, é essencial conseguir localizar rapidamente a informação necessária em qualquer momento. É aí que entra a funcionalidade Localizar e Substituir, que lhe permite encontrar e destacar valores ou formatos específicos em toda a Planilha Ativa ou em todo o livro, para depois executar as ações pretendidas — como eliminar ou substituir. Contudo, com a ferramenta Localizar e Substituir do Excel, só é possível procurar um valor de cada vez. Neste tutorial, mostro-lhe uma forma rápida de localizar vários valores diferentes e eliminá-los todos de uma só vez no Excel.
Localizar e eliminar várias correspondências de uma só vez com VBA
Criámos dois códigos VBA para o ajudar a localizar vários valores diferentes no intervalo selecionado ou em múltiplas folhas de cálculo e eliminá-los imediatamente. Siga os passos abaixo e execute o código conforme as suas necessidades.
1. No seu Excel, prima as teclas Alt+F11 para abrir a janela Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo. Depois, copie um dos seguintes códigos VBA para a janela Módulo.
Código VBA 1: Localizar e eliminar várias correspondências no Selecionar intervalo de uma só vez
Sub FindAndDeleteDifferentValues_Range()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
On Error Resume Next
Set xRg = Application.InputBox("Please select the search scope:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub
xBol = False
For Each xARg In xRg.Areas
Set xFindRg = Nothing
Set xFindRgs = Nothing
Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
For Each xFindRg In xURg
For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
If xFindRg.Text = xArrFinStr(xJ) Then
xBol = True
If xFindRgs Is Nothing Then
Set xFindRgs = xFindRg
Else
Set xFindRgs = Application.Union(xFindRgs, xFindRg)
End If
End If
Next
Next
If Not xFindRgs Is Nothing Then
xFindRgs.ClearContents
End If
Next
If xBol Then
MsgBox "Successfully deleted."
Else
MsgBox "No results found."
End If
End SubNota: No excerto xArrFinStr = Array(«sales», «[[PH_35]]», «@»), na 13.ª linha, deverá substituir «sales», "9", «@» pelo valor atual que pretende localizar e eliminar. Lembre-se de colocar cada valor entre aspas duplas e separá-los por vírgulas.
Código VBA 2: Localizar e eliminar várias correspondências em múltiplas folhas de uma só vez
Sub FindAndDeleteDifferentValues_WorkSheets()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and delete the values. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
Set xWSh = xWb.Worksheets(xArr(xI))
Set xFindRg = Nothing
xWSh.Activate
Set xFindRgs = Nothing
Set xURg = xWSh.UsedRange
Set xFindRgs = Nothing
For Each xFindRg In xURg
For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
If xFindRg.Text = xArrFinStr(xJ) Then
xBol = True
If xFindRgs Is Nothing Then
Set xFindRgs = xFindRg
Else
Set xFindRgs = Application.Union(xFindRgs, xFindRg)
End If
End If
Next
Next
If Not xFindRgs Is Nothing Then
xFindRgs.ClearContents
End If
Next
If xBol Then
MsgBox "Successfully deleted."
Else
MsgBox "No results found."
End If
End Sub- No excerto xArr = Array("Sheet1", "Sheet2") na 15.ª linha, substitua "Sheet1", "Sheet2" pelos nomes reais das folhas onde pretende encontrar e eliminar os valores. Lembre-se de colocar cada nome de folha entre aspas duplas e separá-los por vírgulas.
- No excerto xArrFinStr = Array(«sales», «[[PH_38]]», «@») na 16.ª linha, substitua «sales», "9", «@» pelo valor atual que pretende encontrar e eliminar. Lembre-se de colocar cada valor entre aspas duplas e separá-los por vírgulas.
3. Prima F5 para executar o código VBA.Nota: Se utilizar o código VBA 1, surge uma caixa de diálogo a solicitar que selecione o intervalo onde pretende localizar e eliminar valores. Também pode clicar num separador de folha para selecionar a folha completa.
4. Surge a caixa de diálogo apresentada abaixo, informando que o código eliminou as correspondências especificadas. Clique em OK para fechar a caixa de diálogo.
5. Os valores especificados foram removidos de uma só vez.
Localizar e eliminar várias correspondências de uma só vez com a funcionalidade Selecionar células específicas
O Kutools para Excel oferece a funcionalidade Selecionar células específicas para localizar valores que cumpram uma ou duas condições definidas de uma só vez. Leia para saber como localizar e eliminar rapidamente vários valores em simultâneo.
1. No separador Kutools, no grupo Edição, clique em Selecionar > Selecionar células específicas.
- Na caixa Selecione células dentro do intervalo, clique no botão de seleção de intervalo
à direita para especificar o intervalo de onde encontrar e eliminar valores.Nota:Para pesquisar em toda a folha, clique no separador da folha. - Na secção Selecionar tipo, selecione a opção Célula.
- Na secção Especificar tipo, defina, no máximo, duas condições:
- Clique na seta suspensa no lado esquerdo para selecionar a relação de que necessita, como Contém, Igual a, Menor do que, Começa por, entre outras.
- Introduza o valor na caixa correspondente, de acordo com as suas necessidades.
- Especifique a relação entre as duas condições (se existirem): E ou Ou.
à direita para especificar o intervalo de 
3. Clique em Ok para selecionar as células que cumprem a(s) condição(ões) definida(s). Surge uma caixa de diálogo a indicar quantas células foram encontradas e selecionadas.
4. Clique em OK. Agora, prima a tecla DELETE para eliminar os valores selecionados de uma só vez.
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
Demonstração: Localizar e eliminar várias correspondências de uma só vez no Excel
Artigos relacionados
Localizar, Destacar, Filtrar, Contar e Eliminar Duplicados no Excel
No Excel, os dados duplicados surgem frequentemente ao inserir informações manualmente, ao copiar dados de outras fontes ou por outras razões. Por vezes, esses duplicados são necessários e úteis — mas, em outros casos, podem causar erros ou equívocos. Neste artigo, apresentamos métodos rápidos para identificar, destacar, filtrar, contar e eliminar valores duplicados no Excel, utilizando fórmulas, regras de Formatação Condicional, complementos de terceiros e muito mais.
Como comparar duas colunas e eliminar as correspondências no Excel?
Se tiver duas colunas ou listas com alguns itens duplicados e quiser compará-las para identificar as correspondências — e depois eliminá-las —, como pode resolver isto rapidamente? Neste artigo, apresento várias formas eficazes de lidar com esta situação no Excel.
Como eliminar tudo, exceto o intervalo selecionado, no Excel?
No Excel, podemos eliminar rapidamente e diretamente o conteúdo de um intervalo selecionado, mas já alguma vez tentou remover outros tipos de conteúdo das células, exceto o intervalo selecionado? Neste artigo, apresento alguns truques para resolver esta tarefa de forma rápida e fácil no Excel.
Como eliminar todas as imagens num intervalo de células?
Se existirem várias imagens na sua folha de cálculo e pretender eliminar apenas algumas num intervalo limitado, como o pode fazer rapidamente?
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