Excel数字自动转换大写金额

怎样在EXCEL中数字转人民币大写1.第一种方法：通过函数嵌套实现数字转人民币大写形式的公式是：=IF(B1<0,"金额为负无效",(IF(OR(B1=0,B1=""),"(人民币)零元",IF(B1<1,"(人民币)",TEXT(INT(B1),"[dbnum2](人民币)G/通用格式")&"元"))))&IF((INT(B1*10)-INT(B1)*10)=0,IF(INT(B1*100)-INT(B1*10)*10=0,"","零"),(TEXT(INT(B1*10)-INT(B1)*10,"[dbnum2]")&"角"))&IF((INT(B1*100)-INT(B1*10)*10)=0,"整",TEXT((INT(B1*100)-INT(B1*10)*10),"[dbnum2]")&"分")数字转人民币大写形式的公式是：="大写金额："&IF(TRIM(B1)="","",IF(B1=0,"","人民币"&IF(B1<0,"负",)&IF(INT(B1),TEXT(INT(ABS(B1)),"[dbnum2]")&"元",)&IF(INT(ABS(B1)*10)-INT(ABS(B1))*10,TEXT(INT(ABS(B1)*10)-INT(ABS(B 1))*10,"[dbnum2]")&"角",IF(INT(ABS(B1))=ABS(B1),,IF(ABS(B1)<0.1,,"零")))&IF(ROUND(ABS(B1)*100-INT(ABS(B1)*10)*10,),TEXT(ROUND(ABS(B1)*100 -INT(ABS(B1)*10)*10,),"[dbnum2]")&"分","整")))12508.34 大写金额：壹万贰仟伍佰零捌元叁角肆分数字转人民币大写形式的公式是：="大写金额："&IF(TRIM(B1)="","",IF(B1=0,"",""&IF(B1<0,"负",)&IF(INT(B1),TEXT(INT(ABS(B1)),"[dbnum2]")&"元",)&IF(INT(ABS(B1)*10)-INT(ABS(B1))*10,TEXT(INT(ABS(B1)*10)-INT(ABS(B 1))*10,"[dbnum2]")&"角",IF(INT(ABS(B1))=ABS(B1),,IF(ABS(B1)<0.1,,"零")))&IF(ROUND(ABS(B1)*100-INT(ABS(B1)*10)*10,),TEXT(ROUND(ABS(B1)*100 -INT(ABS(B1)*10)*10,),"[dbnum2]")&"分","整")))这类转换的格式没有“人民币”字样1.第二种方法：通过宏VBA自定义函数实现第一步：按下ALT+F11组合键，或者是单击工具——宏——Visual Basic 编辑器，进入Visual Basic编程环境，单击“插入” 菜单——模块，复制下面代码，保存，退出关闭。

把单元格中数字快速转化为中文大写的方法将单元格中数字快速转化为中文大写的方法介绍在Excel中，有时我们需要将数字转化为中文大写，例如将12345转化为一万二千三百四十五。

本文将介绍几种快速将单元格中数字转化为中文大写的方法。

方法一：使用Excel自带函数Excel自带了一个函数=TEXT(value, "[$-0804][DBNum2]G/通用格式")，可以将数字转化为中文大写形式。

使用步骤： 1. 在一个空白单元格中输入=TEXT(A1, "[$-0804][DBNum2]G/通用格式")，其中A1为要转化的数字所在的单元格。

2. 按下Enter键即可看到转化后的中文大写数字。

方法二：使用VBA宏如果需要频繁使用该功能，可以使用VBA宏将其封装为一个函数，以便更加方便地调用。

使用步骤： 1. 按下ALT + F11打开VBA编辑器。

2. 在VBA编辑器中，选择要添加宏的工作簿。

