假如有这样一组数据：1125、1144、1167、1188、1201、1286
我想让结果是这样子：1150、1150、1200、1200、1250、1300
规律就是：50进1，有什么办法能实现吗？
------解决方案--------------------------------------------------------
Function Wushi(ByVal number As Long) As Long
Dim strTemp As String
strTemp = Right(Str(number), 2)
If Val(strTemp) >= 50 Then
Wushi = number + (100 - Val(strTemp))
Else
Wushi = number + (50 - Val(strTemp))
End If
End Function
菜鸟代码，仅供参考。
------解决方案--------------------------------------------------------
这个帖子是否可以关闭了呀？ 在其他版已经解决了是吧？
http://topic.csdn.net/u/20110929/15/c8494c9e-cd5e-44d8-af52-c0b41696e37a
------解决方案--------------------------------------------------------
直接用函数就可以了吧，比如数据在A1单元格
=CEILING(A1,50)