由网友()分享简介：Excel中如何将数字转换成大写,数字变那些大写也会变
可以用以下方法：
1、设置单元格格式：选中单元格或区域，右击...

Excel中如何将数字转换成大写,数字变那些大写也会变

可以用以下方法：
1、设置单元格格式：选中单元格或区域，右击，设置单元格格式，在“数字”选项卡，在左侧列表中选择“特殊”，在右击列表中选择“中文大写数字”；
2、还可以用公式，假设数据在A列，B1公式：
=TEXT(A1,"[DBNum2][$-804]G/通用格式")
3、如果是钱币，假设数据在A列，B1用公式：
=TEXT(A1*100,"[dbnum2]0万0仟0佰0拾0元0角0分整")

Excel中数字如何自动转换成中文大写数字

Excel中数字自动转换成中文大写数字，可在单元格格式设置中设置为中文大写数字。

方法步骤如下：

1、打开需要操作的EXCEL表格，选中需要操作的单元格，并在区域内点击鼠标右键，选择“设置单元格格式”。

2、点击左侧的特殊，在右侧选择“中文大写数字”，然后点击确定按钮即可。

3、返回EXCEL表格，发现所有数字都已成功转换为中文大写数字。

excel如何将数字自动转换成大写中文

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,0,"零"),9,"玫"),8,"捌"),7,"柒"),6,"陆"),5,"伍"),4,"肆"),3,"叁"),2,"贰"),1,"壹")

EXCEL将数字转换成中文大写数字后如何显示角分元整

假设数字在A1
在B1输入公式
=IF(OR(A1="",A1=0),"",TEXT(INT(A1),"[dbnum2]G/通用格式圆;负[dbnum2]G/通用格式圆;;")&TEXT(--RIGHT(INT(A1*10)),"[dbnum2]#角;;;")&TEXT(--RIGHT(INT(A1*100)),"[dbnum2]#分;;整;"))
或者
=SUBSTITUTE(IF(-RMB(A1),IF(A1>0,,"负")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1),2),"[>9][dbnum2]0角0分;"&IF(A1^2<1,,0)&"[>][dbnum2]0分;整"),),"零分","整")
就会在B1显示成：壹佰贰拾伍元贰角陆分
怎么A1中不输入文字时，B2不会显示0，让B2空白着
菜单栏，工具－选项－视图，取消“零值”的勾

EXCEL如何将数字金额转换为中文大写美元

1、使用函数，如：=IF(TRIM(Y25)="","",IF(Y25=0,"",IF(Y25<0,"负",)&IF(INT(Y25),TEXT(INT(ABS(Y25)),"[dbnum2]")&"元",)&IF(INT(ABS(Y25)*10)-INT(ABS(Y25))*10,TEXT(INT(ABS(Y25)*10)-INT(ABS(Y25))*10,"[dbnum2]")&"角",IF(INT(ABS(Y25))=ABS(Y25),,IF(ABS(Y25)<0.1,,"零")))&IF(ROUND(ABS(Y25)*100-INT(ABS(Y25)*10)*10,),TEXT(ROUND(ABS(Y25)*100-INT(ABS(Y25)*10)*10,),"[dbnum2]")&"分","整")))
2、使用宏，该方法个有点麻烦，必须懂得vb语言才行。

Excel中如何把数字转换成中文大写金额？

选择要设置格式的数据区域，右击在快捷菜单中选择“设置单元格格式”，在弹出的对话框中选择“数字”选项卡，在列表中选择“特殊”，再在右边的列表中选择“中文大写数字”，确定。

excel如何将数字转换为大写人民币形式？函数！

用NUMBERSTRING函数。
如：将A2单元格的531转换成大写，则公式
=NUMBERSTRING(A2,2)：此时得出：伍佰叁拾壹
=NUMBERSTRING(A2,1)：此时得出：五百三十一
=NUMBERSTRING(A2,3)：此时得出：五三一

如要将数字读出：则用此公式
=IF(ISERROR(FIND(".",A2)),NUMBERSTRING(INT(A2),2)&"元整",IF(ISERROR(NUMBERSTRING(MID(A2,FIND(".",A2)+2,1),2)),NUMBERSTRING(INT(A2),2)&"元"&NUMBERSTRING(MID(A2,FIND(".",A2)+1,1),2)&"角整",NUMBERSTRING(INT(A2),2)&"元"&NUMBERSTRING(MID(A2,FIND(".",A2)+1,1),2)&"角"&NUMBERSTRING(MID(A2,FIND(".",A2)+2,1),2)&"分"))

如何在Excel2007中将小写数字转换为人民币大写？

可以直接将单元格格式改为特殊里面的中文大写，
另外就是公式
数字在A1
B1输入公式
=IF(ABS(A1)<0.005,"",IF(A1<0,"负",)&IF(INT(ABS(A1)),TEXT(INT(ABS(A1)),"[dbnum2]")&"元",)&IF(INT(ABS(A1)*10)-INT(ABS(A1))*10,TEXT(INT(ABS(A1)*10)-INT(ABS(A1))*10,"[dbnum2]")&"角",IF(INT(ABS(A1))=ABS(A1),,IF(ABS(A1)<0.1,,"零")))&IF(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),TEXT(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),"[dbnum2]")&"分","整"))

英文版Excel中如何把数字转换成中文大写金额？

