《8》阿拉伯数字用Excel转换成人民币（会计格式）大写的方法

解决方案 Office

8 阿拉伯数字转换成人民币（会计格式）大写的方法

说明：一般来说。我国的人民币计数只有两位小数，但也有特殊情况需要去尾或者四舍五入的情况，所以就分两种情况来说

8.1 微软Office的Excel转换

8.1.1 两位小数的转换

两位及两位小数以内的数字转换（包含负数）
转换公式

=IF(A4<0,"负","")&TEXT(INT(ABS(A4)),"[dbnum2]")&"元"&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(A4*100,2),"[dbnum2]0角0分"),"零角零分","整"),"零分","整"),"零角","零")

其中的A4为需要转换数字的位置，公式所在位置即为转换后的位置
8-1

8.1.2 两位以上小数的转换

三位及三位小数以外的数字转换（包含负数）
转换公式保留两位小数(四舍五入)

=IF(A11<0,"负","")&TEXT(TRUNC(ABS(ROUND(A11,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A11,2))),"",TEXT(RIGHT(TRUNC(ROUND(A11,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A11,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A11,2),3))=".",TEXT(RIGHT(ROUND(A11,2)),"[DBNum2]")&"分","整")

其中的A11为需要转换数字的位置，公式所在位置即为转换后的位置
8-2

8.1.3 两位以上小数的转换

三位及三位小数以外的数字转换（包含负数）
转换公式保留两位小数（直接舍去）

=CONCATENATE(IF(A13<0,"负",""),TEXT(IF(TRUNC(A13)=0,"零",TRUNC(ABS(A13))),"[DBNum2]")&"元",IF(OR(AND(ABS(A13)<0.1,TRUNC(A13)=A13),RIGHT(INT(ABS(A13)*100),2)="00"),"",TEXT(RIGHT(TRUNC(A13*10),1),"[DBNum2]")),IF(RIGHT(TRUNC(A13*10),1)="0","","角"),IF(OR(TRUNC(A13*10)-(A13*10)=0,RIGHT(TRUNC(A13*100),1)="0"),"整",TEXT(RIGHT(TRUNC(A13*100),1),"[DBNum2]")&"分"))

其中的A13为需要转换数字的位置，公式所在位置即为转换后的位置
8-3