ColumnWidths secondario ()
Targ fioco come gamma, cel come gamma
Sul riassunto di errore dopo
Regolare il targ = Application.InputBox (“selezionare prego la gamma che volete segnalare le larghezze di colonne per„, scriv: =8)
Sull'errore 0 di avanzamento
Se il targ è niente allora uscire il sommergibile
Application.ScreenUpdating = falso
Regolare il targ = il targ. File (1)
Con Worksheets.Add (dopo: =Worksheets (Worksheets.Count))
Per ogni cel nel targ. Cellule
. Cellule (1, cel. Colonna) = cel.EntireColumn.ColumnWidth
Dopo
Estremità con
Application.ScreenUpdating = allineano
Sommergibile dell'estremità
|