大小写金额转换(大小写金额转换器)新鲜出炉

我是一名办公软件爱好者，喜欢Excel，会函数、会基础操作、也会一点VBA。要实现相同的效果，不一定限于我示例中用的函数，ROUND、NUMBE

 

各位朋友，你们好我是一名办公软件爱好者，喜欢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、专业软件：

小写金额转大写（软件）