Excel - Una macro para eliminar la fila en condición

Las macros se pueden usar para varias operaciones en hojas de cálculo de Excel, como eliminar filas que satisfacen una condición determinada. Aunque no es necesario, algunos conocimientos de conceptos de programación y bucles pueden resultar útiles para escribir una macro en Excel. Las macros en Excel para eliminar filas que satisfacen ciertas condiciones pueden escribirse desde cero o desarrollarse a partir de un código de macro de libre acceso. Las macros son una característica muy útil y se pueden usar para realizar manipulaciones de datos en hojas de cálculo de Excel con una gran cantidad de registros. Las macros en Excel automatizan el proceso haciendo que la tarea sea rápida y sin errores.

Problema

Necesito una macro para eliminar filas cuando ninguna de las celdas de la fila contiene uno de los dos números " 103526 " o " 103527 "

El número de filas es variable (máx. 150) y el número de columnas también (máx. 100).

Cualquier ayuda es apreciada.

Solución

Tu condición es confusa para mí. Lo estoy reformulando.

Si una fila contiene 103526 o 102527 o ambos, NO borre.

Si ninguno de los dos números está en una fila, elimínelo.

Ahora, mientras elimina las filas, guarde una copia de los datos de hoja 1 a hoja 2 para que pueda copiar los datos si hay un desastre.

Los datos están en las hojas 1, intente esta macro:

 Prueba secundaria () Dim j As Integer, k As Integer Dim r As Range, cfind6 As Range, cfind7 As Range Worksheets ("sheet1"). Activar On Error Resume Next j = Cells (Rows.Count, "A"). End (xlUp) .Row For k = j To 1 Step -1 Set cfind6 = Rows (k) .Cells.Find (what: = 103526, lookat: = xlWhole) Set cfind7 = Rows (k) .Cells.Find (what: = 103527, lookat: = xlWhole) Si cfind6 no es nada y cfind7 no es nada entonces filas (k). Eliminar a continuación