3. 在模块中，插入以下VBA代码：Function ChineseNumber(ByVal Value As Variant) As S tringDim MyNumber As CurrencyDim DecimalPlace As IntegerDim Count As IntegerDim DecimalSeparator As StringDim Temp As StringDim DecimalValue As StringDim DecimalWords As StringDim ReturnValue As StringDecimalSeparator = "点"ReDim Place(9) As StringPlace(2) = "十"Place(3) = "百"Place(4) = "千"Place(5) = "万"Place(6) = "十"Place(7) = "百"Place(8) = "千"Place(9) = "亿"' Convert MyNumber to string, separate integral and decimalMyNumber = Trim(CStr(Value))DecimalPlace = InStr(MyNumber, ".")If DecimalPlace > 0 ThenDecimalValue = GetTens(Left(Mid(MyNumber, Decima lPlace + 1) & "00", 2))MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End IfCount = 1Do While MyNumber <> ""Temp = GetHundreds(Right(MyNumber, 3))If Temp <> "" Then ReturnValue = Temp & Place(Co unt) & ReturnValueIf Len(MyNumber) > 3 ThenMyNumber = Left(MyNumber, Len(MyNumber) - 3) ElseMyNumber = ""End IfCount = Count + 1LoopSelect Case ReturnValueCase ""ReturnValue = "零"Case "一十"ReturnValue = "十"End SelectChineseNumber = ReturnValue & DecimalSeparator & Dec imalValueEnd FunctionFunction GetHundreds(ByVal MyNumber)Dim Result As StringIf Val(MyNumber) = 0 Then Exit FunctionMyNumber = Right("000" & MyNumber, 3)' Convert the hundreds place.If Mid(MyNumber, 1, 1) <> "0" ThenResult = GetDigit(Mid(MyNumber, 1, 1)) & "百"End If' Convert the tens and ones place.If Mid(MyNumber, 2, 1) <> "0" ThenResult = Result & GetTens(Mid(MyNumber, 2))ElseResult = Result & GetDigit(Mid(MyNumber, 3))End IfGetHundreds = ResultEnd FunctionFunction GetTens(TensText)Dim Result As StringResult = "" ' Null out the temporary funct ion value.If Val(Left(TensText, 1)) = 1 Then ' If value betw een 10-19...Select Case Val(TensText)Case 10: Result = "十"Case 11: Result = "十一"Case 12: Result = "十二"Case 13: Result = "十三"Case 14: Result = "十四"Case 15: Result = "十五"Case 16: Result = "十六"Case 17: Result = "十七"Case 18: Result = "十八"Case 19: Result = "十九"Case ElseEnd SelectElse ' If value betw een 20-99...Select Case Val(Left(TensText, 1))Case 2: Result = "二十"Case 3: Result = "三十"Case 4: Result = "四十"Case 5: Result = "五十"Case 6: Result = "六十"Case 7: Result = "七十"Case 8: Result = "八十"Case 9: Result = "九十"Case ElseEnd SelectResult = Result & GetDigit _(Right(TensText, 1)) ' Retrieve ones place. End IfGetTens = ResultEnd FunctionFunction GetDigit(Digit)Select Case Val(Digit)Case 1: GetDigit = "一"Case 2: GetDigit = "二"Case 3: GetDigit = "三"Case 4: GetDigit = "四"Case 5: GetDigit = "五"Case 6: GetDigit = "六"Case 7: GetDigit = "七"Case 8: GetDigit = "八"Case 9: GetDigit = "九"Case Else: GetDigit = ""End SelectEnd Function4.按下CTRL + S保存宏。

转大写金额数字大写对照表
Excel中小写金额自动转换成大写1、我们打开需要转换成大写金额的数据表；
2、用鼠标选中大写金额所在单元格列，再鼠标点击右键；
3、弹出下拉选项菜单后，选择“设置单元格格式”；
4、这时就会弹出一个新的“单元格格式”对话框；
5、在对话框的分类列表中，我们选择“特殊”选项；
6、然后在类型列表中，选择“人民币大写”，再点击“确认”按钮；
7、接下来，我们回到数据表格中，在大写金额B3单元格中，输入条件函数公式=IF(A3,A3,””)，按Enter回车键，就设置好了自动转化大写金额的函数公式了；
8、最后，鼠标放到B3单元格右下角，变成黑色十字架后，鼠标双击就将其他需要设置自动转换大写金额的公式设置好了；
9、我们在小写金额单元格中输入金额时，可以看到大写金额单元格中自动的就生成了大写金额了；。

excel 金额大写转换公式摘要：一、介绍Excel 金额大写转换公式二、分析金额大写转换公式的原理三、讲解如何使用Excel 金额大写转换公式四、总结Excel 金额大写转换公式的优点与局限性五、提供使用Excel 金额大写转换公式时的注意事项正文：在Excel 中，我们常常需要将数字金额转换为大写金额。

为了方便用户实现这一功能，Excel 提供了一个金额大写转换公式。

本文将详细介绍这个公式，并分析其原理及使用方法。

首先，我们来了解一下Excel 金额大写转换公式的原理。

这个公式基于汉字数字与阿拉伯数字的对应关系，通过嵌套IF 函数，实现将阿拉伯数字转换为大写金额的功能。

接下来，我们来讲解如何使用Excel 金额大写转换公式。

假设A1 单元格中存储的数字金额为1234.56，我们可以在B1 单元格中输入以下公式：```=IF(A1>=10000, "壹万零" & TRANSPOSE(TEXT(A1-10000, ";负数;零;壹;贰;叁;肆;伍;陆;柒;捌;玖;拾")), IF(A1>=1000, "壹仟零" & TRANSPOSE(TEXT(A1-1000, ";负数;零;壹;贰;叁;肆;伍;陆;柒;捌;玖;拾")),IF(A1>=100, "壹佰零" & TRANSPOSE(TEXT(A1-100, ";负数;零;壹;贰;叁;肆;伍;陆;柒;捌;玖;拾")), IF(A1>=10, "十元" & TRANSPOSE(TEXT(A1-10, ";负数;零;壹;贰;叁;肆;伍;陆;柒;捌;玖;拾")), TEXT(A1, ";负数;零;壹;贰;叁;肆;伍;陆;柒;捌;玖;拾")))```以上公式可以根据需要进行调整，以适应不同的金额格式需求。

