
Sub elimina_spazi()
For Each cel In Range("a1:c10") 'cambia questo intervallo
If cel <> "" Then
Do While Right(cel, 1) = " "
n = Len(cel)
cel.Value = Left(cel, n - 1)
Loop
End If
Next
End Sub
|
