Excel小写金额转换为大写金额

A例是小写金额，B例为大写金额，第4行为有元角分的转换效果，5-6行可以看出是可以四舍五入的，第7行是只有角没有元和分的转换，第8行是只有元没有角和分的转换，第9行是只有分的转换，第10行中数值为零是的效果。
>02
全部公式：
=IF(INT(A4),TEXT(INT(A4),"[dbnum2]")&"元","")&IF(INT(A4*10)-INT(A4)*10,TEXT(INT(A4*10)-INT(A4)*10,"[dbnum2]")&"角",)&IF(INT(ROUND(A4,2)*100)-INT(ROUND(A4,2)*10)*10,TEXT(INT(ROUND(A4,2)*100)-INT(ROUND(A4,2)*10)*10,"[dbnum2]")&"分",IF(INT(A4),"整",IF(INT(A4*10)-INT(A4)*10,"整","")))
>03
第一步：先用　INT　函数判断元的位置数字是否为零，IF(INT(A4),TEXT(INT(A4),"[dbnum2]")&"元","")如果不为零，用　TEXT 函数加单元格格式"[dbnum2]"转换成大写数字，再用&符号链接"元"，如果为零则为空。
>04
第二步：用 & 链接附链接角位函数公式， IF(INT(A4*10)-INT(A4)*10,TEXT(INT(A4*10)-INT(A4)*10,"[dbnum2]")&"角",)，INT(A4*10)是先乘以10再取整，如果角位不为零，取整后最后一位不为零，否则取整后最后一位一定为零，INT(A4)*10是先取整后乘10，结果最后一位一定为零，如：A4=1.28 ,INT(A4*10)=12,INT(A4)*10=10.INT(A4*10)-INT(A4)*10=2
用　TEXT 加单元格格式"[dbnum2]"转换成大写数字，再用&符号链接"角"。
>05
第三步：同上方法判断分位是否为零，只是加了一个 ROUND(A4,2) 函数取小数点后的二位小数，目的是为了引用计算结果不是二位小数的数值，并把他们四舍五入IF(INT(ROUND(A4,2)*100)-INT(ROUND(A4,2)*10)*10,TEXT(INT(ROUND(A4,2)*100)-INT(ROUND(A4,2)*10)*10,"[dbnum2]")&"分"
>06
第四步：IF(INT(A4),"整",IF(INT(A4*10)-INT(A4)*10,"整",""))判断一下什么情况下输出“整”字，大家知道，只有在没有分的情况下才输出“整”字，所以要用INT(A4*10)判断一下元位，和用INT(A4)*10判断一下角位了。
谢谢大家，有什么不正确的地方请给指正。