金额大写转换(金额大写转换器)

各位朋友，你们好。我是一名办公软件爱好者，喜欢Excel，会函数、会基础操作、也会一点VBA。喜欢和大家分享、交流一些Excel的知识。欢迎爱好Exce和要学习Excel的朋友，相互学习、一起进步。如果你喜欢我的分享，请关注我，以便第一时间看到我分享的内容。

关于金额的大小写转换，通常用到的是小写金额转大写金额。而我今天要分享的内容是：

小写金额的拆分；小写金额转大写金额【函数方法】小写金额转大写金额【VBA方法】大写金额转小写金额【VBA方法】小写金额转英文【VBA方法】Word里面小写转大写WPS里面小写转大写其他金额小写转大写的方法

写在前面：由于文章里面写太多VBA代码会影响阅读体验。故将VBA代码截图处理，需要演示文件的朋友，可以关注我，然后私信发送关键字：大写金额、小写金额、大小写等获取文件。

小写金额的拆分

收据

如上图收据样式，在数量、单价中填写好数据，即可生成合计金额，同时将合计金额按十、万、千、百、十、元、角、分为单位拆分出来。接下来，我用一个案例详细给大家分析分析下（用的随机数模拟数据）：

金额拆分演示

操作演示中涉及两个函数公式：

公式一：=MID(RIGHT(REPT(" ",9)&TEXT(ROUND($A3/1%,),"￥0"),9),COLUMN(A1),1)

公式二：=LEFT(RIGHT(TEXT(ROUND($A3/1%,)," ￥0"),10-COLUMN(A1)))

解决的思路和公式的理解详见下图：

小写金额拆分，公式理解

小写金额转大写金额【函数方法】

金额小写转大写，这个是大家应用得最多的，详见下面动画操作演示：

小写金额转大写金额【函数方法】

操作演示中用的公式是：

=SUBSTITUTE(SUBSTITUTE(IF(A2<0,"负","")&TEXT(INT(ABS(A2)),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A2),2),"[dbnum2]0角0分;;整"),"零角","零"),"零分","整")

公式的理解思路详见下图：

小写金额转大写的公式理解

按照上图拆分，小写金额转大写的函数公式，可以分为四部分：

①判断正负数的：IF(A2<0,"负","")

②转换整数部分的：TEXT(INT(ABS(A2)),"[dbnum2]G/通用格式元;;")

③转换小数部分的：TEXT(RIGHT(RMB(A2),2),"[dbnum2]0角0分;;整")

④然后把以上三部分用【&】合并起来，在用SUBSTITUTE函数进行2次替换。

要实现相同的效果，不一定限于我示例中用的函数，ROUND、NUMBERSTRING等函数也可以实现，只要按照上图的思路，达到要求的效果就可以。其中，有三点需要解释下：

1、[dbnum2]G/通用格式元;;：①数据大于0的时候，按[dbnum2]G/通用格式元格式显示；②数据小于0的时候，显示空白；③数据等于0的时候，显示空白。（这里使用了格式的前三个区间）【详见下面动图演示】

2、[dbnum2]0角0分;;整：同第一条，①当数据大于0的时候，按[dbnum2]0角0分格式显示角和分，比如：壹角壹分；②如果金额小于0，显示空白；③如果金额等于0，显示整（即无小数，要转换的数据是一个整数）。（这里使用了格式的前三个区间）

Excel数据格式的四个区间，每个区间用【;】隔开

3、[dbnum2]G/通用格式元：将小写数字转换为大写数字，效果见下图的操作演示：

[dbnum2]G/通用格式元

小写金额转大写金额【VBA方法】

小写金额转大写【VBA方法】

演示所用的代码如下：

小写金额转大写【VBA代码】

大写金额转小写金额【VBA方法】

大写金额转小写金额【VBA方法】

演示所用的代码如下：

大写金额转小写金额【VBA代码】

小写金额转英文【VBA方法】

小写金额转英文【VBA方法】

演示所用的代码如下（部分代码）：

小写金额转英文【VBA方法】

Word里面小写转大写

Word里面小写转大写

注意：此方法只支持整数，小数在转换过程中，会先被四舍五入处理

WPS里面小写转大写

选择单元格→右键，选择设置单元格格式→依次选择数字、特殊、类型、【人民币大写】→完成

WPS里面的小写金额转大写金额

其他金额小写转大写的方法

1、输入法直接录入：比如搜狗输入法

小写金额转大写（输入法）

2、专业软件：

小写金额转大写（软件）