数字转为人民币大写

若想实现数字转为人民币货币格式，效果如下：

0.22  贰角贰分|  -0.12  负壹角贰分|  -0.02  负贰分|  -4123.12  负肆仟壹佰贰拾叁圆壹角贰分|  123.1  壹佰贰拾叁圆壹角整|   123  壹佰贰拾叁圆整

-123.3  负壹佰贰拾叁圆叁角整|  101.01  壹佰零壹圆零壹分|  120.01  壹佰贰拾圆零壹分|  -123  负壹佰贰拾叁圆整|  123.55  壹佰贰拾叁圆伍角伍分|  -123.65  负壹佰贰拾叁圆陆角伍分

方法1[203字符]：

     '=IF(E32<0,"负",)&SUBSTITUTE(SUBSTITUTE(TEXT(INT(ABS(E32)),"[dbnum2]")&"圆"&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(TEXT(E32,"0.00"),2),"[dbnum2]0角0分"),"零角零分","整"),"零分","整"),"零角","零"),"零圆零",""),"零圆","")

方法2[198字符]：

     '=SUBSTITUTE(SUBSTITUTE(IF(E32<0,"负",)&TEXT(INT(ABS(E32)),"[dbnum2]G/通用格式圆;;")&TEXT(RIGHT(ABS(E32)/1%,2),"[=0]整;[="&RIGHT(E32)*10&"]"&TEXT(RIGHT(E32),"[dbnum2]")&"角整;[dbnum2]0角0分"),"圆零角","圆零"),"零角",)

方法3[184字符]：

     '=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(E41<0,"负",)&TEXT(INT(ABS(E41)),"[dbnum2]G/通用格式圆;;")&IF(INT(E41)=E41,"整",TEXT(RIGHT(TEXT(E41,".00"),2),"[dbnum2]0角0分")),"圆零角","圆零"),"零分","整"),"零角",)

方法4[172字符]：

     '=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(B8<0,"负",)&TEXT(INT(ABS(B8)),"[dbnum2];; ")&TEXT(MOD(ABS(B8)*100,100),"[>9][dbnum2]圆0角0分;[=0]圆整;[dbnum2]圆零0分"),"零分","整")," 圆零",)," 圆",)