¿Cómo eliminar las filas que no coincidan con los criterios establecidos en otra hoja?

Es posible que eliminar filas que no coincidan con los criterios en la misma hoja no le resulte difícil, pero ¿conoce algún método para eliminar las filas que no coincidan con los criterios de otra hoja, tal como se muestra a continuación? A continuación, le presento dos trucos que le ayudarán a resolverlo rápidamente.

Eliminar filas que no coincidan con los criterios de otra hoja con VBA

Eliminar filas que no coincidan con los criterios de otra hoja con Kutools para Excel

Criterios (en la hoja 2)	Antes (hoja 1)		Después (Hoja1)

---

Eliminar filas que no coincidan con los criterios de otra hoja con VBA

Existe un código VBA que le permite eliminar filas que no coincidan con los criterios establecidos en otra hoja.

1. Pulse Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana, haga clic en Insertar > Módulo para abrir una nueva ventana de módulo y, a continuación, copie el siguiente código VBA en dicha ventana.

VBA: Elimina filas que no cumplan con los criterios especificados en otra hoja de 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. Haga clic en Ejecutar, un KutoolsforExcely aparecerá un cuadro de diálogo para que seleccione el rango del que desea eliminar las filas que no coincidan con los criterios. Consulte la captura de pantalla:

4. Haga clic en Aceptar y aparecerá otro cuadro de diálogo para seleccionar los criterios en otra hoja; consulte la captura de pantalla:

5. Ahora se han eliminado todas las filas que no cumplen con los criterios de otra hoja.

---

Eliminar filas que no coincidan con los criterios de otra hoja con Kutools para Excel

Si el código VBA le parece un poco complicado, pruebe la función Comparar rangos de Kutools para Excel.

Kutools para Excel incluye más de 300 herramientas útiles para Excel. ¡Pruébelo gratis sin limitaciones durante 30 días! Obtenerlo ahora

1. Seleccione la hoja en la que desea eliminar las filas que no coincidan con los criterios y haga clic en Kutools > Rango > Comparar Celdas. Consulte la captura de pantalla:

2. En el cuadro de diálogo Comparar Celdas, haga clic en el botón situado en Rango B y seleccione el rango de criterios que necesite. Consulte la captura de pantalla:

 

3. A continuación, haga clic en Aceptar, regrese al cuadro de diálogo Comparar rangos, active la casilla Valor diferente y Seleccionar Fila Completa. Consulte la captura de pantalla:

4. Haga clic en Aceptar y cierre el cuadro de diálogo Comparar rangos. Verá que se han seleccionado las filas cuyos valores no coinciden con los criterios.

5. Haga clic con el botón derecho y seleccione Eliminar en el menú contextual para borrar las filas que no coincidan con los criterios de otra hoja.

Haga clic aquí para descubrir más sobre la función Comparar rangos de Kutools para Excel.

---

Artículos relacionados:

• Eliminar filas que no contenga determinado texto en Excel

---