想象一下，堆成山的报销单，或者一份动辄几十上百万甚至上亿的合同，里面的数字金额得全部转换成大写，密密麻麻的汉字，写到手抽筋是小事，关键是不能出错！一个数字的偏差，轻则来回扯皮，重则财务审计都过不去。这可不是闹着玩的。
所以，一踏入职场，特别是跟钱打交道多的时候，掌握如何在Excel里快速、准确地完成这个转换，简直就是生存必备技能。你可能会想，Excel这么智能，难道没有一个现成的函数，比如 =ConvertToRMBUpper(A1)，一输进去，数字就自动变成“人民币”大写了？
可惜啊，Excel这小妖精，有些地方就是没那么贴心。它确实有货币格式，能帮你加上“¥”符号，或者千位分隔符，但抱歉，直接给你变出“壹仟贰佰叁拾肆圆伍角陆分”这种带着中文大写单位的格式，内置函数里真没有。
这可咋办？难道真得人工一个个对照着输入？开玩笑，那效率得低到尘埃里去。而且人工输入，最容易犯错的就是那些看起来相似的字：零、壹、贰、叁、肆、伍、陆、柒、捌、玖；以及单位：拾、佰、仟、万、亿、圆、角、分。小数点后面的处理更是麻烦，有时候有零，有时候没零，“零角零分”要不要写？“整”啥时候出现？想想都头大。
别急，山人自有妙计。虽然Excel没有现成的函数，但它留了个后门，叫VBA（Visual Basic for Applications）。这玩意儿，说白了就是藏在Excel背后的一个编程语言小引擎。别听到编程就打退堂鼓，咱们不需要成为程序员，只需要借用别人写好的VBA代码，把它“安装”到你的Excel里，就能变出一个我们梦寐以求的自定义函数！
是的，解决方案的核心就是这个VBA自定义函数。网上有很多现成的人民币大写转换的VBA代码，都经过无数前辈的验证和优化，基本都能满足日常需求。把这段代码放到你的Excel里，它就像多了一个内功深厚的分身，随时听候你的差遣。
怎么操作呢？很简单，就几步。
1. 打开你的Excel文件。
2. 按下Alt + F11组合键。嘣！一个新的窗口会跳出来，这就是VBA编辑器，看起来有点古老，别怕。
3. 在左边的项目管理器窗口（如果没有看到，点菜单栏的“视图” -> “项目资源管理器”），找到你当前的工作簿的名字（比如“ThisWorkbook”或者你的文件名）。
4. 右键点击这个工作簿的名字，选择“插入” -> “模块”。一个新的空白窗口会在右边出现。
5. 把那段神奇的VBA代码复制粘贴到这个空白模块里。
喏，代码来了，你直接复制这一块就行：
“`vba
Function RMB(n)
‘ 作者：网络收集及修改，感谢原作者
‘ 功能：将数字转换成人民币大写金额
Dim s, s1, s2, s3, s4, i, j, k
Dim arr, arr1, arr2, arr3
Dim Temp
On Error Resume Next
s = Format(n, “0.00”) ‘ 保留两位小数
s = Replace(s, “.”, “点”)
arr = Split(s, “点”)
s1 = arr(0) ‘ 整数部分
s2 = arr(1) ‘ 小数部分
arr1 = Array(“”, “壹”, “贰”, “叁”, “肆”, “伍”, “陆”, “柒”, “捌”, “玖”)
arr2 = Array(“”, “拾”, “佰”, “仟”)
arr3 = Array(“”, “万”, “亿”)
s3 = “” ‘ 转换后的整数部分
k = 0 ‘ 亿/万单位标记
For i = Len(s1) To 1 Step -1
j = Val(Mid(s1, i, 1))
If j <> 0 Then
s3 = arr1(j) & arr2((Len(s1) – i) Mod 4) & s3
Temp = Mid(s1, i – 3, 4) ‘ 取四位进行处理
If Temp <> “0000” Then
If (Len(s1) – i) Mod 8 = 4 Then s3 = arr3(1) & s3 ‘ 加万
If (Len(s1) – i) Mod 8 = 0 Then s3 = arr3(2) & s3 ‘ 加亿
End If
Else
If Mid(s1, i – 1, 1) <> “0” Then s3 = arr1(j) & s3 ‘ 前一位不是0，则加零
End If
Next
‘ 处理多余的零和单位
s3 = Replace(s3, “零拾”, “零”)
s3 = Replace(s3, “零佰”, “零”)
s3 = Replace(s3, “零仟”, “零”)
s3 = Replace(s3, “零零”, “零”)
s3 = Replace(s3, “亿万”, “亿”) ‘ 亿后面的万去掉
s3 = Replace(s3, “零万”, “万”) ‘ 零万变成万
s3 = Replace(s3, “零亿”, “亿”) ‘ 零亿变成亿
s3 = Replace(s3, “零圆”, “圆”) ‘ 零圆变成圆
While Right(s3, 1) = “零”: s3 = Left(s3, Len(s3) – 1): Wend ‘ 去掉末尾的零
If s3 <> “” Then s3 = s3 & “圆” ‘ 加上圆单位
s4 = “” ‘ 转换后的小数部分
If s2 <> “” Then
If Mid(s2, 1, 1) <> “0” Then s4 = arr1(Val(Mid(s2, 1, 1))) & “角” ‘ 处理角
If Mid(s2, 2, 1) <> “0” Then s4 = s4 & arr1(Val(Mid(s2, 2, 1))) & “分” ‘ 处理分
If Mid(s2, 1, 1) = “0” And Mid(s2, 2, 1) <> “0” Then s4 = “零” & s4 ‘ 只有分有值，角是零
End If
‘ 合并整数和小数部分，并处理特殊情况
If s3 = “” And s4 <> “” Then ‘ 只有小数部分
RMB = s4
ElseIf s3 <> “” And s4 = “” Then ‘ 只有整数部分
RMB = s3 & “整”
ElseIf s3 <> “” And s4 <> “” Then ‘ 整数小数都有
RMB = s3 & s4
Else ‘ 0
RMB = “零圆整”
End If
‘ 最后的清理
RMB = Replace(RMB, “圆零角”, “圆零”) ‘ 比如10.05，圆零角伍分 变成 圆零伍分
RMB = Replace(RMB, “圆零分”, “圆整”) ‘ 比如10.00，圆零分整 变成 圆整
RMB = Replace(RMB, “圆整整”, “圆整”) ‘ 防止出现双重整
If n < 0 Then RMB = “负” & RMB ‘ 处理负数
If n = 0 Then RMB = “零圆整” ‘ 确保0正确显示
End Function
“`
- 粘贴完代码，点击VBA编辑器窗口左上角的“文件” -> “保存”。保存的时候会提示你，如果想保存VBA代码，需要把文件类型保存为“启用宏的工作簿（*.xlsm）”或者“二进制工作簿（*.xlsb）”。记住了，一定要保存成带“M”或“B”的格式，不然你下次打开文件，代码就没了，函数也就失效了。
- 关闭VBA编辑器。
现在，回到你的Excel工作表里。见证奇迹的时刻到了！假设你的阿拉伯数字金额在A1单元格，你只需要在另一个单元格（比如B1）输入：
=RMB(A1)
然后按回车。看！A1里的数字是不是瞬间就变成了对应的人民币大写？比如A1是123456.78，B1就会显示“壹拾贰万叁仟肆佰伍拾陆圆柒角捌分”。如果你输入10000，就会显示“壹万圆整”。输入0，显示“零圆整”。输入0.05，显示“零伍分”（这个代码处理小数点前零角零分，可能需要看具体需求微调，但大部分场景够用了）。
这个自定义函数就像是Excel里新学会的一门语言，你可以像使用SUM、AVERAGE函数一样，随意在任何单元格里调用它。拖动填充柄，唰唰唰，一列的数字金额全部自动转换成大写，效率不知道提升了多少倍！以前可能要花半小时甚至一小时对着计算器和字帖一点点写，现在几秒钟搞定！
用VBA写自定义函数，除了人民币大写，还能干很多Excel内置功能搞不定的事儿。学会这一招，解决的不只是人民币大写的问题，更重要的是打开了一扇门，让你知道Excel远不止你看到的那些菜单和函数。
当然，这段代码也不是万能的，有时候你可能会遇到一些特殊情况，比如金额巨大到超出正常范围（虽然代码处理了亿），或者某些单位写法上的细微差异（比如一些古老的财务习惯），这时候可能就需要对代码进行微调了。但这已经是在高效率基础上的优化了，比从头手工操作强了不知道多少倍。
还有一些其他方法，比如安装第三方开发的Excel加载项（Add-ins），有些公司会提供这种工具，安装后可能会直接多出一个菜单或者函数。但加载项需要安装，而且来源要可靠，怕有病毒或者广告啥的。相比之下，自己把VBA代码放到工作簿里，控制权在自己手里，更灵活，也更安心。而且这个函数是跟着文件走的（如果你保存为xlsm），文件发给别人，只要对方的Excel启用了宏，就能用。当然，要注意宏安全性设置，有时候默认是禁用宏的，需要手动启用一下。
说到底，在阿拉伯数字转换人民币大写这个事儿上，Excel本身确实留了个空白，但VBA这把钥匙完美地填补了这个空白。掌握了它，你就等于在Excel里给自己量身定做了一个高效工具，再也不用被那些枯燥、易错的重复性劳动困扰了。
所以，下次再遇到这种需求，别抓狂，别认命地去手写或者慢慢输大写汉字了。想想你Excel里藏着的那个VBA模块和那个叫做RMB的自定义函数。它才是你真正的救星。去吧，去解放你的双手，把精力放到更有价值的工作上去！这个技巧，绝对值得你花几分钟去实践一下，一劳永逸解决大写转换的问题。相信我，你会感谢掌握了这个小技能的自己！
发表回复