ciao
Quanto alle 'schifezze' ###### cui fai riferimento, è perchè la larghezza della colonna risulta troppo stretta in rapporto alla dimensione del carattere della cella.
Occorrerà, al riguardo, andare sulla cella in questione --> Tasto destro --> Formato Celle --> Allineamento --> 'Flaggare' la casella 'Riduci e adatta' --> OK e il valore in cella si adatterà alla 'ristrettezza' della colonna.
Per quanto possibile: in quanto se la colonna è molto stretta - es. inferiore a 1,43 - il carattere si ridurrà al punto da essere troppo piccolo per risultare leggibile.
beh! questo lo sapevo ma pensavo volessi lasciare il carattere com'era e nasconderlo.
sistemiamo tutto così
Sub sostituisci()
Dim Lista As Range
Set Lista = Range("A1:ZZ1")
For Each CL In Lista
If CL <> "" Then
CL.ColumnWidth = CL.Value
CL.ShrinkToFit = True
End If
Next
End Sub
ora il carattere si adeguerà alla larghezza.
Leo
certo che chiedevo a te
io di VBA ne conosco poche righe
comunque ora ho capito perchè le misure non tornano😀
[Modificato da federico460 07/12/2023 00:35]