¿Cómo eliminar filas que no coinciden con los criterios en otra hoja?
Puede que no le resulte difícil eliminar filas que no coincidan con los criterios en la misma hoja, pero ¿conoce alguna forma 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
Elimine las filas que no coinciden con los criterios en otra hoja con Kutools para Excel
 |
 |
 |
 |
| Criterios (en la hoja 2) | Antes (Hoja 1) | Después (Hoja1) |
Eliminar filas que no coinciden con los criterios en otra hoja con VBA
Hay un código VBA que puede ayudarlo a eliminar filas que no coinciden con los criterios en otra hoja.
1. Prensa Alt + F11 para mostrar el Microsoft Visual Basic para aplicaciones ventana.
2. En la ventana, haga clic en recuadro > Módulo para mostrar una nueva ventana del módulo, luego copie el siguiente código VBA en la ventana del módulo.
VBA: elimine las 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
4. Hacer clic en OK, y aparece otro cuadro de diálogo para seleccionar los criterios en otra hoja, vea la captura de pantalla:
5. Ahora se eliminan todas las filas que no coinciden con los criterios de otra hoja.
Elimine las 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 usted, puede probar la función Comparar rangos de Kutools for Excel.
Kutools for Excel incluye más de 300 útiles herramientas de Excel. Prueba gratis sin límite en 30 días. Comprar ahora
1. Seleccione la hoja en la que desea eliminar las filas que no coinciden con los criterios. Y haga clic en Kutools > Comparar rangos. Ver captura de pantalla:
2. En el Comparar rangos cuadro de diálogo, haga clic en el botón en el Rango By luego puede seleccionar el rango de criterios que necesita. Ver captura de pantalla:
 |
 |
 |
3. Luego haga clic OK, luego de vuelta al Comparar rangos diálogo, comprobar Valor diferente y Seleccionar filas enteras. Ver captura de pantalla:
4. Hacer clic en Oky salir del Comparar rangos diálogo. Luego verá que se seleccionan las filas de valores que son diferentes de los criterios.
5. Haga clic derecho para hacer clic Borrar en el menú contextual para eliminar las filas que no coinciden con los criterios en otra hoja.
Haga clic aquí para obtener más información sobre los rangos de comparación de Kutools para Excel.
Artículos relativos:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
