Como encontrar e excluir várias correspondências de uma só vez no Excel?
Ao trabalhar com grandes dados no Excel, é crucial poder encontrar rapidamente as informações de que você precisa em qualquer momento específico. E é aí que você precisa do recurso Localizar e substituir, que o ajuda a localizar e destacar valores ou formatos específicos na planilha ativa ou em toda a pasta de trabalho e, em seguida, fazer o que quiser com os resultados, por exemplo, excluí-los ou substituí-los. No entanto, com Localizar e Substituir do Excel, você pode localizar apenas um valor por vez. Neste tutorial, apresentarei uma maneira rápida de encontrar vários valores diferentes e excluí-los de uma só vez no Excel.
Encontre e exclua várias correspondências de uma só vez com o VBA
Criamos dois códigos VBA para ajudá-lo a encontrar vários valores diferentes no intervalo selecionado ou em várias planilhas e excluí-los imediatamente. Por favor, siga os passos abaixo e execute o código de acordo com suas necessidades.
1. Em seu Excel, pressione o botão outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Módulo. Em seguida, copie um dos seguintes códigos VBA para o Módulo janela.
Código VBA 1: encontre e exclua várias correspondências no intervalo selecionado 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 Sub
Nota: No trecho xArrFinStr = Array("vendas", "9", "@") na 13ª linha, você deve substituir "vendas", "9", "@" com os valores reais que você deseja localizar e excluir, lembre-se de colocar cada valor entre aspas duplas e separá-los com vírgulas.
Código VBA 2: encontre e exclua várias correspondências em várias planilhas 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 trecho xArr = Array("Planilha1", "Planilha2") na 15ª linha, você deve substituir "Folha1", "Folha2" com os nomes reais das planilhas onde você deseja localizar e excluir os valores. Lembre-se de colocar os nomes de cada folha entre aspas duplas e separá-los com vírgulas.
- No trecho xArrFinStr = Array("vendas", "9", "@") na 16ª linha, você deve substituir "vendas", "9", "@" com os valores reais que você deseja localizar e excluir, lembre-se de colocar cada valor entre aspas duplas e separá-los com vírgulas.
3. Pressione F5 para executar o código VBA. Nota: Se você usar o Código VBA 1, uma caixa de diálogo aparecerá solicitando que você selecione o intervalo onde localizar e excluir valores. Você também pode clicar em uma guia de planilha para selecionar a planilha inteira.
4. A caixa de diálogo mostrada abaixo aparece informando que o código excluiu as correspondências especificadas. Clique OK para fechar a caixa de diálogo.
5. Os valores especificados foram excluídos imediatamente.
Encontre e exclua várias correspondências de uma só vez com o recurso Selecionar células específicas
Kutools para Excel oferece o Selecione células específicas para encontrar valores que atendem a uma ou duas condições que você definiu de uma só vez, continue lendo para descobrir como localizar e excluir rapidamente vários valores de uma só vez.
1. No Kutools guia, no Edição grupo, clique em Selecionar > Selecione células específicas.
- No Selecione as células neste intervalo caixa, clique no botão de seleção de intervalo à direita para especificar o intervalo de onde encontrar e excluir valores. Nota: Para pesquisar em toda a planilha, clique na guia da planilha.
- No Tipo de seleção seção, selecione o Célula opção.
- No Tipo específico seção, defina no máximo duas condições:
- Clique na seta suspensa no lado esquerdo para selecionar um relacionamento que você precisa, como contém, É igual a, Menor que, Começa com, etc.
- Digite o valor na caixa correspondente de acordo com suas necessidades.
- Especifique a relação entre as duas condições (se houver): E or Or.
3. Clique Ok para selecionar as células que atendem às condições definidas. Uma caixa de diálogo aparece informando quantas células foram encontradas e selecionadas.
4. Clique OK. Agora, pressione o EXCLUIR tecla para excluir os valores selecionados de uma só vez.
Nota: Para usar o Selecione células específicas recurso, você deve ter o Kutools for Excel instalado em seu computador. Se você não possui o Kutools instalado, clique aqui para baixar e instalar. O suplemento profissional do Excel oferece uma avaliação gratuita de 30 dias sem limitações.
Encontre e exclua várias correspondências de uma só vez No Excel
Artigos relacionados
Encontrar, destacar, filtrar, contar, excluir duplicatas no Excel
No Excel, dados duplicados ocorrem repetidamente quando registramos dados manualmente, copiamos dados de outras fontes ou por outros motivos. Às vezes, as duplicatas são necessárias e úteis. No entanto, às vezes, os valores duplicados levam a erros ou mal-entendidos. Aqui, este artigo apresentará métodos para identificar, destacar, filtrar, contar, excluir duplicatas por fórmulas, regras de formatação condicional, suplementos de terceiros etc. no Excel.
Como comparar duas colunas e excluir correspondências no Excel?
Se você tem duas colunas / listas incluindo algumas duplicatas, agora você deseja compará-las e descobrir as correspondências e excluí-las, como você pode resolver rapidamente? Neste artigo, apresento diferentes maneiras de ajudá-lo a lidar com isso no Excel.
Como excluir todos os intervalos selecionados no Excel?
No Excel, podemos excluir de forma rápida e direta os intervalos selecionados, mas você já tentou excluir outros conteúdos de células, exceto os intervalos selecionados? Neste artigo, irei apresentar alguns truques para você resolver essa tarefa no Excel de forma rápida e fácil.
Como excluir todas as imagens em um intervalo de células?
Se houver várias imagens preenchidas em sua planilha, agora, você deseja excluir algumas delas em um intervalo especificado, como você lida com isso rapidamente?
Melhores ferramentas de produtividade de escritório
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...
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!