手把手教你转换出中文大写金额大家在使用Excel的时候,是否会遇到要把一个或一些阿拉伯数字转换成中文大写金额的计算要求呢?如果只是偶尔需要对少数几个数字进行转换,干脆手工操作啦,但如果要进行转换的数字较多或经常要转换时,该怎么办呢?一向无往不胜的Excel能为你做些什么呢?其实,这个不难,最少有三种方法可以实现。

<br>一、设置单元格格式:<br>用这个办法能直接将阿拉伯数字转换成中文大写金额,而且操作简单。

右击需要转换的单元格,在弹出的快捷菜单中选择“单元格格式”,然后在“数字”选项卡中选择“自定义”,在“类型”中写入“[DBNum2]G/通用格式"元"”后按确定即可。

瞧,321是不是已经变成了“叁佰贰拾壹元”了?<br> 可惜的是,这个办法只能处理整数,而对带有小数的数字无能为力。

当然也有过朋友通过对此法进行一定的扩展而可以处理部分带小数的数字,但效果不是很理想。

<br>二、利用中文大写金额转换函数:<br>先别急,这个函数你在Excel里是找不到的,微软毕竟不是大陆公司!这个函数被收集在本站开发的“Excel扩展函数集”里,下载这个函数集,按说明进行安装后,在Excel中运用一个叫EHDXRMB()的函数就可以将任意数字转换成中文大写金额。

具体情况在此就不多进行介绍了。

<br>三、利用公式进行转换:<br>所谓“自力更生,丰衣足食”,这第三种方法就是自己编写公式进行转换。

虽然吝啬的小编连白开水也舍不得给我,但我还是一如既往地发扬大公无私之精神将独门密技告之天下,包学包会,不会免费再学……(小编:STOP!再要是废话就OUT!)<br>为了照顾一些Excel初学者,我们先来了解一下什么是Excel里的公式与函数。

Excel之所以计算功能异常强大,百分之八十的功劳就在于用户可以创建公式进行计算。

鉴于本身提供将数字转换为大写表示地功能根本不能正常应用在实际投标或财务应用之中，所以要自己建设，暂时找到了三种实现途径，经过测试均功能正常，还有一种是在书上找到地，懒得进来了，反正也差不多了.方法，通过在表格框（例如在“”单元）中直接输入以下公式：(<,"金额为负无效",(((""),"(人民币)零元",(<,"(人民币)",((),"[](人民币)通用格式")"元"))))(((*)()*),((*)(*)*,"","零"),(((*)()*,"[]")"角"))(((*)(*)*),"整",(((*)(*)*),"[]")"分") 个人收集整理勿做商业用途然后在“”中输入数字，就可看到效果.方法，通过（宏）输入转换公式: 点击菜单“工具”>“宏”>“编辑器”,在编辑器窗口中，点击菜单“插入”>“模块”，在出现地窗口中输入以下内容：个人收集整理勿做商业用途( ) ' 人民币中文大写函数"分角元拾佰仟万拾佰仟亿拾佰仟万""壹贰叁肆伍陆柒捌玖""整零元零零零万零零零亿零零零万"< "（负）"((), "") *> : "数字超出转换范围!!":: "零元零分":(())()' 数字转换过程((, , ))<> ' 非零数字转换(, , ) (, , )' 数字零地转换(, ) <> "零"(, , )' 特殊数位转换(, () ) (, , ),(, () ) (, , ) "零"(, () , ) <> "亿"(, () ) (, , ) "零""(人民币)" ()个人收集整理勿做商业用途然后切换回,在“”单元中输入数字，在“”单元中输入：“()”，就可看到效果.个人收集整理勿做商业用途方法，同样是通过公式，方法同上，公式如下：( ) ',"" '定义位置代码"" '定义汉字缩写"零壹贰叁肆伍陆柒捌玖拾佰仟萬億圆整角分" '定义大写汉字(, ".") > (, (, ".") )个人收集整理勿做商业用途() > "数目太大，无法换算！请输入一亿亿以下地数字", , "错误提示": '只能转换一亿亿元以下数目地货币！个人收集整理勿做商业用途(, "") '格式化货币""()(, , ) (, () , )(, ) """" '***元整((, ), ) "" (, ) "" '*元*角*分(, "", "") '避免零千(如：肆萬零千零贰佰)(, "", "") '避免零百(如：肆萬壹千零佰)(, "", "") '避免零十(如：贰佰零拾零肆)个人收集整理勿做商业用途<> (, "", "")(, "", "") '避免双零(如：壹仟零零肆)(, "", "") '避免零億(如：億贰佰壹十零億)(, "", "") '避免零萬(如：萬贰佰壹十零萬)(() (, ) "", (, () ), ) '避免壹十(如：壹拾肆；壹拾)(() , (, ".", ""), (, ".", ".")) '避免零元(如：贰拾零圆；零圆壹角贰分)个人收集整理勿做商业用途(, (, , ), (, , )) '大写汉字"(人民币)"个人收集整理勿做商业用途切换回,在“”单元中输入数字，在“”单元中输入：“()”，就可看到效果.个人收集整理勿做商业用途实现地效果比较如下：(人民币)壹仟贰佰叁拾肆元伍角整直接公式(人民币)壹仟贰佰叁拾肆元伍角整()(人民币)壹仟贰佰叁拾肆圆伍角零分()。

