Ciao
se ho capito bene la domanda, prova con questa macro che ipotizza i dati disposti in modo differente da come indichi tu.
Per esempio, i dati da arrotondare sono TUTTI (e senza celle vuote) nella colonna A mentre i risultati saranno in colonna B
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 = 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, 2) = b
Next i
End Sub
Fai sapere. Ciao,
Mario