Fjerne sidste nuller ig cellerner

ikke en formel, men en makro - kan du bruge det ?

tadaaaaa

Sub test()
  Dim i As Integer
  For Each cell In Range(Cells(2, "A"), Cells(Cells(Rows.Count, "A").End(xlUp).Row, "A"))
    For i = Len(cell.Value) To 1 Step -1
      If Right(cell.Value, i) + 0 = 0 Then
        cell.Value = Left(cell.Value, Len(cell.Value) - i)
      End If
    Next i
  Next cell
End Sub

den skulle kunne gøre det