单元格小写数字转大写

Excel单元格小写数字转大写：壹个实用技巧与避坑指南

各位，大家好！作为一个天天跟Excel打交道的人，今天咱就来聊聊一个看似简单，但时不时会让人挠头的技巧：Excel单元格里的小写数字转大写。别以为这只是个小问题，搞不好会让你在报销单、财务报表上栽跟头。所以，赶紧跟我一起，把这块硬骨头啃下来！

话说回来，小写数字转大写，听起来好像很基础，但Excel并没有提供直接一键转换的按钮。这就意味着，咱们得动点脑筋，用点“旁门左道”。

最常见的方法是什么？当然是利用Excel自带的函数。这里不得不提的就是NUMBERSTRING函数。这个函数简直是救星啊！它的作用就是把数值转换成指定的文字格式，其中就包括人民币大写。

比如，你的数字在A1单元格，你想在B1单元格显示大写，那么你只需要在B1单元格输入公式：=NUMBERSTRING(A1,2)。这里的“2”就代表转换成人民币大写格式。是不是很简单？

但，别高兴得太早！NUMBERSTRING函数也不是万能的。它有一个致命的缺点：只能处理整数，而且对小数的处理非常粗暴。如果你的A1单元格是123.45，用这个函数转换出来的结果是“壹佰贰拾叁”，小数部分直接被忽略了！是不是很坑爹？

所以，要完美地解决这个问题，咱们还得想点别的招。

这个时候，自定义函数就派上用场了！VBA代码，听起来是不是有点吓人？其实没那么难，只要复制粘贴几行代码，就能实现强大的功能。

具体怎么做呢？首先，打开VBA编辑器（Alt + F11）。然后，插入一个模块（插入 -> 模块）。接着，把下面的代码复制进去：

“`vba
Function DX(Num As Double) As String
Dim MyStr As String, Money As String
Dim IntPart As Long, DecimalPart As Integer
Dim i As Integer

Money = Format(Num, "0.00")
IntPart = Int(Money)
DecimalPart = Right(Money, 2)

Dim Unit(9) As String, Digit(9) As String
Unit(1) = "拾"
Unit(2) = "佰"
Unit(3) = "仟"
Unit(4) = "万"
Unit(5) = "拾"
Unit(6) = "佰"
Unit(7) = "仟"
Unit(8) = "亿"
Unit(9) = "拾"

Digit(1) = "壹"
Digit(2) = "贰"
Digit(3) = "叁"
Digit(4) = "肆"
Digit(5) = "伍"
Digit(6) = "陆"
Digit(7) = "柒"
Digit(8) = "捌"
Digit(9) = "玖"

Dim Temp As String
MyStr = ""
For i = Len(IntPart) To 1 Step -1
    Dim n As Integer
    n = Mid(IntPart, Len(IntPart) - i + 1, 1)
    If n <> 0 Then
        MyStr = MyStr & Digit(n) & Unit(i)
    Else
        If i = 4 Or i = 8 Then
            MyStr = MyStr & Unit(i)
        ElseIf Mid(IntPart, Len(IntPart) - i, 1) <> 0 And i <> 1 Then
            MyStr = MyStr & "零"
        End If
    End If
Next i

If Right(MyStr, 1) = "零" Then MyStr = Left(MyStr, Len(MyStr) - 1)
If MyStr = "" Then MyStr = "零"

'处理小数部分
Dim Jiao As Integer, Fen As Integer
Jiao = Left(DecimalPart, 1)
Fen = Right(DecimalPart, 1)

MyStr = MyStr & "元"

If Jiao <> 0 Then MyStr = MyStr & Digit(Jiao) & "角"
If Fen <> 0 Then MyStr = MyStr & Digit(Fen) & "分"

If Jiao = 0 And Fen = 0 Then MyStr = MyStr & "整"

DX = MyStr

End Function
“`

然后，关闭VBA编辑器。现在，你就可以在Excel表格里使用这个自定义函数了。在B1单元格输入公式：=DX(A1)，就能得到完美的大写金额啦！小数点也能正确处理！

当然，使用自定义函数也有一些需要注意的地方。首先，你的Excel文件需要保存为启用宏的格式（.xlsm），否则下次打开的时候，自定义函数就失效了。其次，VBA代码的编写需要一定的基础，如果你完全不懂VBA，可能需要花点时间学习一下。

总而言之，Excel单元格小写数字转大写，方法有很多，但要根据实际情况选择最适合自己的方案。希望这篇文章能帮到你，让你在处理财务数据的时候更加得心应手！下次再见！