Ir para o conteúdo principal

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

Observação: 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
Observação:
  • 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. Observação: 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.

2. No pop-up Selecione células específicas caixa de diálogo, faça o seguinte:
  • 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. Observação: 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.

Observação: 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

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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...

Descrição


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations