excel元转换成万元保留整数_excel元转换成万元

(资料图片仅供参考)

1、Public Function 赵寒伟(a As Range) As StringDim myint As DoubleIf IsNumeric(a.Value) = True Then 赵寒伟 = a / 10000 & "万元"Else 赵寒伟 = "单元格不是数字"End IfEnd Function。

本文分享完毕，希望对大家有所帮助。