Excel中金额大小写转换
如何在EXCEL中实现数字金额转换成中文大写金额
如何在EXCEL中实现数字⾦额转换成中⽂⼤写⾦额如何在EXCEL中实现数字⾦额转换成中⽂⼤写⾦额？⼯作中经常会遇到这样的转换，特别是做财务⼯作的朋友，如果⼿⼯录⼊，很费时间⼜常常担⼼出错。
笔者参考了⼀些⽂章，根据实践，觉得下⾯的⽅法很实⽤：⽅法名：“⽤Excel函数将货币数值由阿拉伯数字⾃动⽣成为中⽂⼤写格式”假设输⼊阿拉伯数字格式⾦额的是A7单元格，要⾃动⽣成中⽂⼤写⾦额的是A8单元格，我们按照中⽂⼤写格式的特殊的要求，利⽤Excel函数对A8进⾏公式设置。
在A8单元格输⼊：=IF((A7-INT(A7))=0,TEXT(A7,"[DBNUM2]")&"元整",IF(INT(A7*10)-A7*10=0,TEXT(INT(A7)," [DBNUM2]")&"元"&TEXT((INT(A7*10)-INT(A7)*10),"[DBNUM2]")&"⾓整",TEXT(INT(A7),"[DBNUM2]")&"元"&IF(INT(A7*10)-INT(A7)*10=0,"零",TEXT(INT(A7*10)-INT(A7)*10,"[DBNUM2]")&"⾓")&TEXT(RIGHT(A7,1),"[DBNUM2]")&"分"))。
公式中共运⽤4种函数，⽂本连接符号“&”及相应的汉字。
IF函数：是⼀个条件判断函数，此函数的基本格式是：IF（a，b，c）其中“a”是⼀个条件，“b”和“c”是两种判断结果，可以表述为：如果条件a成⽴，那么结果是b，否则结果就是c。
以上公式是有四层嵌套条件判断函数，根据货币⾦额的不同情况⽣成不同格式的中⽂⼤写。
EXCEL数字小写金额转换汉字大写金额公式的简单设置
公式如下：
=IF(ROUND(A1,2)=0,&uot;&uot;,IF(A1<0,&uot;
&uot;,&uot;&uot;)&IF(ABS(A1)>=1,TEXT(INT(ROUND(ABS(A1),2)),&uot;[dbnum2]&uot;)&&uot;
公式可以对正数、零（本公式转换为空白，与支票一致，如需转换为“零元整”，只需在公式第一个双引号内加入即可）、负数（会计数据有时也涉及到）均可进行转换。
最近，在网上看到高手设计的更简洁的转换公式，缺点是只能把“0”转换为空白，不能转换为“零元整”，公式如下：
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1),IF(A1>0,,&uot;负&uot;)&TEXT(INT(ABS(A1)+0.5%),&uot;[dbnum2]G/通用格式元;;&uot;)&TEXT(RIGHT(RMB(A1,2),2),&uot;[dbnum2]0角0分;;整&uot;),),&uot;零角&uot;,IF(A1^2<1,,&uot;零&uot;)),&
A1)*100,&uot;###&uot;),1))=0,&uot;整&uot;,IF(ABS(A1)>=1,&uot;负元零
分
整
角&uot;,&uot;&uot;)&IF(VALUE(MID(RIGHT(TEXT((ABS(A1)*100+100),&uot;###&uot;),2),1,1))=0,IF(VALUE(RIGHT(TEXT(ABS(&uot;,&uot;&uot;)&TEXT(VALUE(RIGHT(TEXT(ABS(A1)*100,&uot;###&uot;),1)),&uot;[dbnum2]&uot;)&&uot;00),&uot;###&uot;),2),1,1)),&uot;[dbnum2]&uot;)&&uot;角&uot;),IF(VALUE(RIGHT(TEXT(ABS(A1)*100,&uot;###&uot;),1))=0,TEXT(VALUE(MID(RIGHT(TEXT((ABS(A1)*100+1&uot;,TEXT(VALUE(MID(RIGHT(TEXT((ABS(A1)*100+100),&uot;###&uot;),2),1,1)),&uot;[dbnum2]&uot;)&&uot;
excel表格金额大小写转换
竭诚为您提供优质文档/双击可除excel表格金额大小写转换篇一：excel表中小写金额直接转换成大写金额的公式excel表中小写金额直接转换成大写金额的公式：一、=iF(oR(a1 三、用公式就可以，我不懂做会计的如何用大写表示如128.40这样的角不为0但分为0的值，是“壹佰贰拾捌元肆角整”还是“壹佰贰拾捌元肆角”？如果是“壹佰贰拾捌元肆角”，请用这个公式：=text(int(b2),"[dbnum2]"),text((int(c10*100)-int(c1 0*10)*10),"[dbnum2]")nascurrencyconstcnumasstring="零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"constcchaasstring="零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"dimsnumasstringdimiaslongif(n0)and(abs(n)snum=trim(str(int(abs(n)*100)))Fori=1tolen(snum)逐位转换baituRmbdx=baituRmbdx+mid(cnum,(mid(snum,i,1))+1,1) +mid(cnum,26-len(snum)+i,1)nextFori=0to11去掉多余的零baituRmbdx=Replace(baituRmbdx,mid(ccha,i*2+1,2),mid (ccha,i+26,1))nextifn elsebaituRmbdx=iif(n=0,"零元","溢出")endifendFunction11Functionuppernum(n)nassingle数字大写函数ifn 正负判断="负"endifn=n+0.0001ifint(n*1000)-int(n*100)*10>4thenn=(int(n*100)+1)/100+0.001elsen=int(n*100)/100+0.001endifselectcasencaseis>9999999999999.99uppernum="数据不符"msgbox"金额不能大于9999999999999.99！",vbokonly,"出错提示"caseelseconstcnum="零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"constccha="零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"uppernum=""snum=""s=trim(str(n))Fori=1tolen(s)-1ifmid(s,i,1)"."thensnum=snum+mid(s,i,1)Fori=1tolen(snum)逐位转换uppernum=uppernum+mid(cnum,(mid(snum,i,1))+1,1)+mid (cnum,26-len(snum)+i,1)nextiFori=0to11去掉多余的零uppernum=Replace(uppernum,mid(ccha,i*2+1,2),mid(cch a,i+26,1))nextiendselectif正负判断="负"thenuppernum="负"&uppernumendFunction12Functionjezh(xasRange)ifx>=1thenifint(x)=xorRound(x,2)=int(x)thenjezh=application.worksheetFunction.text(int(x),"[db num2]")&"元"elseifint(x*10)=x*10orint(x*10)=Round(x,2)*10then。
在EXCEL中将数字转换为人民币大写的三种方式
鉴于本身提供将数字转换为大写表示地功能根本不能正常应用在实际投标或财务应用之中，所以要自己建设，暂时找到了三种实现途径，经过测试均功能正常，还有一种是在书上找到地，懒得进来了，反正也差不多了.方法，通过在表格框（例如在“”单元）中直接输入以下公式：(<,"金额为负无效",(((""),"(人民币)零元",(<,"(人民币)",((),"[](人民币)通用格式")"元"))))(((*)()*),((*)(*)*,"","零"),(((*)()*,"[]")"角"))(((*)(*)*),"整",(((*)(*)*),"[]")"分") 个人收集整理勿做商业用途然后在“”中输入数字，就可看到效果.方法，通过（宏）输入转换公式: 点击菜单“工具”>“宏”>“编辑器”,在编辑器窗口中，点击菜单“插入”>“模块”，在出现地窗口中输入以下内容：个人收集整理勿做商业用途( ) ' 人民币中文大写函数"分角元拾佰仟万拾佰仟亿拾佰仟万""壹贰叁肆伍陆柒捌玖""整零元零零零万零零零亿零零零万"< "（负）"((), "") *> : "数字超出转换范围!!":: "零元零分":(())()' 数字转换过程((, , ))<> ' 非零数字转换(, , ) (, , )' 数字零地转换(, ) <> "零"(, , )' 特殊数位转换(, () ) (, , ),(, () ) (, , ) "零"(, () , ) <> "亿"(, () ) (, , ) "零""(人民币)" ()个人收集整理勿做商业用途然后切换回,在“”单元中输入数字，在“”单元中输入：“()”，就可看到效果.个人收集整理勿做商业用途方法，同样是通过公式，方法同上，公式如下：( ) ',"" '定义位置代码"" '定义汉字缩写"零壹贰叁肆伍陆柒捌玖拾佰仟萬億圆整角分" '定义大写汉字(, ".") > (, (, ".") )个人收集整理勿做商业用途() > "数目太大，无法换算！请输入一亿亿以下地数字", , "错误提示": '只能转换一亿亿元以下数目地货币！个人收集整理勿做商业用途(, "") '格式化货币""()(, , ) (, () , )(, ) """" '***元整((, ), ) "" (, ) "" '*元*角*分(, "", "") '避免零千(如：肆萬零千零贰佰)(, "", "") '避免零百(如：肆萬壹千零佰)(, "", "") '避免零十(如：贰佰零拾零肆)个人收集整理勿做商业用途<> (, "", "")(, "", "") '避免双零(如：壹仟零零肆)(, "", "") '避免零億(如：億贰佰壹十零億)(, "", "") '避免零萬(如：萬贰佰壹十零萬)(() (, ) "", (, () ), ) '避免壹十(如：壹拾肆；壹拾)(() , (, ".", ""), (, ".", ".")) '避免零元(如：贰拾零圆；零圆壹角贰分)个人收集整理勿做商业用途(, (, , ), (, , )) '大写汉字"(人民币)"个人收集整理勿做商业用途切换回,在“”单元中输入数字，在“”单元中输入：“()”，就可看到效果.个人收集整理勿做商业用途实现地效果比较如下：(人民币)壹仟贰佰叁拾肆元伍角整直接公式(人民币)壹仟贰佰叁拾肆元伍角整()(人民币)壹仟贰佰叁拾肆圆伍角零分()。
Excel中金额大小写转换(四舍五入都OK)
Excel中金额大小写转换编制工程造价很有用编制EXCEL财务表也很有用Excel中金额大小写转换函数[=ntoc(单元格)]一、使用加载宏方法：对于有四舍五入都没问题啊“工具栏”→“宏”→“Visual Basic编辑器”，在“Visual Basic编辑器”中顶部选“插入”→“模块”，在“模块”对话框中选“通用”，并在编辑区域内粘贴以下内容：Function NtoC(n) 'n as singleConst cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"NtoC = ""n = Round(n, 2)sNum = Trim(Str(Int(n * 100)))For i = 1 To Len(sNum) '逐位转换NtoC = NtoC + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)NextFor i = 0 To 11 '去掉多余的零NtoC = Replace(NtoC, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1))NextEnd Function然后单击“保存”，关闭“Visual Basic编辑器”，回到“工作表１”，输入函数“=NtoC(单元格)”即可。
例如在单元格A1输入：A1=222, 在单元格A2输入：A2=NTOC(A1) 即可，这样A1单元格输入的数变化，A2单元格的大写自动变化。
A2单元格最好进行单元锁定。
Excel中金额大小写转换
Excel中金额大小写转换一、Excel中金额大小写转换公式公式1：="人民币"&IF(ROUND(G8,2)=0,"",IF(ROUND(ABS(G8),2)>=1,TEXT(INT(ROUND(ABS(G8),2)),"[DB Num2]")&"元","")&IF(RIGHT(TEXT(G8,".00"),2)*1=0,"整",IF(RIGHT(TEXT(G8,".00"),4)*1>=1,IF(RIGHT(TEXT(G8,".00"),2)*1>9,"","零"),IF(ROUND(ABS(G8),2)>=1,"零",""))&IF(RIGHT(TEXT(G8,".00"),2)*1>9,TEXT(LEFT(RIGHT(TEXT(G8,".00"),2)),"[DBNum 2]")&"角整","")&IF(RIGHT(TEXT(G8,".00"))*1>0,TEXT(RIGHT(TEXT(G8,".00")),"[DBNum2]")&"分整","")))公式2：“=IF(F4<1,IF(F4<0.1,TEXT(INT(F4*100),"[DBNum2]G/通用格式")&"分",IF((INT(F4*100)-INT(F4*10)*10=0),TEXT(INT(F4*10),"[DBNum2]G/通用格式")&"角整",TEXT(INT(F4*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(F4*100)-INT(F4*10)*10,"[DBNum2]G/通用格式")&"分")),TEXT(INT(F4),"[DBNum2]G/通用格式"&"元")&IF((INT(F4*10)-INT(F4)*10)=0,IF((INT(F4*100)-INT(F4*10)*10)=0,"","零"),IF((INT(F4*0.1)-INT(F4)*0.1)=0,"零","")&TEXT(INT(F4*10)-INT(F4)*10,"[DBNum2]G/通用格式")&"角")&IF((INT(F4*100)-INT(F4*10)*10)=0,"整",TEXT(INT(F4*100)-INT(F4*10)*10,"[DBNum2]G/通用格式")&"分"))”公式3：“=IF(B10<1,IF(B10<0.1,TEXT(INT(B10*100),"[DBNum2]G/通用格式")&"分",IF((INT(B10*100)-INT(B10*10)*10=0),TEXT(INT(B10*10),"[DBNum2]G/通用格式")&"角整",TEXT(INT(B10*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(B10*100)-INT(B10*10)*10,"[DBNum2]G/通用格式")&"分")),TEXT(INT(B10),"[DBNum2]G/通用格式"&"元")&IF((INT(B10*10)-INT(B10)*10)=0,IF((INT(B10*100)-INT(B10*10)*10)=0,"","零"),IF((INT(B10*0.1)-INT(B10)*0.1)=0,"零","")&TEXT(INT(B10*10)-INT(B10)*10,"[DBNum2]G/通用格式")&"角")&IF((INT(B10*100)-INT(B10*10)*10)=0,"整",TEXT(INT(B10*100)-INT(B10*10)*10,"[DBNum2]G/通用格式")&"分"))”二、Excel中金额大小写转换函数[=ntoc(单元格)]使用加载宏方法：“工具栏”→“宏”→“Visual Basic编辑器”，在“Visual Basic编辑器”中顶部选“插入”→“模块”，在“模块”对话框中选“通用”，并在编辑区域内粘贴以下内容：Function NtoC(n) 'n as singleConst cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"NtoC = ""sNum = Trim(Str(Int(n * 100)))For i = 1 To Len(sNum) '逐位转换NtoC = NtoC + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)NextFor i = 0 To 11 '去掉多余的零NtoC = Replace(NtoC, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1))NextEnd Function然后单击“保存”，关闭“Visual Basic编辑器”，回到“工作表１”，输入函数“=NtoC(单元格)”即可。
excel中如何将数字变成大写金额的函数
excel中如何将数字变成大写金额的函数如何在Excel中将数字转化为大写金额在Excel中，我们经常需要将数字转化为大写金额，以便更直观地展示数值。
虽然Excel本身并没有提供直接将数字转化为大写金额的函数，但我们可以通过一些方法来实现这个功能。
本文将介绍两种常用的方法，分别是使用Excel的内置函数和使用自定义宏。
一、使用Excel的内置函数Excel提供了一个内置的函数——“人民币大写”函数，可以将数字转化为大写金额。
下面是使用该函数的步骤：步骤1：打开Excel并选择一个单元格，例如A1，用于输入要转化的数字。
步骤2：在另一个单元格中，例如B1，输入以下公式：=人民币大写(A1)步骤3：按下回车键，即可将A1单元格中的数字转化为大写金额。
需要注意的是，“人民币大写”函数只能将数字转化为中文大写金额，而不能转化为其他语言的大写金额。
如果需要转化为其他语言的大写金额，可以考虑使用自定义宏的方法。
二、使用自定义宏自定义宏是一种基于VBA（Visual Basic for Applications）语言的编程方式，可以在Excel中实现各种自定义功能。
下面是使用自定义宏将数字转化为大写金额的步骤：步骤1：按下Alt+F11键，打开VBA编辑器。
步骤2：在VBA编辑器中，选择“插入”菜单，然后选择“模块”。
步骤3：在新建的模块中，输入以下VBA代码：```Function ConvertToChineseNumber(ByVal MyNumber)Dim MyCurrency, DecimalPlace, CountReDim Place(9) As StringPlace(2) = " Thousand "Place(3) = " Million "Place(4) = " Billion "Place(5) = " Trillion "' Convert MyNumber to String, trimming extra spaces.MyNumber = Trim(CStr(MyNumber))' Check for valid input.If MyNumber = "" ThenConvertToChineseNumber = ""Exit FunctionEnd If' Convert MyNumber to Currency figures.ReDim DecimalPlace(9) As StringDecimalPlace(2) = " Hundred "DecimalPlace(3) = " Thousand "DecimalPlace(4) = " Million "DecimalPlace(5) = " Billion "' Convert MyNumber to Currency figures.MyNumber = Trim(CStr(MyNumber))' Remove leading zeros' DecimalPlace = GetVal(Trim(Mid(MyNumber, DecimalPlace + 1, 2)))Count = 1Do While MyNumber <> ""ReDim Preserve MyCurr(Count) As StringCount = Count + 1MyCurr(Count - 1) = GetTens(Trim(Mid(MyNumber, 1, 2)), MyNumber)If Len(MyNumber) > 2 ThenMyNumber = Trim(Mid(MyNumber, 3))ElseMyNumber = ""End IfLoopCount = Count - 1For DecimalPlace = Count To 1 Step -1MyCurrency = MyCurrency & " " & MyCurr(DecimalPlace) If DecimalPlace = 1 Then' -- If place is ten thousand and greater than 0 set nother name to RupeesIf Len(MyNumber) = 1 Then MyCurr(1) = " and " & MyCurr(1)MyCurrency = MyCurrency & Place(DecimalPlace)End IfNext DecimalPlaceConvertToChineseNumber = MyCurrencyEnd FunctionFunction GetTens(TensText, ByVal Amount)Dim Result As StringResult = "" ' Null out the temporary function value.If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...Select Case Val(TensText)Case 10: Result = "Ten"Case 11: Result = "Eleven"Case 12: Result = "Twelve"Case 13: Result = "Thirteen"Case 14: Result = "Fourteen"Case 15: Result = "Fifteen"Case 16: Result = "Sixteen"Case 17: Result = "Seventeen"Case 18: Result = "Eighteen"Case 19: Result = "Nineteen"Case ElseEnd SelectElse ' If value between 20-99...Select Case Val(Left(TensText, 1))Case 2: Result = "Twenty "Case 3: Result = "Thirty "Case 4: Result = "Forty "Case 5: Result = "Fifty "Case 6: Result = "Sixty "Case 7: Result = "Seventy "Case 8: Result = "Eighty "Case 9: Result = "Ninety "Case ElseEnd SelectResult = Result & GetDigit _(Right(TensText, 1)) ' Retrieve ones place. End IfGetTens = ResultEnd FunctionFunction GetDigit(Digit)Select Case Val(Digit)Case 1: GetDigit = "One"Case 2: GetDigit = "Two"Case 3: GetDigit = "Three"Case 4: GetDigit = "Four"Case 5: GetDigit = "Five"Case 6: GetDigit = "Six"Case 7: GetDigit = "Seven"Case 8: GetDigit = "Eight"Case 9: GetDigit = "Nine"Case Else: GetDigit = ""End SelectEnd Function```步骤4：按下Ctrl+S保存宏，并关闭VBA编辑器。
EXCEL数字自动转换大写金额
Excel数字自动转换大写金额
用Excel制作财务报表的时候，经常需要将数字表示为大写的中文数字金额，可以用设置“单元格格式”的方法来实现自动转换大写金额。
用Excel制作财务报表的时候，经常需要将数字表示为大写的中文数字金额，可以用设置“单元格格式”的方法来实现自动转换大写金额。 首先鼠标右键单击需要用大写金额显示的单元格，在弹出的快捷菜单中选择“设置单元格格式”，如下图。 在弹出的对话框中选择“数字”选项卡，并且在“分类”列表中选择“特殊”，在类型框中选择“中文大写数字”，然后单击“确定”选中此类型即可。 经过设置后，E大写这么麻烦了！
具体操作如下：
在单元格中输入想要转换的数字。如“12345”——选中该单元格右键选择“设置单元格格式”——选择“数字”——“特殊”，如图
选择“中文大写与数字”——“确定”
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Excel中金额大小写转换
一、Excel中金额大小写转换公式
公式1：
“=IF(ROUND(E19,2)=0,"",IF(ROUND(ABS(E19),2)>=1,TEXT(INT(ROUND(ABS(E19),2)),"[ DBNum2]")&"元","")&IF(RIGHT(TEXT(E19,".00"),2)*1=0,"整
",IF(RIGHT(TEXT(E19,".00"),4)*1>=1,IF(RIGHT(TEXT(E19,".00"),2)*1>9,"","零
"),IF(ROUND(ABS(E19),2)>=1,"零
",""))&IF(RIGHT(TEXT(E19,".00"),2)*1>9,TEXT(LEFT(RIGHT(TEXT(E19,".00"),2)),"[DBNu m2]")&"角
","")&IF(RIGHT(TEXT(E19,".00"))*1>0,TEXT(RIGHT(TEXT(E19,".00")),"[DBNum2]")&"分","整")))”
公式2：“=IF(F4<1,IF(F4<0.1,TEXT(INT(F4*100),"[DBNum2]G/通用格式")&"分
",IF((INT(F4*100)-INT(F4*10)*10=0),TEXT(INT(F4*10),"[DBNum2]G/通用格式")&"角整",TEXT(INT(F4*10),"[DBNum2]G/通用格式")&"角
"&TEXT(INT(F4*100)-INT(F4*10)*10,"[DBNum2]G/通用格式")&"分
")),TEXT(INT(F4),"[DBNum2]G/通用格式"&"元
")&IF((INT(F4*10)-INT(F4)*10)=0,IF((INT(F4*100)-INT(F4*10)*10)=0,"","零
"),IF((INT(F4*0.1)-INT(F4)*0.1)=0,"零","")&TEXT(INT(F4*10)-INT(F4)*10,"[DBNum2]G/通用格式")&"角")&IF((INT(F4*100)-INT(F4*10)*10)=0,"整
",TEXT(INT(F4*100)-INT(F4*10)*10,"[DBNum2]G/通用格式")&"分"))”
公式3：“=IF(B10<1,IF(B10<0.1,TEXT(INT(B10*100),"[DBNum2]G/通用格式")&"分
",IF((INT(B10*100)-INT(B10*10)*10=0),TEXT(INT(B10*10),"[DBNum2]G/通用格式")&"角整",TEXT(INT(B10*10),"[DBNum2]G/通用格式")&"角
"&TEXT(INT(B10*100)-INT(B10*10)*10,"[DBNum2]G/通用格式")&"分
")),TEXT(INT(B10),"[DBNum2]G/通用格式"&"元
")&IF((INT(B10*10)-INT(B10)*10)=0,IF((INT(B10*100)-INT(B10*10)*10)=0,"","零
"),IF((INT(B10*0.1)-INT(B10)*0.1)=0,"零
","")&TEXT(INT(B10*10)-INT(B10)*10,"[DBNum2]G/通用格式")&"角
")&IF((INT(B10*100)-INT(B10*10)*10)=0,"整
",TEXT(INT(B10*100)-INT(B10*10)*10,"[DBNum2]G/通用格式")&"分"))”
二、Excel中金额大小写转换函数[=ntoc(单元格)]
使用加载宏方法：
“工具栏”→“宏”→“V isual Basic编辑器”，在“Visual Basic编辑器”中顶部选“插入”→“模块”，在“模块”对话框中选“通用”，并在编辑区域内粘贴以下内容：
Function NtoC(n) 'n as single
Const cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"
Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"
NtoC = ""
sNum = Trim(Str(Int(n * 100)))
For i = 1 To Len(sNum) '逐位转换
NtoC = NtoC + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)
Next
For i = 0 To 11 '去掉多余的零
NtoC = Replace(NtoC, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1))
Next
End Function
然后单击“保存”，关闭“Visual Basic编辑器”，回到“工作表１”，输入函数“=NtoC(单元格)”即可。