主题：类似ceiling函数的

网上找了一个函数例子，如

Public Function CEILING(NumA As Double, NumB As Double) As Double
    Dim i As Long
    i = 0
    Do While i * NumB < NumA
        i = i + 1
    Loop
    CEILING = i * NumB
End Function