Cuestión : Cómo crear una macro para quitar espacios en blanco de la hoja de trabajo 2007 de Excel

Hola el all
I tiene un workshet con las filas aproximadamente 100k en excel2007.  Necesito quitar 4 filas en blanco, 1 línea de datos y otra fila en blanco después de ella.  ¿Podría alguien por favor demostrarme cómo crear una macro para limpiar mi hoja de trabajo? el

Please considera imagen atada.  Nota: Quiero suprimir líneas 8239 8244.

Thanks class= del

Respuesta : Cómo crear una macro para quitar espacios en blanco de la hoja de trabajo 2007 de Excel

Paul, intenta por favor esto:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

BajanPaul secundario ()
lastRow dévil tan de largo, i como de largo
Application.ScreenUpdating = falso
lastRow = ActiveSheet.UsedRange.Rows.Count
Para i = lastRow 6 al paso -1
    Si no IsNull (filas (i). Texto) e IsNull (filas (i - 1).Text) y no IsNull (filas (i - 2).Text) y _
        No IsNull (filas (i - 3).Text) y no IsNull (filas (i - 4).Text) y no IsNull (filas (i - 5).Text) entonces
                        Gama (filas (i - 5), filas (i)). Cancelación
            i = i - 5
    Terminar si
Después
Application.ScreenUpdating = verdad
Submarino del extremo
Otras soluciones  
 
programming4us programming4us