¿Cómo encontrar y eliminar varias coincidencias a la vez en Excel?

Al trabajar con grandes volúmenes de datos en Excel, es crucial poder encontrar rápidamente la información que necesita en un momento determinado. Ahí es cuando necesitará la función Buscar y Reemplazar, que le ayuda a encontrar y resaltar valores o formatos específicos en la hoja activa o en todo el libro de trabajo, para luego realizar acciones como eliminarlos o reemplazarlos. Sin embargo, con la función Buscar y Reemplazar de Excel, solo puede buscar un valor a la vez. En este tutorial, presentaré una forma rápida de encontrar varios valores diferentes y eliminarlos a la vez en Excel.

Buscar y eliminar varias coincidencias a la vez con VBA

Hemos creado dos códigos VBA para ayudarlo a encontrar múltiples valores diferentes en el rango seleccionado o en varias hojas de cálculo y eliminarlos inmediatamente. Por favor, siga los pasos a continuación y ejecute el código según sus necesidades.

1. En su Excel, presione las teclas Alt + F11 para abrir la ventana Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > MóduloLuego copie cualquiera de los siguientes códigos VBA en el Módulo ventana.

Código VBA 1: Buscar y eliminar varias coincidencias en el rango seleccionado a la 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: En el fragmento xArrFinStr = Array("ventas", "9", "@") en la fila 13, debe reemplazar "ventas", "9", "@" con los valores reales que desea buscar y eliminar; recuerde encerrar cada valor entre comillas dobles y separarlos con comas.

Código VBA 2: Buscar y eliminar varias coincidencias en varias hojas a la 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. Presione F5 para ejecutar el código VBA. Nota: Si utiliza el Código VBA 1, aparecerá un cuadro de diálogo pidiéndole que seleccione el rango donde buscar y eliminar valores. También puede hacer clic en una pestaña de hoja para seleccionar toda la hoja.

4. Aparece el cuadro de diálogo mostrado a continuación indicando que el código ha eliminado las coincidencias especificadas. Haga clic en Aceptar para cerrar el cuadro de diálogo.

5. Los valores especificados se han eliminado a la vez.

Buscar y eliminar varias coincidencias a la vez con la función Seleccionar Celdas Específicas

Kutools para Excel ofrece la función Seleccionar Celdas Específicas para encontrar valores que cumplan una o dos condiciones que establezca a la vez; siga leyendo para descubrir cómo encontrar y eliminar rápidamente varios valores a la vez.

1. En la pestaña Kutools en el grupo Edición haga clic en Seleccionar > Seleccionar Celdas Específicas.

2. En el cuadro de diálogo emergente Seleccionar Celdas Específicas por favor, haga lo siguiente:

• En el cuadro Seleccionar celdas dentro del rango haga clic en el botón de selección de rango a la derecha para especificar el rango desde donde buscar y eliminar valores.. Nota: Para buscar en toda la hoja, haga clic en la pestaña de la hoja.
• En la sección Tipo de selección, seleccione la opción Celda.
• En la sección Especificar tipo configure hasta dos condiciones:
  • Haga clic en la flecha desplegable del lado izquierdo para seleccionar una relación que necesite, como Contiene, Igual, Menor que, Comienza con, etc.
  • Escriba el valor en el cuadro correspondiente según sus necesidades.
  • Especifique la relación entre las dos condiciones (si las hay): Y u O.

3. Haga clic en Aceptar para seleccionar las celdas que cumplen con la(s) condición(es) que estableció. Aparecerá un cuadro de diálogo indicándole cuántas celdas se encontraron y seleccionaron.

4. Haga clic en AceptarAhora, presione la tecla SUPR para eliminar los valores seleccionados a la vez.

Demostración: Buscar y eliminar varias coincidencias a la vez en Excel

Artículos relacionados