阿拉伯数字转人民币大写的方法
假设原数值在A1，在其他单元格套用以下公式即可：
公式一：
=SUBSTITUTE(SUBSTITUTE(IF(A10，负,)&TEXT(TRUNC(ABS(ROUND(A1,2))),[DBNum2])&；元&IF(ISERR(FIND(.,ROUND(A1,2))),,TEXT(RIGHT(TRUNC(ROUND(A1,2)10)),[DBNum2]))&IF(ISERR(FIND(.0,TEXT(A1,0.00)))，角,)&IF(LEFT(RIGHT(ROUND(A1,2),3))=.,TEXT(RIGHT(ROUND(A1,2)),[DBNum2])&；分,IF(ROUND(A1,2)=0,，整))，零元零,)，零元,)
公式二：
=CONCATENATE(IF(A10，负,),TEXT(IF(TRUNC(A1)=0,,TRUNC(ABS(A1))),[DBNum2]),IF(INT(TRUNC(A1))=0,，元),TEXT(IF(OR(ABS(A1)0.1,TRUNC(A1)=A1),,RIGHT(TRUNC(A110),1)),[DBNum2]),IF(RIGHT(TRUNC(A110),1)=0,，角),TEXT(IF(RIGHT(TRUNC(A1100),1)=0,,RIGHT(TRUNC(A1100),1)),[DBNum2]),IF(RIGHT(TRUNC(A1100),1)=0,，分))
公式三：
=IF(ROUND(A1,2)=0,,IF(ROUND(ABS(A1),2)=1,TEXT(INT(ROUND(ABS(A1),2)),[DBNum2])&；元,)&IF(RIGHT(TEXT(A1,.00),2)1=0，整,IF(RIGHT(TEXT(A1,.00),4)1=1,IF(RIGHT(TEXT(A1,.00),2)19,，零),IF(ROUND(ABS(A1),2)=1，零,))&IF(RIGHT(TEXT(A1,.00),2)19,TEXT(LEFT(RIGHT(TEXT(A1,.00),2)),[DBNum2])&；角,)&IF(RIGHT(TEXT(A1,.00))10,TEXT(RIGHT(TEXT(A1,.00)),[DBNum2])&；分，整)))
公式四：trunc函数去掉千位是几位数
如果是小额金额，可以用
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(NUMBERSTRING(INT(A1),2)&；圆&TEXT(MOD(A1,1)100,[dbnum2]0角0分)，零角零分，整)，零角，零)，零分，整)
公式五：
=IF(A1=0,,IF(ABS(A1)0.995,,TEXT(INT(ROUND(ABS(A1),2)),[DBNum2])&；元)&IF(RIGHT(TEXT(A1,.00),2)1=0,IF(ABS(A1)0.005,，整),TEXT(IF(ABS(A1)0.095,,LEFT(RIGHT(TEXT(A1,.00),2))),[dbnum2])&IF(LEFT(RIGHT(TEXT(A1,.0
0),2))1=0,，角)&IF(RIGHT(TEXT(A1,.00))1=0，整,TEXT(RIGHT(TEXT(A1,.00)),[dbnum2])&；分)))
公式六：
=IF(A1=0,,IF(ABS(A1)1,,TEXT(TRUNC(ABS(A1)),[DBNum2])&；元)&IF(RIGHT(TRUNC(A1100),2)1=0,IF(ABS(A1)0.01,，整),IF(ABS(A1)0.1,,TEXT(RIGHT(TRUNC(A110)),[dbnum2]))&IF(RIGHT(TRUNC(A110))1=0,，角)&IF(RIGHT(TRUNC(A1100))1=0，整,TEXT(RIGHT(TRUNC(A1100)),[dbnum2])&；分)))
公式五是四舍五入公式，公式六则是截尾公式。两个公式的结构其实是一样的，只是使用了不同的函数。
下面用公式五来说明：
  TEXT(INT(ROUND(ABS(A1),2)),[DBNum2])&；元用来处理整数部分，考虑到纯小数及舍入问题，增加一个判断ABS(A1)0.995，用0.995，即保证了正常的舍入，又避免了出现0.9945也进行舍入的错误。
  用RIGHTB(TEXT(A1,.00),2)1=0来判断是不是纯整数，是就输出“整”，后面就不用处理了。因为TEXT函数输出的是文本值，所以在这里有两种处理方法，一是就是本式，二是RIGHTB(TEXT(A1,.00),2)=00。
  LEFT(RIGHT(TEXT(A1,.00),2))是取出角位数，增加一个判断ABS(A1)0.095是为了在只有分票的情况下角位避免出现“零”的字样，0.095也是考虑了尾数的舍入问题。
  IF(LEFT(RIGHT(TEXT(A1,.00),2))1=0,,
角)，角位是0输出空，否则输出“角”。同样，这里的判断表达式也可改为LEFT(RIGHT(TEXT(A1,.00),2))=0
  用RIGHT(TEXT(A
1,.00))取出分位数，分位为零输出“整”，否则输出分位数。
  对于负数，如果一定要用“负XXXXXX”的形式，则直接在第二个判断前加上“IF(A10，负,)&”。
  关于万位为零时的输出规范，相关规定如下：
  小写金额中间有“0”时，大写金额要写“零”字；小写金额中间连续有几个“0”时，大写金额中间可以只写一个“零”字；小写金额万位或元位是“ 0”，或者数字中间连续有几个“0”，万位、元位也是“0”，但千位、角位不是“0”时，大写金额中可以只写一个“零”字，也可以不写“零”字。
  所以上述公式在当万位为零而千位不为零时，以不输出零的方式处理，应该是符合规范的。也许正是EXCEL采取这种样式的原因。当然，如果遵照习惯非要加上这个零字也不是不可能。只不过要增加一点公式复杂度罢了。
  在一个数中，万会出现几次？不管是万、十万、百万、千万，这个万就出现一次，如果是万万则是亿，如果是万亿又是兆，万兆呢？已经超出EXCEL的处理能力了。所以答案是万字在大写金额中只可能出现一次，且只出现在整数部分。即然是这样，用SUBSTITUTE()函数就能解决问题。即判断当万位为零而千位不为零时，用“万零”来替换“万”，其它情况下不进行替换。因为EXCEL只有在这种情况下不会输出“零”。
  在四舍五入公式中，因为还要考虑尾数舍入问题，判断使用了四舍五入函数ROUND()，公式五的输出整数的部分公式改为：
=IF(AND(RIGHT(INT(ROUND(ABS(A1),2)10000))=0,RIGHT(INT(ROUND(ABS(A1),2)1000))0),SUBSTITUTE(TEXT(INT(ROUND(ABS(A1),2)),[DBNum2])，万，万零),TEXT(INT(ROUND(ABS(A1),2)),[DBNum2]))
  而截断公式不用考虑尾数舍入问题，直接用TRUNC()取万位和千位数来判断。相应地公式六的整数部分亦改为：
=IF(AND(RIGHT(TRUNC(ABS(A1)10000))=0,RIGHT(TRUNC(ABS(A1)1000))0),SUBSTITUTE(TEXT(TRUNC(ABS(A1)),[DBNum2])，万，万零),TEXT(TRUNC(ABS(A1)),[DBNum2]))

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。