如题，假设有一值195.34，我想让它向上取整，应该怎么实现？
目前的想法是想问问大佬们有没有函数能将整数部分和小数部分分开，然后做个判断。
或者大佬们有没有别的方法

这样应该行吧，＝SIGN(A1)*TRUNC(ABS(A1)+0.7)

Option Explicit
Sub abc()
　Debug.Print xyz(195.34)
　Debug.Print xyz(195.24)
　Debug.Print xyz(195)
　Debug.Print xyz(195.9999)
End Sub
Function xyz(n) As Long
　Dim t(1) As Long
　t(0) = n * 10
　t(1) = t(0) Mod 10
　If t(1) >= 3 Then t(1) = 1 Else t(1) = 0
　xyz = t(0) \ 10 + t(1)
End Function

可以实现

规则你都明了，没有自带函数那就自己写