那时候我就想，Excel这么智能，拉个公式就能自动求和，条件格式能把数据标得五颜六色，难道就不能把这“壹仟伍佰叁拾圆整”自动变成“1530.00”吗？盯着屏幕，心里那个问号大得能塞下一头牛。
结果呢？去网上搜，去问那些“Excel高手”，得到的答案五花八门，有些听起来就不靠谱。直接转换？抱歉，Excel的内置函数里，还真没有一个能让你直接选中一个包含“壹仟贰佰叁拾肆元整”这种中文大写金额字符串的单元格，然后旁边一拉就跳出“1234.00”的。为啥？因为它看到的是一段文本，不是一个规则的数字或者可以通过简单规则解析的格式。它不理解“壹”是1，“仟”是乘以1000，“圆”是单位。它只会告诉你：“#VALUE!”或者原封不动地显示那串中文。
那怎么办？难道就只能纯手工？当然不是！只不过，这个转换不像“数字转大写”那样简单（Excel有个NUMBERSTRING函数，虽然不是直接转金额大写，但能把数字变成中文小写或带单位的，比如123变成一百二十三或123）。把中文大写金额转回阿拉伯数字，这活儿稍微有点技术含量，需要点非常规的手段。
有人说可以用辅助列，然后用一大堆SUBSTITUTE函数层层替换。先把“壹”换成“1”，“贰”换成“2”……再把“仟”换成乘以1000的操作，“佰”换成乘以100……想想那个公式的长度和嵌套层数！光是处理“零”的情况，还有“万”和“亿”这种跨单位的，以及角分这种小数，那个逻辑能让你头皮发麻。而且，一旦中文大写金额的写法稍微变一下（比如“两佰”而不是“贰佰”，“圆”写成“元”），你的公式就失效了。这方法，理论上可行，但实际操作起来，简直是给自己挖坑，费时费力还容易出错，维护起来更是噩梦。我就试过，改了一个下午的公式，最后还是放弃了，因为总有想不到的边缘情况。
所以，在我看来，解决中文大写金额字符串转阿拉伯数字这个需求的终极答案，是宏，也就是VBA（Visual Basic for Applications）。别一听VBA就觉得高大上，遥不可及。其实对于这种特定、重复性强的任务，VBA简直是Excel送给你的秘密武器。它允许你编写用户自定义函数（UDF），就像Excel内置的SUM、AVERAGE函数一样，你可以创建一个自己的函数，专门来干这个“大写转小写”的活儿。
怎么用VBA搞定呢？听起来有点 technical，但别怕，跟着思路走，或者直接找现成的代码段改改，并不难。
首先，你需要打开VBA编辑器。最快的方法是按Alt + F11。会弹出一个新窗口，这就是VBA的世界了。
然后，在左边的项目资源管理器里，找到你的当前工作簿（通常是“VBAProject (你的文件名.xlsm)”），右键点击它，选择“插入” -> “模块”。一个新的空白代码窗口就出现了。
接下来，就是把解决问题的VBA代码“贴”进去或者自己写。这段代码会定义一个函数，比如我们叫它 ConvertChineseNum。这个函数会接收一个参数，就是你单元格里那个中文大写金额的文本。函数的核心逻辑就是：
1. 遍历这串中文大写文本。
2. 遇到“壹、贰、叁……”就把它们当作数字1、2、3……
3. 遇到“拾、佰、仟”就处理单位和乘法。
4. 遇到“万、亿”就处理更高级的单位。
5. 遇到“元、圆”就知道是整数部分的结尾。
6. 遇到“角、分”就知道是小数部分。
7. 还得聪明地处理“零”的情况，比如“壹万零伍拾元”，那个“零”是占位的，但“一万五千零五十元”中间的“零”不是。还有“伍拾元整”和“伍拾元”都是50块钱。
8. 最后根据这些解析出来的信息，计算出对应的阿拉伯数字，并作为函数的结果返回。
你看，这个过程比简单的替换复杂多了，它需要像人一样去理解这个字符串的构成和数字规则。这也是为什么Excel内置函数做不到，而VBA可以——因为它拥有编程的能力。
网上有很多大神分享过这样的VBA代码，你可以搜搜“Excel VBA 中文大写转数字函数”。找到一段看起来比较鲁棒（就是考虑情况比较周全，不容易出bug）的代码，复制粘贴到你刚才插入的模块里。保存一下工作簿（记住要保存为“.xlsm”格式，因为包含宏），然后你就可以回到Excel表格界面了。
现在，神奇的事情发生了。假设你的中文大写金额在A1单元格，你想在B1显示对应的阿拉伯数字。你只需要在B1单元格输入：
=ConvertChineseNum(A1)
（这里的ConvertChineseNum就是你刚才在VBA里写的函数名字）
回车！见证奇迹！如果代码写得对，A1单元格的“壹仟贰佰叁拾肆元伍角陆分”瞬间就会在B1变成“1234.56”。
这感觉，简直是如释重负！想当初我第一次用VBA实现这个功能时，那种成就感不亚于解开一道数学难题。对着堆积如山的报销单，以前看一眼就头大，现在鼠标一拉，数字哗啦啦就出来了，效率翻了几十倍不止！核对的时候，直接比对两列数字，一目了然，出错率大大降低。
当然，写VBA代码需要一点点学习曲线，理解那些变量、循环、条件判断。但一旦你掌握了，你会发现Excel世界为你打开了新大门。不仅仅是大写转小写，很多Excel搞不定或者做起来极其繁琐的事情，VBA都能优雅地解决。
所以，我的建议是：对于偶尔几个数字转换，手动输入或者用几个简单的替换函数凑合一下还行。但如果这是你的日常工作，或者处理的数据量大，请拥抱VBA！花点时间去学习，或者直接找一段成熟的代码来用，这绝对是最划算的投资。它能帮你一劳永逸地解决中文大写金额转阿拉伯数字的问题，把你的工作效率提升到新的水平，让你从那些重复、枯燥、易错的手工活中解放出来。别再磨洋工了，试试VBA吧，你会感谢我的。
发表回复