Se colonne (1).Rows (1).Value = "" allora
in primo luogo = colonne (1).End (xlDown). Indirizzo
Altrimenti
in primo luogo = colonne (1).Rows (1).Address
Concluder se
ultimo = colonne (1).SpecialCells (xlCellTypeLastCell). Indirizzo
Gamma (in primo luogo & “: „ & ultimo). Destinazione della copia: =Workbooks (1).Sheets (2).Cells (1)
|