¿Cómo eliminar filas que no coinciden con los criterios en otra hoja?

Puede que no sea difícil para ti eliminar filas que no coincidan con los criterios en la misma hoja, pero ¿conoces alguna manera de eliminar las filas que no coinciden con los criterios en otra hoja como se muestra a continuación? Ahora tengo dos trucos que pueden ayudarte a resolverlo rápidamente.

Eliminar filas que no coinciden con los criterios en otra hoja con VBA

Eliminar filas que no coinciden con los criterios en otra hoja con Kutools para Excel

Criterios(En Hoja 2)	Antes(Hoja 1)		Después(Hoja 1)

---

Eliminar filas que no coinciden con los criterios en otra hoja con VBA

Existe un código VBA que puede ayudarte a eliminar filas que no coincidan con los criterios en otra hoja.

1. Presiona Alt + F11 para mostrar la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana, haz clic en Insertar > Módulo para abrir una nueva ventana de módulo, luego copia el siguiente código VBA en la ventana del módulo.

VBA: Eliminar filas que no coinciden con los criterios en otra hoja en Excel.

Sub DeleteRow()
'Updateby20140618
Dim rng As Range
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant
Dim arr2 As Variant
Dim dic2 As Variant
Dim OutArr As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Set Rng1 = Rng1.Columns(1)
Set Rng2 = Rng2.Columns(1)
Set dic2 = CreateObject("Scripting.Dictionary")
arr1 = Rng1.Value
arr2 = Rng2.Value
For i = 1 To UBound(arr2, 1)
    xKey = arr2(i, 1)
    dic2(xKey) = ""
Next
Rng1.ClearContents
OutArr = Rng1.Value
xIndex = 1
For i = 1 To UBound(arr1, 1)
    xKey = arr1(i, 1)
    If dic2.Exists(xKey) Then
        OutArr(xIndex, 1) = xKey
        xIndex = xIndex + 1
    End If
Next
Rng1.Value = OutArr
End Sub

3. Haz clic en Ejecutar, y aparecerá un cuadro de diálogo KutoolsforExcel que te permitirá seleccionar un rango donde quieras eliminar las filas que no coincidan con los criterios. Ver captura de pantalla:

4. Haz clic en Aceptar, y aparecerá otro cuadro de diálogo para seleccionar los criterios en otra hoja, ver captura de pantalla:

5. Ahora todas las filas que no coinciden con los criterios en otra hoja han sido eliminadas.

---

Eliminar filas que no coinciden con los criterios en otra hoja con Kutools para Excel

Si el código VBA es un poco difícil para ti, puedes probar la función Comparar Rangos de Kutools para Excel.

Kutools para Excel incluye más de 300 herramientas útiles para Excel. Prueba gratis sin limitaciones durante 30 días. Consíguelo ahora

1. Selecciona la hoja donde deseas eliminar las filas que no coincidan con los criterios. Luego haz clic en Kutools > Rango > Comparar Celdas. Ver captura de pantalla:

2. En el cuadro de diálogo Comparar Celdas, haz clic en el botón en el Rango B, y luego podrás seleccionar el rango de criterios que necesitas. Ver captura de pantalla:

 

3. Luego haz clic en Aceptar, regresa al cuadro de diálogo Comparar Rangos, marca Valor Diferente y Seleccionar fila completa. Ver captura de pantalla:

4. Haz clic en Aceptar y cierra el cuadro de diálogo Comparar Rangos. Entonces verás que las filas cuyos valores son diferentes de los criterios están seleccionadas.

5. Haz clic derecho y selecciona Eliminar desde el menú contextual para eliminar las filas que no coinciden con los criterios en otra hoja.

Haz clic aquí para obtener más información sobre la función Comparar Rangos de Kutools para Excel.

---

Artículos Relacionados:

• Eliminar filas que no contienen cierto texto en Excel

---