一、介绍Excel金额大写自动生成的公式在日常工作中，我们经常会遇到需要将阿拉伯数字金额转换为大写金额的情况。

而在Excel中，我们可以利用公式来实现这一转换，从而提高工作效率。

本文将介绍Excel中金额大写自动生成的公式的使用方法和注意事项。

二、公式的基本原理1. 在Excel中，可以利用VBA编程语言来编写宏以实现金额大写自动生成的功能。

通过编写相应的VBA代码，可以使Excel自动将输入的数字金额转换为大写金额。

2. 公式的基本原理是将输入的阿拉伯数字金额拆分成整数和小数部分，然后分别进行转换为大写金额，最后将整数和小数部分的大写金额合并为最终结果。

三、公式的具体实现步骤1. 在Excel中，首先需要按下Alt + F11组合键打开VBA编辑器，在项目资源管理器中选择需要添加宏的工作簿。

2. 在选中的工作簿中插入一个新的模块，然后在模块中编写相应的VBA代码。

可以借助搜索引擎查找金额大写自动生成的VBA代码，然后将其粘贴到模块中。

3. 在编写完成VBA代码后，可以利用快捷键Alt + F8来运行宏，或者将宏添加到快速访问工具栏，方便日常使用。

四、注意事项1. 在使用金额大写自动生成的公式时，需要确保输入的金额格式正确，且没有特殊符号和字母等非数字字符。

2. 由于VBA代码的复杂性和灵活性，建议在使用前充分了解其功能和运行原理，以避免出现不必要的错误和问题。

3. 在日常工作中，需要根据具体的需求，对金额大写自动生成的公式进行必要的修改和调整，以满足不同的应用场景。

五、结语通过以上介绍，相信大家对Excel金额大写自动生成的公式有了一定的了解。

在实际工作中，合理利用Excel的功能和公式，可以提高工作效率，减少重复劳动，帮助我们更好地处理各类金额转换的需求。

希望本文的介绍能够对大家有所帮助。

六、如何修改VBA代码以适应不同的需求1. 调整显示格式：根据实际需求，我们可以修改VBA代码中的显示格式，包括小数点后保留位数、显示大写金额的格式等。

怎样设置excel表可以在输⼊⼩写⾦额的同时⾃动填充⼤写⾦额？怎样设置excel表可以在输⼊⼩写⾦额的同时⾃动填充⼤写⾦额？平时⼯作⽤到EXCEL时，经常会遇到输⼊⼩写⾦额，然后还得把⼤写⾦额再打⼀遍，⽐较⿇烦，现在只需输⼊⼩写⾦额，⼤写⾦额则会⾃动随着变化，我刚刚试过，很实⽤，真的⾮常棒!输⼊函数(复制粘贴即可)=IF(A1<0,"⽆效值",IF(A1=0,"零元",IF(A1<1,"",TEXT(INT(A1),"[DBNUM2]")&"元")&IF(INT(A1*10)-INT(A1)*10=0,IF((INT(A1)*(INT(A1*100)-INT(A1*10)*10))=0,"","零"),TEXT(INT(A1*10)-INT(A1)*10,"[DBNUM2]")&"⾓")&IF(INT(A1*100)-INT(A1*10)*10=0,"整",TEXT(INT(A1*100)-INT(A1*10)*10,"[DBNUM2]")&"分"))) 注：在⼤写⾦额单元格内输⼊以上函数( A1为⼩写⾦额单元格)，然后回车即可，以后⼩写⾦额内输⼊任何数值，⼤写⾦额会⾃动改变过来 !⼊⼩写⾦额，⼤写⾦额⾃动⽣成的⽅法（有公式及动画步聚操作）平时⼯作⽤到EXCEL时，经常会遇到输⼊⼩写⾦额，然后还得把⼤写⾦额再打⼀遍，⽐较⿇烦，现在只需输⼊⼩写⾦额，⼤写⾦额则会⾃动随着变化，我刚刚试过，很实⽤，真的⾮常棒!输⼊函数(复制粘贴即可)=IF(A1<0,"⽆效值",IF(A1=0,"零元",IF(A1<1,"",TEXT(INT(A1),"[DBNUM2]")&"元")&IF(INT(A1*10)-INT(A1)*10=0,IF((INT(A1)*(INT(A1*100)-INT(A1*10)*10))=0,"","零"),TEXT(INT(A1*10)-INT(A1)*10,"[DBNUM2]")&"⾓")&IF(INT(A1*100)-INT(A1*10)*10=0,"整",TEXT(INT(A1*100)-INT(A1*10)*10,"[DBNUM2]")&"分")))注：在⼤写⾦额单元格内输⼊以上函数( A1为⼩写⾦额单元格)，然后回车即可，以后⼩写⾦额内输⼊任何数值，⼤写⾦额会⾃动改变过来 !若还不明⽩，下边是⼀动画教程，每步都⾮常详细。

