excel中如何用小写金额在指定的位置输入大写金额？

又被问到人民币大写，正好想起来以前收集的这个公式，当时是做一个空调安装报价系统，所以在网上找到了这个公式，公式看起来很复杂，不过结构并不复杂，有兴趣的可以研究下，不过学会用还是很简单的

公式如下：

="大写："&IF(ABS(E1)<0.005,"",IF(E1<0,"负",)&IF(INT(ABS(E1)),TEXT(INT(ABS(E1)),"[dbnum2]")&"元",)&IF(INT(ABS(E1)*10)-INT(ABS(E1))*10,TEXT(INT(ABS(E1)*10)-INT(ABS(E1))*10,"[dbnum2]")&"角",IF(INT(ABS(E1))=ABS(E1),,IF(ABS(E1)<0.1,,"零")))&IF(ROUND(ABS(E1)*100-INT(ABS(E1)*10)*10,),TEXT(ROUND(ABS(E1)*100-INT(ABS(E1)*10)*10,),"[dbnum2]")&"分","整"))

在实际用的时候 先把这个公式复制到记事本里，比如你要将A1的数字转化成人民币大写，那就用记事本的替换功能将E1替换成A1，在将公式复制粘贴到要显示大写的单元格即可

应用的结果示范如下

另外这个公式是个引子，需要的最终格式和这有点不一样，那也可以根据这个公式做一些简单改变，比如说总是要得到要得到 *元*角*分的样子 那就写成

="人民币"&IF(ABS(AG10)<0.005,"",IF(AG10<0,"负",)&IF(INT(ABS(AG10)),TEXT(INT(ABS(AG10)),"[dbnum2]")&"元",)&IF(INT(ABS(AG10)*10)-INT(ABS(AG10))*10,TEXT(INT(ABS(AG10)*10)-INT(ABS(AG10))*10,"[dbnum2]")&"角",IF(INT(ABS(AG10))=ABS(AG10),"零角",IF(ABS(AG10)<0.1,,"零")))&TEXT(ROUND(ABS(AG10)*100-INT(ABS(AG10)*10)*10,),"[dbnum2]")&"分")

注意这里目标单元格时AG10，结果如下

人民币伍万肆仟零叁拾元零角零分 54030

---

都讲了这么多了,再来一个人民币大写回转为小写的吧,这个请看我的视频讲解,大小写互转,相信你再也不用为了大写人民币问题发愁了

{!-- PGC_VIDEO:{"thumb_height": 360, "thumb_url": "6ef20006a3480888437b", "vname": "", "vid": "23d92d6ad0fa4ab6996aac8844f0507d", "thumb_width": 636, "src_thumb_uri": "7062000e186eebc99193", "sp": "toutiao", "update_thumb_type": 1, "vposter": "http://p1.toutiaoimg.com/origin/6ef20006a3480888437b", "video_size": {"high": {"duration": 432.2, "h": 480, "subjective_score": 0, "w": 848, "file_size": 8622624}, "ultra": {"duration": 432.2, "h": 720, "subjective_score": 0, "w": 1272, "file_size": 13499264}, "normal": {"duration": 432.2, "h": 360, "subjective_score": 0, "w": 636, "file_size": 6853617}}, "md5": "93c020338344b0570e560669669a6ad7", "duration": 432.2, "file_sign": "93c020338344b0570e560669669a6ad7", "thumb_uri": "6ef20006a3480888437b", "vu": "23d92d6ad0fa4ab6996aac8844f0507d"} --}

Excel中如何将数字金额转换为“圆角分”的大写？

标准版(100%符合财务规范)

=SUBSTITUTE("人民币："&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(INT(A1),"[dbnum2]")&TEXT(MOD(A1,1)*100,"[<0.5][dbnum2]元整;[<9][dbnum2]元00分;[dbnum2]元0角0分"),"零分",""),"零元零",""),"零元",""),"人民币：整","人民币：零元整")

简短版(99%符合财务规范)

="人民币："&TEXT(INT(A1),"[dbnum2]")&TEXT(MOD(A1,1)*100,"[<0.5][dbnum2]元整;[<9][dbnum2]元00分;[dbnum2]元0角0分")

使用方法

将上公式粘贴至需要填写大写金额的单元格，并将公式中的"A1"部分替换成小写金额所在的单元格地址。填充操作可以自动更改。

实际效果如下图：

其他类似大写公式

网上有许多类似的大写公式，但是绝大部分都没有完全满足财务规范要求，普通公式太长不简洁，使用时需要替换3-4处以上的地方。

1、公式一：

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

使用时需要替换5处， 对没有分位的数字会加"整"字，不规范，如：23,550.10得出：贰万叁仟伍佰伍拾元壹角整。

2、公式二：

=SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(FIXED(A2)),"[dbnum2]G/通用格式元;负[dbnum2]G/通用格式元;"&IF(A2>-0.5%,,"负"))&TEXT(RIGHT(FIXED(A2),2),"[dbnum2]0角0分;;"&IF(ABS(A2)>1%,"整",)),"零角",IF(ABS(A2)<1,,"零")),"零分","整")

3、公式三：

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

4、公式四：

=TEXT(INT(A3),"[dbnum2]")&"元"&IF(INT(A3*10)-INT(A3)*10=0,"",TEXT(INT(A3*10)-INT(A3)*10,"[dbnum2]")&"角")&IF(INT(A3*100)-INT(A3*10)*10=0,"整",TEXT(INT(A3*100)-INT(A3*10)*10,"[dbnum2]")&"分")