Excel金额小写转大写公式-英雄云拓展知识分享

近来转了转几个Excel相干论坛，发现有部份网友在寻求数字金额转换为人民币大写的方法。出于好奇，我在网上搜索了一番，甚么VBA、加载宏，公式函数各式方法争相亮相，应有尽有。但我的习惯是，只要能用公式解决的问题，坚决不使用VBA。所以我就特别地关心使用公式来生成的方法，结果是用公式的方法可谓是更加地灿烂缤纷，令人眼花缭乱。

经过分析我搜集到的210几个公式，发现比较牛，合适我口味的公式有3个，在此我将其列出。

公式一：

SUBSTITUTE(SUBSTITUTE(IF(A1《0， “负”，“”)&TEXT(TRUNC(ABS(ROUND(A1，2)))，“[DBNum2]”)& “元”&IF(ISERR(FIND(“。”，ROUND(A1，2)))，“”，TEXT(RIGHT(TRUNC(ROUND(A1，2)*10))，“[DBNum2]”))&IF(ISERR(FIND(“.0”，TEXT(A1，“0.00”)))， “角”，“”)&IF(LEFT(RIGHT(ROUND(A1，2)，3))= “。”，TEXT(RIGHT(ROUND(A1，2))，“[DBNum2]”)&“分”，IF(ROUND(A1，2)=0，“”， “整”))，“零元零”，“”)，“零元”，“”)

公式2：

CONCATENATE(IF(A1《0， “负”，“”)，TEXT(IF(TRUNC(A1)=0，“”，TRUNC(ABS(A1)))，“[DBNum2]”)，IF(INT(TRUNC(A1))=0，“”， “元”)，TEXT(IF(OR(ABS(A1) 《0.1，TRUNC(A1)=A1)，“”，RIGHT(TRUNC(A1*10)，1))，“[DBNum2]”)，IF(RIGHT(TRUNC(A1*10)，1)=“0”，“”， “角”)，TEXT(IF(RIGHT(TRUNC(A1*100)，1)=“0”，“”，RIGHT(TRUNC(A1*100)，1))，“[DBNum2]”)，IF(RIGHT(TRUNC(A1*100)，1)=“0”，“”， “分”))

公式3：

IF(ROUND(A1，2)=0，“”，IF(ROUND(ABS(A1)，2)》=1，TEXT(INT(ROUND(ABS(A1)，2))，“[DBNum2]”)& amp;“元”，“”)&IF(RIGHT(TEXT(A1，“.00”)，2)*1=0， “整”，IF(RIGHT(TEXT(A1，“.00”)，4)*1》=1，IF(RIGHT(TEXT(A1，“.00”)，2)*1》9，“”， “零”)，IF(ROUND(ABS(A1)，2)》=1，“零”，“”))&IF(RIGHT(TEXT(A1，“.00”)，2)*1》 9，TEXT(LEFT(RIGHT(TEXT(A1，“.00”)，2))，“[DBNum2]”)& “角”，“”)&IF(RIGHT(TEXT(A1，“.00”))*1》 0，TEXT(RIGHT(TEXT(A1，“.00”))，“[DBNum2]”)&“分”，“整”)))

我用不同的数值对这3个公式进行了一番测试，都到达了我的要求，最少到至今为止为止还没有发现上述公式存在着甚么毛病。上述公式对负数的处理采取了不同的方法。公式一和公式2对负数是在其前部加上一个“负”字，而公式3则是按正数进行处理。我比较推重公式3的方式，不是还有条件格式可以设置吗?若是负数就用条件格式来变成红色。

我不准备在此对上述公式进行分析解说。撰写本文的目标是我也想自己来“组装”一个所谓的通用公式。我只所以说是“组装”而不是叫甚么“开发”或是“拼凑”，是由于EXCEL的函数现成地摆在了那里，使用时就是为了到达某种目的，依照其固有的规则，将其进行有机的组合，可谓“组装”。但是在这个进程中，也是要开动脑筋的，并不是是马马虎虎“拼凑”就可以成功的。本文的目标就是想将我在“组装”公式时的思路展现出来。

若用程序设计语言(比如用C语言)来写一个人民币数字金额转大写金额会怎样斟酌呢?我想每位数字都要斟酌到。但在EXCEL中，单元格格式中有一个“特殊”格式，里面就有将小写数字转换为大写数字的格式。但要注意的是，这里转换的是数字而不是金额。所以转换出来后其实不存在“元”、“角”、 “分”、“整”等在大写金额中出现的字。但是，“元”只出现在整数部份的后面，而小数部份只有角分两位。这样只要利用EXCEL的“特殊”格式将数据分为整数部份、角位和分位3个部份来处理就好了。处理的顺序是先整数，再角位、再分位。

由于要分3个部份分别处理，然后针对情况分别与“元”，“角”，“分”及“整”相连接。连接的方式可使用CONCATENATE()函数，如公式2，也能够使用连接符&。而用&来连接，公式结构仿佛会相对简单清晰一些，所以我选择了用&来连接。

虽然对问题进行了分解，但需要斟酌的细节相当多。

若单元格为0或空，输出空，避免出现“零”、“零元”等字样。对非数字字符不进行处理，使用EXCEL本身的毛病提示。

对负数按正数处理，再用条件格式将其转换为红色，不拟采取“负XXXXXX”的情势。