Ciao
ma, come ho detto in precedenza, se i dati da "arrotondare" sono nella colonna A il risultato te lo dà in col.B stessa riga
Se vuoi il risultato nella "stessa cella" allora la macro va cambiata così
Option Explicit
Sub arrotonda()
Dim ur As Long, i As Long
Dim a, b
ur = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To ur
a = Int(Cells(i, 1).Value)
If Val(Right(a, 2)) <= 90 Then
b = Left(a, Len(a) - 2) & "90"
ElseIf Val(Right(a, 2)) > 90 Then
b = Val(Left(a, Len(a) - 2)) + 1 & "90"
End If
Cells(i, 1) = b '<<< cioè nella stessa cella
Next i
End Sub
Se vuoi il risultato in qualsiasi altra colonna ma sempre nella stessa riga, metto il numero della colonna al posto dell'1
Ripeto, a me funziona egregiamente.
Ciao,
Mario