Excel中数字大小写转换的几种方法

Excel中数字大小写转换的几种方法

作为公司的出纳和会计，天天面对数字，有时候需要把数字转换成大写，甚至还要带上元角分，今天小编就教你如何数字大小写之间的转换。

选中需要转换成侮盯大写的数字单元格，鼠标右键点击选中区域，在弹出的菜单中选择【设置单元格格式】，调出设置单元格格式窗口（或者Ctrl+1键）

在数字页面下，分类选择【特殊】，类陕码型列表中选择陵炼贪【中文大写数字】，最后点击【确定】返回工作区，选中的数字就转换成大写了。

可以利用NUMBERSTRING（）函数完成

语法：NUMBERSTRING(VALUE,TYPE)

参数一value：要转化的数字

参数二type：返回结果的类型，有三种：1，2，3

在B2单元格输入公式：

="人民币"&IF(A2=INT(A2),NUMBERSTRING(INT(A2),2)&"元整",IF(A2*10=INT(A2*10),NUMBERSTRING(INT(A2),2)&"元"&NUMBERSTRING(INT(A2*10)-INT(A2)*10,2)&"角整",IF(ROUNDDOWN(A2*10-INT(A2)*10,0)=0,NUMBERSTRING(INT(A2),2)&"元零"&NUMBERSTRING(ROUND(A2*100-INT(A2*10)*10,0),2)&"分",NUMBERSTRING(INT(A2),2)&"元"&NUMBERSTRING(INT(A2*10)-INT(A2)*10,2)&"角"&NUMBERSTRING(ROUND(A2*100-INT(A2*10)*10,0),2)&"分")))

然后再填充公式，整列数字都转换成带元角分的大写金额。

公式比较长，用到的函数较多，不明白的可以直接套用，把公式中的A2单元格修改成需要转换数字的单元格即可。

方法3中的NUMBERSTRING()在较低的Excel版本中没有这个函数，可以用下面的公式：

="人民币"&TEXT(INT(A2),"[DBNUM2]")&"元"&TEXT(MID(A2,LEN(INT(A2))+2,1),"[DBNUM2]D角")&TEXT(MID(A2,LEN(INT(A2))+3,1),"[DBNUM2]D分")

如果需要把下图中的大写转换成小写，可以用VBA代码解决。

按Alt+F11键调出VBA窗体，点击【插入】-【模块】，在代码窗口输入下面代码：

Function Atoa(At As String)

Dim j, m

For i = 1 To Len(At)

Select Case Mid(At, i, 1)

Case "一"

j = 1

Case "二"

j = 2

Case "三"

j = 3

Case "四"

j = 4

Case "五"

j = 5

Case "六"

j = 6

Case "七"

j = 7

Case "八"

j = 8

Case "九"

j = 9

Case "○"

j = 0

End Select

m = m & j

Next

Atoa = m

End Function

在B2单元格输入公式：=atoa(A2)，即可得出小写数字。