excel表格数字转换为中文大写不要万千百方法及解决表格金额数字字符间距办法带人民币符号1、excel表格数字转换为中文大写不要万千百方法利用trunc公式的取整数功能完成。

在每个要输入大写单元格内填入相应公式。

然后，选中这些单元格转换数字格式（右键-设置单元格格式-数字-特殊-中文大写数字）适合打印已经印制万、仟、佰、拾、元、角、分的单据。

例如：要转换的数字在Q9十万位公式：=TRUNC(Q9/100000,0)-TRUNC(Q9/100000,-1)万位公式：=TRUNC(Q9/10000,0)-TRUNC(Q9/10000,-1)千位公式：=TRUNC(Q9/1000,0)-TRUNC(Q9/1000,-1)百位公式：=TRUNC(Q9/100,0)-TRUNC(Q9/100,-1)十位公式：=TRUNC(Q9/10,0)-TRUNC(Q9/10,-1)个位公式：=TRUNC(Q9,0)-TRUNC(Q9,-1)十分位公式：=TRUNC(Q9*10,0)-TRUNC(Q9*10,-1)百分位公式：=TRUNC($Q$9*100,0)-TRUNC($Q$9*100,-1)效果如下图2、解决表格金额数字字符间距办法且带人民币符号大家可能在针式打印机打印表格时遇到打数字时，因无法调节字间距，而把数字打到一起的现象。

下面提供一种方法，并且可以打上人民币￥的符号。

原理与上述办法基本相同，但加入了if公式。

把相应的公式复制到相应的数位，把U5改成你想要的单元格就OK了。

例如：要打出来的目标数字在U5。

十万位公式：=IF(U5>99999.9,TRUNC(U5/100000,0)-TRUNC(U5/100000,-1),IF(U5>= 10000,"￥",""))万位公式：=IF(U5>9999.9,TRUNC(U5/10000,0)-TRUNC(U5/10000,-1),IF(U5>=100 0,"￥",""))千位公式：=IF(U5>999.9,TRUNC(U5/1000,0)-TRUNC(U5/1000,-1),IF(U5>=100,"￥",""))百位公式：=IF(U5>99.9,TRUNC(U5/100,0)-TRUNC(U5/100,-1),IF(U5>=10,"￥","")) 十位公式：=IF(U5>9.9,TRUNC(U5/10,0)-TRUNC(U5/10,-1),IF(U5>=1,"￥",""))个位公式：=IF(U5>0.9,TRUNC(U5/1,0)-TRUNC(U5/1,-1),IF(U5>=0.1,"￥",""))上图：。

excel中数字转换成大写四种方法（第二版）excel 中数字转换成大写四种方法：一、将本单元格的数字转换成大写：选定将要转换的单元格，单击鼠标右键，选择“设置单元格格式”，单击“数字”选项页，单击“特殊”项，再在类型中选择“中文大写数字”并确定即可。

二、将别处单元格索引至本单元格，则利用函数 TEXT 、 INT 和 ROUND 组合取值：比如：将单元格 M15 的数字转换成大写金额，具体函数如下：=IF(M15<0.005,"",IF(M15<0," 负 ",)&IF(INT(M15),TEXT(INT(M15),"[dbnum2]")&" 元 ",)&IF(INT(M15*10)-INT(M15)*10,TEXT(INT(M15*10)-INT(M15)*10,"[dbnum2]")&" 角 ",IF(INT(M15)=M15,,IF(M15<0.1,," 零")))&IF(ROUND((M15)*100-INT(M15*10)*10,),TEXT(ROUND(M15*100-INT(M15*10)*10,),"[dbnum2]")&" 分 "," 整 "))三、将别处单元格索引至本单元格，则利用函数 TEXT 、 INT 、 MID 和 LEN 组合取值：=TEXT(INT(M15),"[DBNUM2]")&" 元"&TEXT(MID(M15,LEN(INT(M15))+2,1),"[DBNUM2]D 角")&TEXT(MID(M15,LEN(INT(M15))+3,1),"[DBNUM2]D 分 ")&" 整 "四、将别处单元格索引至本单元格，则利用函数 NUMBERSTRING 、 INT 和ROUND 组合取值：=NUMBERSTRING(M15,2)&" 元 "&NUMBERSTRING(INT(M15*10)-INT(M15)*10,2)&" 角 "&NUMBERSTRING(ROUND(INT(M15*100)-INT(M15*10)*10,0),2)&" 分整 "。

