用excel将数字转换为会计专用大写数字

用excel将数字转换为会计专用大写数字

搜了一下没找到简单好用的，弄了这个

整数和小数部分int取整

整数部分： =INT(C1)

角： =INT(C1*10)-INT(C1)*10

分： =INT(C1*100)-INT(C1*10)*10

将取整的数字转换成文本：text函数

整数部分：

=IF(A2=0,"",TEXT(A2,"[DBNum2][$-804]G/通用格式"))

=IF(A3="","","圆")

小数部分：

=IF(SUM(C2:D2)=0,"",TEXT(C2,"[DBNum2][$-804]G/通用格式")&"角")

=IF(D2=0,"",TEXT(D2,"[DBNum2][$-804]G/通用格式")&"分")

=IF(D3="","整","")

将文本连到一起:=A3&B3&C3&D3&E3

或者也可以把公式弄到一起，复制粘贴上就可以了

=IF(INT(B1)=0,"",TEXT(INT(B1),"[DBNum2][$-804]G/通用格式"))&IF(IF(INT(B1)=0,"",TEXT(INT(B1),"[DBNum2][$-804]G/通用格式"))="","","圆")&IF(INT(B1*10)-INT(B1)*10+INT(B1*100)-INT(B1*10)*10=0,"",TEXT(INT(B1*10)-INT(B1)*10,"[DBNum2][$-804]G/通用格式")&"角")&IF(INT(B1*100)-INT(B1*10)*10=0,"",TEXT(INT(B1*100)-INT(B1*10)*10,"[DBNum2][$-804]G/通用格式")&"分")&IF(IF(INT(B1*100)-INT(B1*10)*10=0,"",TEXT(INT(B1*100)-INT(B1*10)*10,"[DBNum2][$-804]G/通用格式")&"分")="","整","")