Questione : Come generare una macro per rimuovere gli spazii in bianco dal manuale 2007 di Excel

Ciao il all
I ha un workshet con le file approssimativamente 100k in excel2007.  Devo rimuovere 4 file in bianco, 1 linea di dati e un'altra fila in bianco dopo esso.  Potrebbe qualcuno prego mostrarmi come generare una macro per pulire il mio manuale? il

Please vede l'immagine allegata.  Nota: Voglio cancellare le linee 8239 8244.

Thanks class= del

Risposta : Come generare una macro per rimuovere gli spazii in bianco dal manuale 2007 di Excel

Paul, prova prego questo:

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

BajanPaul secondario ()
lastRow fioco lungamente, i quanto lungamente
Application.ScreenUpdating = falso
lastRow = ActiveSheet.UsedRange.Rows.Count
Per i = lastRow 6 a punto -1
    Se non IsNull (file (i). Testo) e IsNull (file (i - 1).Text) e non IsNull (file (i - 2).Text) e _
        Non IsNull (file (i - 3).Text) e non IsNull (file (i - 4).Text) e non IsNull (file (i - 5).Text) allora
                        Gamma (file (i - 5), file (i)). Cancellazione
            i = i - 5
    Concluder se
Dopo
Application.ScreenUpdating = allineano
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us