Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Conservar las selecciones en la hoja 2 en vba excel hoja 1 y eliminar otras filas?

¿Conservar las selecciones en la hoja 2 en vba excel hoja 1 y eliminar otras filas?

Sub prueba1()

Atenuar i&, r&, rgs2 como rango

r = Hojas("Hoja1").Celdas(Filas.Cuenta, 2) .End(3).Row

Establecer rgs2 = Rango(Hojas("Hoja2").[a2], Hojas("Hoja2").Celdas(Filas.Count, 1).End(3) )

Para i = r al 2 paso -1

Con hojas("Hoja1").Celdas(i, 2)

Si rgs2.Find( .Text, , , 1) No es nada entonces

.EntireRow.Delete

End If

Termina con

Fin del subtítulo