我有一个自定义函数，你看看合用不？Function 大写(m)大写 = IIf(m = "", "", IIf(m > -0.005, "", "负") & IIf(Abs(m) + 0.005 < 1, "", "计" & ***.text(Int(Round(Abs(m), 2)), "[DBnum2]") & "元") & ***.text(Right(100 * Round(m, 2), 2), "[dbnum2]0角0分"))大写 = Replace(Replace(大写, "零角", IIf(Abs(m) > 1 And Right(Round(100 * m, 0), 1), "零", "")), "零分", IIf(Round(m, 2), "整", ""))End Function 如果你不会用，给我留言