xls公式大全EXCEL金额小写转大写公式

2020年10月30日发(作者：申联彬)
EXCEL金额小写转大写公式

近来看了转几个Excel相关论坛，发现有部分 网友在寻
求数字金额转换为人民币大写的方法。出于好奇，我在网上
搜索了一番，什么VBA、 加载宏，公式函数各式方法争相亮
相，应有尽有。但我的习惯是，只要能用公式解决的问题，
坚 决不使用VBA。所以我就特别地关注使用公式来生成的方
法，结果是用公式的方法可谓是更加地灿烂缤 纷，使人眼花
缭乱。
通过分析我收集到的二十几个公式，发现比较牛，适合
我口味的公式有三个，在此我将其列出。
公式一：
SUBSTITUTE(SUBSTITUTE(IF(A1《0，“负” ，“”)&TEXT(TRUNC(ABS(ROUND(A1，
2)))，“[DBNum2]”)& “元”&IF(ISERR(FIND(“。”，ROUND(A1，2)))，“”，
TEXT(RI GHT(TRUNC(ROUND(A1，2)*10))，“[DBNum2]”))&IF(ISERR(F IND(“.0”，
TEXT(A1，“0.00”)))，“角”，“”)&IF(LEFT(RIG HT(ROUND(A1，2)，3))=“。”，
TEXT(RIGHT(ROUND(A1，2)) ，“[DBNum2]”)&“分”，IF(ROUND(A1，2)=0，“”，“整”))，
“零元 零”，“”)，“零元”，“”)

公式二：

CONCATENA TE(IF(A1《0，“负”，“”)，TEXT(IF(TRUNC(A1)=0，“”，TRUNC(AB S(A1)))，
“[DBNum2]”)，IF(INT(TRUNC(A1))=0，“”，“元” )，TEXT(IF(OR(ABS(A1)《0.1，
TRUNC(A1)=A1)，“”，RIGH T(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”，“”，
“分”))

公式三：

IF(ROUND(A1，2)=0，“”，IF(ROUND(A BS(A1)，2)》=1，TEXT(INT(ROUND(ABS(A1)，
2))，“[DBNu m2]”)&“元”，“”)&IF(RIGHT(TEXT(A1，“.00”)，2)*1=0，“整”，< br>IF(RIGHT(TEXT(A1，“.00”)，4)*1》=1，IF(RIGHT(TEXT(A 1，“.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(A 1，“.00”))，“[DBNum2]”)&“分”，“整”)))

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