excel表格数字小写变大写

Excel表格数字小写转大写：告别手工输入，财务报表高效搞定！

说实话，跟Excel打交道久了，真的感觉它就像个老朋友。但有时候，这老朋友也会给你出点小难题。就拿财务报表来说吧，数字小写转大写，绝对是个让人头疼的活儿！你是不是也经历过，辛辛苦苦填完一堆数据，最后却要一个一个手动去改成大写？想想都觉得累。

别担心！今天，咱们就来好好聊聊Excel表格里数字小写转大写的那些事儿，彻底告别手动输入的噩梦。

为啥要把数字转成大写？这事儿，财务人肯定懂。原因很简单，防止篡改啊！你瞅瞅那些合同、发票，哪个不是大写金额写得明明白白的？这可不是闹着玩的，关系到真金白银呢！

那么，Excel里怎么才能把数字小写变大写呢？

最简单粗暴的方法，当然是用公式！

首先，选中你要显示大写金额的单元格。然后在公式栏里输入公式：=NUMBERSTRING(A1,2) (假设你的小写数字在A1单元格)。然后敲回车，奇迹就发生了！A1单元格里的小写数字，瞬间变成了大写中文数字！

这个NUMBERSTRING函数，简直就是个神器！它有两个参数，第一个参数是你要转换的数字所在的单元格，第二个参数是转换类型。参数2可以取1、2、3，分别对应不同的大写数字格式。一般情况下，我们用2就足够了。

不过，这种方法转换出来的大写数字，后面没有“元整”这两个字，稍微有点遗憾。没关系，我们可以用&符号把“元整”给拼接上去。公式可以改成这样：=NUMBERSTRING(A1,2)&"元整"。搞定！完美！

当然，如果你觉得每次都要输入公式太麻烦，也可以考虑自定义函数。这需要用到VBA（Visual Basic for Applications），稍微有点技术含量，但学会了绝对能让你效率翻倍！

你可以按 Alt + F11 打开VBA编辑器，然后插入一个模块，把下面的代码复制进去：

vba
Function DX(num As Double) As String
Dim RMB As String, i As Integer, temp As String
Dim numstr As String
RMB = ""
numstr = Trim(Str(Abs(num)))
Dim arr(13) As String
arr(1) = "分"
arr(2) = "角"
arr(3) = "元"
arr(4) = "拾"
arr(5) = "佰"
arr(6) = "仟"
arr(7) = "万"
arr(8) = "拾"
arr(9) = "佰"
arr(10) = "仟"
arr(11) = "亿"
arr(12) = "拾"
arr(13) = "佰"
Dim zarr(10) As String
zarr(0) = "零"
zarr(1) = "壹"
zarr(2) = "贰"
zarr(3) = "叁"
zarr(4) = "肆"
zarr(5) = "伍"
zarr(6) = "陆"
zarr(7) = "柒"
zarr(8) = "捌"
zarr(9) = "玖"
Dim str1 As String, str2 As String, k As Integer, zero As Integer
str1 = Format(numstr, "0.00")
str2 = Left(str1, Len(str1) - 3)
str1 = Right(str1, 2)
k = Len(str2)
zero = 0
For i = 1 To k
temp = Mid(str2, i, 1)
If temp <> "0" Then
RMB = RMB & zarr(Val(temp)) & arr(k - i + 3)
zero = 0
Else
If zero = 0 Then RMB = RMB & zarr(0)
zero = 1
End If
Next i
k = Len(str1)
For i = 1 To k
temp = Mid(str1, i, 1)
If temp <> "0" Then
RMB = RMB & zarr(Val(temp)) & arr(i)
Else
End If
Next i
If Right(RMB, 1) = "零" Then RMB = Left(RMB, Len(RMB) - 1)
If Right(RMB, 1) = "元" Then RMB = RMB & "整"
If num < 0 Then RMB = "负" & RMB
DX = RMB
End Function

保存后，你就可以在Excel表格里直接使用=DX(A1)这个公式了，超级方便！

有了这些方法，以后再也不用为Excel表格里的小写数字转大写而烦恼了。把时间省下来，喝杯咖啡，岂不美哉？