=IF(A3-INT(A3)<0.3,INT(A3),INT(A3)+1)
РЕДАКТИРОВАТЬ:
Это только направление, в котором вы можете идти.Это относится к положительным целым числам.Но это требует большой работы, например, когда я изменил коэффициент на 2, в одном случае dblDif оказался 1.9999999999 вместо 2. Так что используйте это только как идею:
Function R30(Num As Double, Round As Integer, Optional Factor As Integer) _
As Double
If IsMissing(Factor) Then Factor = 3
Dim dblNum As Double
Dim dblDif As Double
dblNum = Num / 10 ^ Round
dblDif = (dblNum - Int(dblNum)) * 10 ^ Round
If dblDif <> 0 Then
If dblDif < Factor * 10 ^ (Round - 1) Then
R30 = Int(dblNum) * 10 ^ Round
Else
R30 = (Int(dblNum) + 1) * 10 ^ Round
End If
Else
R30 = Num
End If
End Function
Sub R30use()
Debug.Print R30(133, 1, 3)
End Sub