Questione : Macro per eliminare tutte le file sotto l'ultima cellula dei dati

La macro che sto provando a scrivere arrotolerà alla fila sotto l'ultima cellula con i dati in colonna B ed allora libero tutte le file da quel punto giù alla parte inferiore.

per esempio, se l'ultimo valore è nella fila 15, rimuoverà tutto il soddisfare in tutte le colonne dalla fila 16 all'ultima fila nello spreadsheet.

Thanks! class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
>Sheets notpretty " del class= " del id= " codeSnippet833788 del
class= del

Risposta : Macro per eliminare tutte le file sotto l'ultima cellula dei dati

Questo codice ucciderà rapidamente le file senza collegare

Acclamazioni

Dave
1:
2:
3:
4:
5:
6:
7:

Uccisione secondaria ()
    Rng1 fioco come gamma
    Strati (“numeri reali formattati„). Prescelto
    Regolar rng1 = cellule (Rows.Count, “B„). Estremità (xlUp). Contrappeso (1, 0)
    Regolar rng1 = gamma (rng1, rng1.End (xlDown))
    rng1.EntireRow.ClearContents
Concludono il sommergibile
Altre soluzioni  
 
programming4us programming4us