彻底搞定人民币大写，精华大全！

金额填写好了，大写怎么办？

每次都用一个一个敲上去吗？

如果套打，很多怎么办呢？

今天我们就来分享一下小写转人民币大写的做法，多种方法，由简单到方便智能，全部收罗，彻底搞定这个问题。

一般有两种情况

情况1：报销单上的大写 。

这种大写，比较简单，按位补齐对应的数值大写即可，不足的部分用零补全，一般我们使用×或者ⓧ是不标准的一种简写， 如果我们使用Excel自动生成则使用零来处理

具体使用的公式：

=TEXT(INT(A1),"[dbnum2]0佰0拾0万0仟0佰0拾0元")&TEXT(ROUND((MOD(A1,1)*100),),"[dbnum2]0角0分")

以上公式A1单元格中存放小写金额，如果小写金额在其他位置，粘贴公式后替换一下即可

情况2：标准的大写，如果支票上的大写（有严格的规定）

比如这样

（图片素材来源网络，侵删）

这里的大写，我们可以通过几种方法来填写

第一种：输入法V关键字录入，方便快捷，适合零时使用

第二种：使用公式处理，不用每次都手动输入，方便

我们提供三种公式

公式1：

=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1),IF(A1<0,"负",)&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"零分","整")

公式2：

=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1),IF(A1<0,"负",)&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"零分","整")

公式3：

=TEXT(RMB(A1),"[=]g;"&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),"零角",IF(A1^2<1,,"零")),"零分","整")) 

----建议收藏备忘----

第三种：设置单元格格式（使用WPS），微软Excel不支持

（WPS2019演示）

（微软Excel无此功能，注意）

第四种：如果我们需要套打，则使用VBA更方便一些

使用自定义函数

Function DX(M)'185个字符 DX = IIf(Abs(M) < 0.005, a, Replace(Replace(Replace(Join(Application.Text(Split(Format(M, " 0. 0 0")), Split(" [DBnum2] [DBnum2]圆0角;;圆零 [DBnum2]0分;;整")), a), "零圆零", a), "零圆", a), "零整", "整"))End Function
赞 (0)

相关推荐