Excel表格小写金额秒变大写：告别财务烦恼，一键转换终极攻略！
话说，谁没被Excel表格里的小写金额折磨过？尤其是财务小姐姐们，每个月对着密密麻麻的数字，神经高度紧张，生怕一个不小心，输错一个小数点，那可就完犊子了！更别提要把这些小写金额一个个手动转换成大写，那简直是噩梦！
我深有体会！当年刚毕业，第一次接触财务工作，光是写这些玩意儿，眼睛都快瞎了。那时候，只会笨办法，一个一个对照着写，效率低到令人发指。加班到深夜是常态，回家倒头就睡，感觉身体被掏空……
后来，我痛定思痛，开始研究Excel，发誓要找到一种能够解放自己的方法。皇天不负有心人，还真让我找到了！现在，我只需要轻轻一点，小写金额就能自动转换成大写，简直不要太爽！
那么，到底该怎么做呢？别急，我这就把我的独家秘笈分享给大家。
方法一：Excel自带函数，简单粗暴有效！
Excel其实早就内置了将数字转换为大写的函数，只不过很多人都不知道而已。这个函数就是 NUMBERSTRING()。
举个栗子，如果你想把A1单元格里的数字转换成大写，只需要在B1单元格里输入 =NUMBERSTRING(A1,2)，然后回车，搞定！A1里的数字立马就变成大写中文数字了。
需要注意的是，NUMBERSTRING()函数的第二个参数，决定了转换的类型。1表示转换成一、二、三…；2表示转换成壹、贰、叁…；3表示转换成一二三…。一般来说，我们财务上用的是2，也就是大写金额的写法。
方法二：自定义函数，打造你的专属转换器！
如果你觉得NUMBERSTRING()函数不够灵活，或者想实现更复杂的转换需求，比如自动添加“人民币”、“元”、“角”、“分”等单位，那就需要用到VBA自定义函数了。
听起来好像很复杂，但其实并没有想象中那么难。只需要打开VBA编辑器（按下Alt+F11），插入一个模块，然后把下面的代码复制进去：
“`vba
Function DX(M)
Dim Jiao, Fen, Qians, Wan, Yi
Jiao = Application.WorksheetFunction.Text(Int(Abs(M) * 10 + 0.5) / 10 – Int(Abs(M)), “.0”)
Fen = Application.WorksheetFunction.Text(Int(Abs(M) * 100 + 0.5) / 100 – Int(Abs(M) * 10 + 0.5) / 10, “.0”)
Qians = Array(“仟”, “佰”, “拾”, “”)
Wan = Array(“万”, “亿”)
Yi = Array(“元”, “拾”, “佰”, “仟”, “万”, “拾”, “佰”, “仟”, “亿”, “拾”, “佰”, “仟”)
StrM = Application.WorksheetFunction.Text(Abs(M), “0”)
If StrM = “0” Then
DX = “零元整”
Exit Function
End If
StrM = Replace(Application.WorksheetFunction.Text(Abs(M), “[DBNum2]0″), ” “, “”)
LenM = Len(StrM)
For i = 1 To LenM
StrTmp = Mid(StrM, i, 1)
DX = DX & Mid(Yi(LenM – i), 1, 1) & StrTmp
Next i
DX = Replace(Replace(Replace(Replace(Replace(Replace(DX, “元零拾”, “元零”), “元零佰”, “元零”), “元零仟”, “元零”), “元零万”, “元万”), “零零”, “零”), “零元”, “元”)
If Len(Jiao) = 2 Then
If Mid(Jiao, 2, 1) <> “0” Then
DX = DX & Mid(Jiao, 2, 1) & “角”
End If
End If
If Len(Fen) = 2 Then
If Mid(Fen, 2, 1) <> “0” Then
DX = DX & Mid(Fen, 2, 1) & “分”
Else
If Len(Jiao) = 1 Then
DX = DX & “整”
End If
End If
Else
DX = DX & “整”
End If
DX = Replace(Replace(Replace(Replace(DX, "零拾", "零"), "零佰", "零"), "零仟", "零"), "零万", "万")
DX = "人民币" & DX
End Function
“`
然后，你就可以像使用普通函数一样使用 DX() 函数了。比如，你想把A1单元格里的数字转换成大写金额，只需要在B1单元格里输入 =DX(A1)，回车，搞定！
这个自定义函数的功能非常强大，能够自动处理各种情况，比如金额为零、有角分等等。基本上，有了它，你就可以彻底告别手动转换大写金额的烦恼了！
希望这些方法能帮助到你！相信我，掌握了这些技巧，你也能成为Excel高手，从此告别财务烦恼，早日实现升职加薪的梦想！加油！
发表回复