Excel表中小写金额直接转换成大写金额的公式：一、=IF(OR(A1<0,A1=""),"",IF(VALUE(LEFT(A1,1))=0,"",NUMBERSTRIN G(INT(A1),2)&"元")&IF(ISERROR(FIND(".",A1)),"整",IF(VALUE(MID(A1,FIND(".",A1)+1,1))=0,"零",IF(ISERROR(FIND(".",A1)),"",NUMBERSTRING(MID(A1,FIND(".", A1)+1,1),2)&"角")))&IF(ISERROR(FIND(".",A1)),"",IF(LEN(ROUND(A1,2))=(FIND( ".",A1)+2),NUMBERSTRING(MID(ROUND(A1,2),FIND(".",A1)+2,1),2 )&"分","")))&IF(ISERROR(FIND(".",A1)),"","")二、假定你要在B1输入阿拉佰数字,C1转换成中文大写金额(含元角分),请在C1单元格输入如下公式:=SUBSTITUTE(SUBSTITUTE(IF(-RMB(B1),IF(B1>0,,"负")&TEXT(INT(ABS(B1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(B1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(B1^2<1,,"零")),"零分","整")三、用公式就可以，我不懂做会计的如何用大写表示如128.40这样的角不为0但分为0的值，是“壹佰贰拾捌元肆角整”还是“壹佰贰拾捌元肆角”？如果是“壹佰贰拾捌元肆角”，请用这个公式：=TEXT(INT(B2),"[DBNUM2]")&"元"&IF(INT(B2)=B2,"整",(IF(INT(B2*10)-INT(B2)*10>0,TEXT(INT(B2*10)-INT(B2)*10,"[ DBNUM2]")&"角","零")&IF(B2*100-INT(B2*10)*10>0,TEXT(B2*100-INT(B2*10)*10,"[db num2]")&"分","")))如果是“壹佰贰拾捌元肆角整”，请用这个公式：=TEXT(INT(B2),"[DBNUM2]")&"元"&(IF(INT(B2*10)-INT(B2)*10>0,TEXT(INT(B2*10)-INT(B2)*10,"[ DBNUM2]")&"角",IF(B2*100-INT(B2*10)*10>0,"零",""))&IF(B2*100-INT(B2*10)*10>0,TEXT(B2*100-INT(B2*10)*10, "[dbnum2]")&"分","整"))说明：1、将以上公式中的B2换成你要换算的值或对应的单元格。

excel小写转大写金额的三种常见方法Excel人民币金额自动大写之前有财务岗的伙伴问过小雅这个问题，在工作中经常要填写中文大写金额，如果一个个填写大写金额，既耗时费力，又事半功倍。

并且面对大量数据，效率低下且极易出错。

今天小雅休息，给大家整理出来一起学习。

第一，单元格格式转大写金额1、将A列的数字小写金额，复制到B列，单击右键，选择设置单元格。

2、在左侧的类别栏中，单击：特殊，就会在右侧出现类型，选择---中文大写数字即可。

总结：这种excel自动大写金额方法优势在于速度快，不过如果带转换的小写数字含有小数，则会出错。

该方法只适合整数的转换。

第二， Numberstring函数转大写金额在Excel中有一个隐藏函数：numberstring函数，专门用来将小写数字金额转为大写金额的函数。

其函数语法为：Numberstring(number，参数)，有三种参数，分别为1、2、3，其对应的转为大写的格式分别为中文大写金额，会计大写金额，数学大写金额。

请参考下面小雅的截图：总结：excel人民币金额大写使用到了numberstring函数，仅能将整数部分转为大写，无法将小数部分也转为大写金额，小数部分将四舍五入到整数部分。

第三，公式转大写金额我们在B2中输入公式：=SUBSTITUTE(SUBSTITUTE(TEXT(INT(A2),"[DBNum2][$-804]G/通用格式元"&IF(INT(A2)=A2,"整",""))&TEXT(MID(A2,FIND(".",A2&".0")+1,1),"[DBNum2][$-804]G/通用格式角")&TEXT(MID(A2,FIND(".",A2&".0")+2,1),"[DBNum2][$-804]G/通用格式分"),"零角","零"),"零分","")按回车键，双击之后就能自动填充，迅速将小写的数字金额转为标准的会计的大写数字金额。

在EXCEL中将数字转换为人民币大写的三种方式鉴于EXCEL本身提供将数字转换为大写表示的功能根本不能正常应用在实际投标或财务应用之中，所以要自己建设，暂时找到了三种实现途径，经过测试均功能正常，还有一种是在书上找到的，懒得KEYIN进来了，反正也差不多了。

方法1，通过在EXCEL表格框（例如在“B1”单元）中直接输入以下公式：=IF(A1<0,"金额为负无效",(IF(OR(A1=0,A1=""),"(人民币)零元",IF(A1<1,"(人民币)",TEXT(INT(A1),"[dbnum2](人民币)G/通用格式")&"元"))))&IF((INT(A1*10)-INT(A1)*10)=0,IF(INT(A1*100)-INT(A1*10)*10=0,"","零"),(TEXT(INT(A1*10)-INT(A1)*10,"[dbnum2]")&"角"))&IF((INT(A1*100)-INT(A1*10)*10)=0,"整",TEXT((INT(A1*100)-INT(A1*10)*10),"[dbnum2]")&"分")然后在“A1”中输入数字，就可看到效果。

方法2，通过VBA（宏）输入转换公式: 点击菜单“工具”->“宏”->“VisualBasic编辑器”,在编辑器窗口中，点击菜单“插入”->“模块”，在出现的窗口中输入以下内容：Function daxie(ByVal Num) ' 人民币中文大写函数Application.Volatile TruePlace = "分角元拾佰仟万拾佰仟亿拾佰仟万"Dn = "壹贰叁肆伍陆柒捌玖"D1 = "整零元零零零万零零零亿零零零万"If Num < 0 Then FuHao = "（负）"Num = Format(Abs(Num), "###0.00") * 100If Num > 999999999999999# Then: daxie = "数字超出转换范围!!": Exit FunctionIf Num = 0 Then: daxie = "零元零分": Exit FunctionNumA = Trim(Str(Num))NumLen = Len(NumA)For J = NumLen To 1 Step -1 ' 数字转换过程temp = Val(Mid(NumA, NumLen - J + 1, 1))If temp <> 0 Then ' 非零数字转换NumC = NumC & Mid(Dn, temp, 1) & Mid(Place, J, 1) Else ' 数字零的转换If Right(NumC, 1) <> "零" ThenNumC = NumC & Mid(D1, J, 1)ElseSelect Case J ' 特殊数位转换Case 1NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1)Case 3, 11NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1) & "零"Case 7If Mid(NumC, Len(NumC) - 1, 1) <> "亿" ThenNumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1) & "零"End IfCase ElseEnd SelectEnd IfEnd IfNextdaxie = "(人民币)" & FuHao & Trim(NumC)End Function然后切换回excel,在“A2”单元中输入数字，在“B2”单元中输入：“=DaXie(A2)”，就可看到效果。

EXCEL中数字转换中文大写公式EXCEL中数字转换中文大写公式=IF(G6<0,\负\通用格式元\角\分\EXCEL中数字小写换大写方法一：在单元格A2中输入小写数字123.12 B2处输入以下公式=SUBSTITUTE(SUBSTITUTE(IF(A2<0,\负\元\),\角%um2]\分\整\零元零\零元\EXCEL中数字小写换大写方法二：在单元格A2中输入小写数字123.12 B2处输入以下公式=IF((INT(A2*10)-INT(A2)*10)=0,TEXT(INT(A2),\通用格式\元\整\零\通用格式\分\通用格式\元\通用格式\角整\通用格式\角\通用格式\分\EXCEL中数字小写换大写方法三：=IF(A2-INT(A2)=0,TEXT(INT(A2),\通用格式\圆整\通用格式\圆\通用格式\角\通用格式\分\EXCEL中数字小写换大写方法四：=IF((A2-INT(A2))=0,TEXT(A2,\元整\元\角整\元\零\角\分\看看结果是不是出现了你想要的?应该有你需要的大写金额了公式的由来: 仟分位公式如下:=TEXT(IF(LEN(INT($A1))>=4,MID($A1,LEN(INT($A1))-3,1),\佰分位公式如下:=TEXT(IF(LEN(INT($A1))>=3,MID($A1,LEN(INT($A1))-2,1),\第一位小数的公式:=TEXT(MID($A1,FIND(\第二位小数的公式:=TEXT(MID(TEXT($A1,\其他依此类推^^^^^^^^^^^^^^^^用Excel函数将货币数值由阿拉伯数字自动生成为中文大写格式如图是全部用Excel函数自编农业银行转帐支票套打工具，图中内容是需要打印到转帐支票上内容，其中A-D列为支票存根部分，我们利用Excel函数对要填写大部分内容建立公式后，只要输入支票存根部分的三项基本信息（A6-A8单元格）：收款单位、金额、用途，其他内容全部自动生成。

EXCEL金额大小写转换公式大全在Excel中，可以使用以下公式将金额从数字形式转换为大写形式：1.数字转换为大写金额：=IF(A1<0,"负","")&NUMBERTEXT(ABS(A1))这个公式将数字转换为大写金额。

如果数字为负数，则在转换后的金额前面加上“负”字样。

2.人民币大写金额：=TEXT(NUMBERTEXT(A1),"[DBNum2][$￥-804]")&"整"此公式将数字转换为人民币大写金额，并在金额后面加上“整”字样。

3.美元大写金额：=TEXT(A1,"[$-409]0")&"美元整"此公式将数字转换为美元大写金额，并在金额后面加上“美元整”字样。

4.英文大写金额：=PROPER(TEXT(A1,"[ENG11A]General Number")) & " DOLLARS"此公式将数字转换为英文大写金额，并在金额后面加上“DOLLARS”。

5.澳大利亚元大写金额：=TEXT(A1,"[$-C09]0") & " Australian Dollars"此公式将数字转换为澳大利亚元大写金额，并在金额后面加上“Australian Dollars”。

6.日元大写金额：=TEXT(A1,"[$¥-411]")&"日元整"此公式将数字转换为日元大写金额，并在金额后面加上“日元整”。

7.欧元大写金额：=TEXT(A1,"[$€-40C]")&"欧元整"此公式将数字转换为欧元大写金额，并在金额后面加上“欧元整”。

8.加拿大元大写金额：=TEXT(A1,"[$C0A]") & " Canadian Dollars"此公式将数字转换为加拿大元大写金额，并在金额后面加上“Canadian Dollars”。

Excel中数字转换为中⽂⼤写的⼏种⽅法Excel中数字转换为中⽂⼤写的⼏种⽅法记得⼏年之前，⼀个朋友问我，如何在EXCEL中将⾦额转换成中⽂⼤写？本以为⽤单元格格式很容易解决，其实不然，因这其中涉及到⼩数点的转换及元⾓分的判断，所以它⽐想象中的问题要⿇烦很多。

现整理出来，供⼤家参考！仔细想来，其实实现数字读法的⽅法实际上⾄少有五种，即单元格替换、VB编程法、⾃动更正法及⼯作表函数的替换法等。

⽤VB编程实际上是最复杂的⼀种⽅法（但也是⼀劳永逸的⽅法），在很多时候完全可以⽤较简单的⽅法实现。

以下分别介绍这⼏种⽅法。

1、单元格替换如果只是为了将数值转换为中⽂⼤写，可直接选择单元格，然后单击…格式/单元格?，在单元格格式对话框中选择…分类/特殊?，在…类型?中选择…中⽂⼤写数字?，最后单击…确定?。

2、⾃动更正法使⽤⾃动更正功能，可以简化⽤户对⼤写汉字的输⼊操作，例如可以将“1//”定义更正为“壹”，那么当要输⼊“壹”时，就可通过键⼊“1//”来实现。

另外，这种定义以后不仅在Excel中有效，在Word中也同样有效，因为“⾃动更正”程序是Office组件所公⽤的。

⽤“⾃动更正”是最简单易⾏的，⽤户可⾃由、⽅便地输⼊要写的⼤写读法。

然⽽它的局限性也很明显，即它虽然给使⽤者提供了输⼊⼤写数字的⽅便⼿段，但终究还是需要⼈⼯输⼊，不能⾃动、实时地依当前的实际数字结果进⾏更新。

3、⼯作表函数替换法要做到数值的⾃动更新，⼀般都会想到⽤VB构造函数法，但其实我们可采⽤⼀个简单的⽅法，即⼯作表函数的替换法。

顾名思义，所谓“⼯作表函数的替换法”，就是将原来的结果换去⼀部分。

那么换什么，⼜怎样换？我们知道，在Excel中，提供了多种数字的显⽰格式。

其中⽂版实际上也包括数字的⼤写读法显⽰格式，但遗憾的是这个功能对⼀般⽤户来说基本上不能⽤，因为Microsoft在实现这个数字显⽰格式时犯了⼀个⼩⼩的错误，例如“33.56”这个数，它显⽰出来的是“叁拾叁.伍陆”。

Excel工作表的数值快速转变大写金额
我们在做投标文件及制作Excel工作表时，往往要把算出来的数子，后面附加上大写，我们通常用的方法是手写输入，不但难，浪费有限的投标文件的有限时间，还容易出错，能有一种方法又快有准的办法，使我们很渴望的事情，下面就在我工作中掌握的这种方法做一下介绍》
1、操作方法一：
我们要首先选中要转变大写的数字（适用于Excel工作表）如下图
（图一）
2、操作方法二：
我们单击鼠标右键，选择“设置单元格格式”在弹出的对话框里面选择左
边“特殊”如下图
（图二）
3、操作方法三：
再在右边找“中文大写数字”然后点击，最后再下面点击确定，这样大写金额就出来啦，绝对准确。

见下图
（图三）。