三步实现Excel自动输入大写中文数字-->Kevin转移

办公之星

我倒是有点奇怪，论坛早期是支持OFFICE文件直接上传的吗？

plhxt

这个方法很好，我在想在VBA中使用“[DBNUM2]G/通用格式”但没有成功，不知哪位高手能赐教？

levey

还是有点罗嗦的。

假设小写金额的单元格地址D44,　大写金额的单元格地址：D45

复制公式至目标单元格D45

=IF(ISNUMBER(ABS($I$43)),IF(ROUND(($I$43),2)<0,"负"&IF(ROUND(ABS($I$43),2)=0,"零",IF(ROUND(ABS($I$43),2)<1,"",TEXT(INT(ROUND(ABS($I$43),2)),"[dbnum2]")&"元")&IF(INT(ROUND(ABS($I$43),2)*10)-INT(ROUND(ABS($I$43),2))*10=0,IF((INT(ROUND(ABS($I$43),2)*100)-INT(ROUND(ABS($I$43),2)*10)*10)=0,"","零"),TEXT(INT(ROUND(ABS($I$43),2)*10)-INT(ROUND(ABS($I$43),2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(ABS($I$43),2)*100)-INT(ROUND(ABS($I$43),2)*10)*10)=0,"整",TEXT((INT(ROUND(ABS($I$43),2)*100)-INT(ROUND(ABS($I$43),2)*10)*10),"[dbnum2]")&"分")),IF(ROUND(ABS($I$43),2)=0,"零",IF(ROUND(ABS($I$43),2)<1,"",TEXT(INT(ROUND(ABS($I$43),2)),"[dbnum2]")&"元")&IF(INT(ROUND(ABS($I$43),2)*10)-INT(ROUND(ABS($I$43),2))*10=0,IF((INT(ROUND(ABS($I$43),2)*100)-INT(ROUND(ABS($I$43),2)*10)*10)=0,"","零"),TEXT(INT(ROUND(ABS($I$43),2)*10)-INT(ROUND(ABS($I$43),2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(ABS($I$43),2)*100)-INT(ROUND(ABS($I$43),2)*10)*10)=0,"整",TEXT((INT(ROUND(ABS($I$43),2)*100)-INT(ROUND(ABS($I$43),2)*10)*10),"[dbnum2]")&"分"))),"非数值！！！")

确定后，将光标定在目标单元格，“编辑”－“替换”，将公式中的“$I$43”换成小写金额的单元格地址"$D$44"即可。

xdh101

值得学习！！！

jinjinder

看不到！！！！！

bzvivian

没看懂，请楼主赐教