Excel.Application.RoundUP ・・・・ ってのもありでしょうが、参照設定をいじるのでつくってみました。Function RoundUp(i As Double, Optional keta As Integer = 0) As Double i = i * Int(10 ^ keta) '0にならないケースに配慮。指定桁数から10桁以上少ない誤差がでるなら無視 If Abs(i - Fix(i)) <= 1 / 10 ^ (keta + 10) Then RoundUp = int(i) / Int(10 ^ keta) Else RoundUp = Int(Abs(i) + 1) * (i / Abs(i)) / Int(10 ^ keta) End If End Function小数点の小さい誤差は 致し方なしか? エクセルでも似たような現象はあるし