电耗公式EXCEL,数字变大写公式

近来转了转几个EXCEL相关论坛，发现有部分网友在寻求数字金额转换为人民
币大写的方法。出于好奇，我在网上搜索了一番，什么VBA、加载宏，公式函数
各式方法争相亮相，应 有尽有。但我的习惯是，只要能用公式解决的问题，坚决
不使用VBA。所以我就特别地关注使用公式来 生成的方法，结果是用公式的方法
可谓是更加地灿烂缤纷，使人眼花缭乱。
通过分析我收集到的二十几个公式，发现比较牛，适合我口味的公式有三个，
在此我将其列出。
公式一：
SUBSTITUTE(SUBSTITUTE(IF(A1<0,负
元< br>
),角

um2]分整零元零零元
公式二：
CONCATEN ATE(IF(A1<0,负

(A1))=0,元

BNum2]角
< br>Num2]分
公式三：
IF(ROUND(A1,2)=0,
,元整

零零

2)),角

2]分整
我用不同的数值对这三个公式 进行了一番测试，都达到了我的要求，至少到
目前为止还没有发现上述公式存在着什么错误。上述公式对 负数的处理采取了不
同的方法。公式一和公式二对负数是在其前部加上一个“负”字，而公式三则是按正数进行处理。我比较推崇公式三的方式，不是还有条件格式可以设置吗？若
是负数就用条件格式 来变为红色。
我不准备在此对上述公式进行分析解说。撰写本文的目的是我也想自己来
“ 组装”一个所谓的通用公式。我只所以说是“组装”而不是叫什么“开发”或
者是“拼凑”，是因为EX CEL的函数现成地摆在了那里，使用时就是为了达到某
种目的，按照其固有的规则，将其进行有机的组 合，可谓“组装”。但是在这个
过程中，也是要开动脑筋的，并非是随随便便“拼凑”就能成功的。本文 的目的
就是想将我在“组装”公式时的思路展现出来。
若用程序设计语言（比如用C语言 ）来写一个人民币数字金额转大写金额会
怎样考虑呢？我想每一位数字都要考虑到。但在EXCEL中， 单元格格式中有一个
“特殊”格式，里面就有将小写数字转换为大写数字的格式。但要注意的是，这里转换的是数字而不是金额。所以转换出来后并不存在“元”、“角”、“分”、
“整”等在大写金 额中出现的字。但是，“元”只出现在整数部分的后面，而小
数部分只有角分两位。这样只要利用EXC EL的“特殊”格式将数据分为整数部
分、角位和分位三个部分来处理就行了。处理的顺序是先整数，再 角位、再分位。
由于要分三个部分分别处理，然后根据情况分别与“元”，“角”，“分”
及“整”相连接。连接的方式可以使用CONCATENATE()函数，如公式二，也可以
使用连接 符＆。而用＆来连接，公式结构似乎会相对简单清晰一些，所以我选择
了用＆来连接。
虽然对问题进行了分解，但需要考虑的细节相当多。
若单元格为0或者空，输出空，避免出现“零 ”、“零元”等字样。对非数
字字符不进行处理，使用EXCEL自身的错误提示。
对负数按正数处理，再用条件格式将其转换为红色，不拟采用“负XXXXXX”
的形式。
整数加“元”，若是纯整数，就只处理整数且加“整”，不再处理小数部分。
若是纯小数，放在小数部分 处理，不单独列出处理。角为0且分不为0，应输出
“零”，只有角的就加“整”
如果有 尾数，即有3位以上小数（这种情况也许很少发生，但作为一个“通
用”公式，却不能不考虑这种情况） 。则有两种处理方式，一是截尾，另一则是
四舍五入。由于两种方式的排它性。决定做两个公式。
如果数值小于分，截尾公式输出空，而四舍五入公式则要考虑舍入问题。若
有舍入输出分， 没有则输出空。
根据这个思路，我“组装”了下面两个公式。
公式四：
IF (A1=0,
&元整

)&IF(LEFT(RIGHT(TEXT(A1,角
整
分
公式五：
IF(A1=0,元
整

RUNC(A1*1 0))*1=0,角整
分
公式四是四舍五入公式，公式五则是截尾公式。两个公式的结构其 实是一样
的，只是使用了不同的函数。下面用公式四来说明。
TEXT(INT(ROU ND(ABS(A1),2)),元用来处理整数部分，考虑
到纯小数及舍入问题，增加一个判断ABS (A1)<0.995，用0.995，即保证了正常
的舍入，又避免了出现0.9945也进行舍入的 错误。
用RIGHTB(TEXT(A1,来判断是不是纯整数，是就输出“整”，
后面 就不用处理了。因为TEXT函数输出的是文本值，所以在这里有两种处理方
法，一是就是本式，二是R IGHTB(TEXT(A1,。
LEFT(RIGHT(TEXT(A1,是取出角位数，增加 一个判断
ABS(A1)<0.095是为了在只有分票的情况下角位避免出现“零”的字样，0.09 5
也是考虑了尾数的舍入问题。
IF(LEFT(RIGHT(TEXT(A1,角，角 位是0输出空，否
则输出“角”。同样，这里的判断表达式也可改为
LEFT(RIGHT(T EXT(A1,

用RIGHT(TEXT(A1,取出分位数，分位为零输出“整”，否则输出分
位数。
对于负数，如果一定要用“负XXXXXX”的形式，则直接在第二个判断前加
上“IF(A1<0,
还有网友提出来说万位为零时不输出零不符合规范，为此我专门去查了一下
相关规定。结果如下：
大写金额中间有“0”时，大写金额要写“零”字；小写金额中间连续有几
个“0”时，大 写金额中间可以只写一个“零”字；小写金额万位或元位是
“ 0”，或者数字中间连续有几个“0”， 万位、元位也是“0”，但千位、角位
不是“0”时，大写金额中可以只写一个“零”字，也可以不写“ 零”字。
所以上述公式在当万位为零而千位不为零时，以不输出零的方式处理，应该
是符 合规范的。也许正是EXCEL采取这种样式的原因。当然，如果遵照习惯非要
加上这个零字也不是不可 能。只不过要增加一点公式复杂度罢了。
在一个数中，万会出现几次？不管是万、十万、百万、千 万，这个万就出现
一次，如果是万万则是亿，如果是万亿又是兆，万兆呢？已经超出EXCEL的处理< br>能力了。所以答案是万字在大写金额中只可能出现一次，且只出现在整数部分。
即然是这样，用S UBSTITUTE()函数就能解决问题。即判断当万位为零而千位不
为零时，用“万零”来替换“万 ”，其它情况下不进行替换。因为EXCEL只有在
这种情况下不会输出“零”。
在四舍 五入公式中，因为还要考虑尾数舍入问题，判断使用了四舍五入函数
ROUND()，公式四的输出整数 的部分公式改为：
IF(AND(RIGHT(INT(ROUND(ABS(A1),2)1000 0))=
,2)1000))<>
万万零
而截断公式不用考虑尾数舍入问题，直接 用TRUNC()取万位和千位数来判
断。相应地公式五的整数部分亦改为：
IF(AND( RIGHT(TRUNC(ABS(A1)10000))=
万万零

为了一个我认 为不是很必要的“零”字使公式臃肿了许多，而我喜欢简单清
晰的公式，所以不愿在正式公式中采用。
自认为这两个公式已经考虑了许多的细节，但我也不敢保证没有挂一漏万。
现在暂时告一段 落，若以后发现问题再来修改了。