Excel技巧：6种人民币金额大写方法全掌握

摘要：很明显，EXCEL的中金额大写效果并不能达到财务标准，它只是纯粹的把数字大写了，并不考虑财务规范，无法转换人民币“元角分”单位，毕竟是外围的软件，这并不奇怪。

关注我，每天分享高效办公技巧及免费自动化模版，从此告别加班

引言

在日常工作中，我们经常需要在各种单据中将数字金额转换为人民币大写形式。而且要符合财务的书写规范。比如收付款单据、出入库单据、合同协议等。

但是，手工转换一个个输入不仅效率低，还容易出错。

今天就让我们一起来学习如何在Excel中快速、准确地实现这一转换吧！

老师一次性分享6种方法，建议大家收藏转发，避免以后需要时找不到教程了。

自定义格式

对金额数据进行单元格自定义设置，应该是大家想到的最简单最直接高效的方法，但是这个方法，EXCEL和WPS的效果不一样。

操作也很简单，选择金额数据-右键-设置单元格格式

单元格格式设置，WPS的类型会更多一点，对金额大写的定义效果也不一样。

很明显，EXCEL的中金额大写效果并不能达到财务标准，它只是纯粹的把数字大写了，并不考虑财务规范，无法转换人民币“元角分”单位，毕竟是外围的软件，这并不奇怪。

但WPS就能很好的转换大写效果，这完全符合中文金额的书写规范。

所以，这个方法，EXCEL略逊一筹。

函数公式

如果你用的是EXCEL，没有WPS，单元格自定义的方法不行，还可以用函数公式，公式的方法也很多。老师这里分享3条公式。

用传统的公式比较复杂，因为我们要考虑数字的场景比较多，比如，整数、1位小数，2位小数，负数等。

不同公式逻辑不同，也比较复杂。这里不讲公式逻辑，直接贴公式出来给大家，大家可以直接复制公式，把公式中的单元格，改成你的金额所在单元格就行了。

公式1：=SUBSTITUTE(SUBSTITUTE(IF(A2公式2：=IF((A2-INT(A2))=0,TEXT(A2,"[DBNUM2]")&"元整",IF(INT(A2*10)-A2*10=0,TEXT(INT(A2),"[DBNUM2]")&"元"&TEXT((INT(A2*10)-INT(A2)*10),"[DBNUM2]")&"角整",TEXT(INT(A2),"[DBNUM2]")&"元"&IF(INT(A2*10)-INT(A2)*10=0,"零",TEXT(INT(A2*10)-INT(A2)*10,"[DBNUM2]")&"角")&TEXT(RIGHT(A2,1),"[DBNUM2]")&"分"))公式3：=IF(ABS(A2)

公式比较长，如果文章中公式不好复制，教程结尾有文档领取方式，免费分享本教程中的案例文档。

VBA自定义函数

如果觉得函数公式太长太复杂了，让你看着头晕（我看着头也晕）。

那老师再分享一种更直接简单的：VBA自定义函数。

操作步骤如下：

1、打开EXCEL或者WPS，按ALT+F11快捷键，打开VBA编辑器。

2、在左侧“工程管理器”中，右键-插入模块

3、把下面这段代码复制-粘贴到右边空白代码窗口中；

Function DX(q As Range)'DX:大写的拼音字母，本函数可将数字转换成中文人民币大写形式If q > 0 Thenybb = Round(q * 100)y = Int(ybb / 100)j = Int(ybb / 10) - y * 10F = ybb - y * 100 - j * 10zy = Application.WorksheetFunction.Text(y, "[dbnum2]")zj = Application.WorksheetFunction.Text(j, "[dbnum2]")zf = Application.WorksheetFunction.Text(F, "[dbnum2]")d1 = zy & "元"If F = 0 And j = 0 ThenDX = d1 & "整"ElseIf F = 0 And j 0 ThenDX = d1 & zj & "角整"ElseIf F 0 And j = 0 ThenDX = d1 & zf & "分"ElseIf F 0 And j 0 ThenDX = d1 & zj & "角" & zf & "分"End IfElseIf q 0 ThenDX = d1 & zj & "角整"ElseIf F 0 And j = 0 ThenDX = d1 & zf & "分"ElseIf F 0 And j 0 ThenDX = d1 & zj & "角" & zf & "分"End IfElseIf q = 0 ThenDX = "零元"ElseIf Len(q) = 0 ThenDX = ""ElseDX = "#value"End IfEnd Function