Como encontrar e excluir várias correspondências de uma só vez no Excel?

Ao trabalhar com grandes volumes de dados no Excel, é crucial conseguir encontrar rapidamente as informações necessárias em qualquer momento específico. E é aí que entra o recurso Localizar e Substituir, que ajuda você a encontrar e destacar valores ou formatos específicos na planilha ativa ou em toda a pasta de trabalho e, em seguida, fazer o que desejar com os resultados, como excluí-los ou substituí-los. No entanto, com o Localizar e Substituir do Excel, você só pode encontrar um valor por vez. Neste tutorial, vou apresentar uma maneira rápida de encontrar vários valores diferentes e excluí-los de uma só vez no Excel.

Encontrar e excluir várias correspondências de uma só vez com 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 as etapas abaixo e execute o código conforme suas necessidades.

1. No seu Excel, pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique Inserir > Módulo. Em seguida, copie um dos seguintes códigos VBA para o Módulo janela.

Código VBA 1: Encontrar e excluir 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("sales", "9", "@") na linha 13, você deve substituir "sales", "9", "@" pelos valores reais que deseja encontrar e excluir, lembre-se de colocar cada valor entre aspas duplas e separá-los com vírgulas.

Código VBA 2: Encontrar e excluir 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

3. Pressione F5 para executar o código VBA. Nota: Se você usar o Código VBA 1, uma caixa de diálogo aparecerá pedindo para selecionar o intervalo onde deseja encontrar e excluir valores. Você também pode clicar em uma aba de planilha para selecionar toda a planilha.

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 de uma só vez.

Encontrar e excluir várias correspondências de uma só vez com o recurso Selecionar Células Específicas

O Kutools para Excel oferece o recurso Selecionar Células Específicas para encontrar valores que atendam a uma ou duas condições definidas de uma só vez; continue lendo para descobrir como encontrar e excluir rapidamente vários valores de uma só vez.

1. Na aba Kutools , no grupo Edição , clique Selecionar > Selecionar Células Específicas.

2. Na caixa de diálogo pop-up Selecionar Células Específicas , por favor, faça o seguinte:

• Na caixa Selecionar células neste intervalo , clique no botão de seleção de intervalo à direita para especificar o intervalo de onde deseja encontrar e excluir valores. Nota: Para pesquisar em toda a planilha, clique na aba da planilha.
• Na seção Tipo de seleção, selecione a opção Célula.
• Na seção Tipo específico , defina até duas condições:
  • Clique na seta suspensa à esquerda para selecionar uma relação de 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 ou Ou.

3. Clique Ok para selecionar as células que atendem à(s) condição(ões) que você definiu. Uma caixa de diálogo aparece informando quantas células foram encontradas e selecionadas.

4. Clique OK. Agora, pressione a tecla DELETE para excluir os valores selecionados de uma só vez.

Demonstração: Encontrar e excluir várias correspondências de uma só vez no Excel

Artigos relacionados