Cómo eliminar filas entre dos campos fijos en Excel

Utilice VBA para recorrer cada tabla y utilice buscar para buscar palabras clave

Satisfacer las condiciones de eliminación

1. Simular el formato de datos original

2, presione la combinación de teclas alt+f11 para abrir vbe, inserte el módulo, ingrese el código:

3. El código es el siguiente:

Sub?dlrow()<. /p>

Application.ScreenUpdating ?=?False?'Desactivar la actualización de pantalla para mejorar la eficiencia

For?Each?sht?In?Sheet?'Recorrer cada hoja de trabajo

With?sht?'Utilizar con para mejorar la eficiencia

Set?rng1 ?=? UsedRange.Find("Notas de auditoría",?lookat:=xlWhole) ?' Buscar palabra clave1

4. Busque la palabra clave 1

Set?rng2?=? .UsedRange.Find("Conclusión de la auditoría",?lookat:=xlWhole)?Find la palabra clave 2

If?rng1?Is ?Nothing?Or?rng2 ?Is?Nothing?Then?'Si no puede incluir las dos palabras clave, solicite datos no elegibles; de lo contrario, elimine las filas en el intervalo especificado

MsgBox?"Hoja: "? ?No hay datos coincidentes"

Else

.Rows(rng1.Row?&?&?" :"? &?rng2.Row).Delete

¿Fin?Si

Fin?Con

Siguiente?sht

Application.ScreenUpdating?=?True

Fin?Sub

4.Realiza el efecto