用VBA自定义一个大写金额转换的函数，在公式中输入此函数名就可以了。
具体方法：按 Alt+F11 ，在VBA编辑器菜单中点插入→模块，将下面的函数复制到插入的模块当中，
'===================================================================
Function CChinese(StrEng As String) As String
'将阿拉伯数字转成中文字的程式例如：1560890 转成 "壹佰伍拾陆万零捌佰玖拾"。
'程式限制为不可输入超过16个数字
If Not IsNumeric(StrEng) Or StrEng Like "*.*" Or StrEng Like "*-*" Then
If Trim(StrEng) <> "" Then MsgBox "无效的数字"
CChinese = "": Exit Function
End If
Dim intLen As Integer, intCounter As Integer
Dim strCh As String, strTempCh As String
Dim strSeqCh1 As String, strSeqCh2 As String
Dim strEng2Ch As String
strEng2Ch = "零壹贰叁肆伍陆柒捌玖"
strSeqCh1 = " 拾佰仟拾佰仟拾佰仟拾佰仟"
strSeqCh2 = " 万亿兆"
StrEng = CStr(CDec(StrEng))
intLen = Len(StrEng)
For intCounter = 1 To intLen
strTempCh = Mid(strEng2Ch, Val(Mid(StrEng, intCounter, 1)) + 1, 1)
If strTempCh = "零" And intLen <> 1 Then
If Mid(StrEng, intCounter + 1, 1) = "0" Or (intLen - intCounter + 1) Mod 4 = 1 Then
strTempCh = ""
End If
Else
strTempCh = strTempCh & Trim(Mid(strSeqCh1, intLen - intCounter + 1, 1))
End If
If (intLen - intCounter + 1) Mod 4 = 1 Then
strTempCh = strTempCh & Mid(strSeqCh2, (intLen - intCounter + 1) \ 4 + 1, 1)
If intCounter > 3 Then
If Mid(StrEng, intCounter - 3, 4) = "0000" Then strTempCh = Left(strTempCh, Len(strTempCh) - 1)
End If
End If
strCh = strCh & Trim(strTempCh)
Next
CChinese = strCh
End Function
'===================================================================
'===================================================================
Function daxie(money As String) As String
'实现货币金额中文大写转换的程序
'程式限制为不可输入超过16个数字
Dim x As String, y As String
Const zimu = ".sbqwsbqysbqwsbq" '定义位置代码
Const letter = "0123456789sbqwy.zjf" '定义汉字缩写
Const upcase = "零壹贰叁肆伍陆柒捌玖拾佰仟万亿圆整角分" '定义大写汉字
If CDbl(money) >= 1E+16 Then daxie = "#VALUE!": Exit Function '只能转换一亿亿元以下数目的货币！
x = Format(money, "0.00") '格式化货币
y = ""
For i = 1 To Len(x) - 3
y = y & Mid(x, i, 1) & Mid(zimu, Len(x) - 2 - i, 1)
Next
If Right(x, 3) = ".00" Then
y = y & "z" '***元整
Else
y = y & Left(Right(x, 2), 1) & "j" & Right(x, 1) & "f" '*元*角*分
End If
y = Replace(y, "0q", "0") '避免零千(如：40200肆万零千零贰佰)
y = Replace(y, "0b", "0") '避免零百(如：41000肆万壹千零佰)
y = Replace(y, "0s", "0") '避免零十(如：204贰佰零拾零肆)
y = Replace(y, "0j", "0") '避免零角
y = Replace(y, "0f", "") '避免零分
Do While y <> Replace(y, "00", "0")
y = Replace(y, "00", "0") '避免双零(如：1004壹仟零零肆)
Loop
y = Replace(y, "0y", "y") '避免零亿(如：210亿贰佰壹十零亿)
y = Replace(y, "0w", "w") '避免零万(如：210万贰佰壹十零万)
y = IIf(x < 0.1, Right(y, Len(y) - 3), y) '避免零几分(如：0.01零壹分；0.04零肆分)
y = IIf(Len(x) = 5 And Left(y, 1) = "1", Right(y, Len(y) - 1), y) '避免壹十(如：14壹拾肆；10壹拾)
y = IIf(Len(x) = 4, Replace(y, "0.", ""), Replace(y, "0.", ".")) '避免零元(如：20.00贰拾零圆；0.12零圆壹角贰分)
For i = 1 To 19
y = Replace(y, Mid(letter, i, 1), Mid(upcase, i, 1)) '大写汉字
Next
daxie = y
End Function
'===================================================================
回到Excel工作表中，若要转化A1单元格的数字，则可在其他任意单元格中输入公式 =CChinese(A1)。要转换成大写金额，则可在其他任意单元格中输入公式 =daxie(A1)。

如何在excel中设置公式将数字转换为英文大写金额

使用数字转英文货币大写“自定义函数”，具体使用方法如下：

所需材料：Excel、数字转英文货币大写自定义函数（可通过网络复制粘贴）。

一、首先打开Excel表格文件，按Alt+F11打开VBA窗口，插入一个“模块”。

二、右键模块1，菜单内点击“导入文件”。

三、找到数字转大写英文货币的BAS格式文件，点击“打开”。

四、这时就可以把该函数导入VBA模块，另外如果是通过网格上粘贴的数字转英文大写金额函数，则真可以在下图白色区域内Ctrl+V粘贴进来即可，导入函数后，关闭VBA窗口。

五、这时在数字单元格右边单元格内输入=SpellNumber(A1)，按回车键即可得出大写英文金额，其它单元格下拉填充即可。

阅读全文