1.如何将小写金额转换成大写金额

但是问题是“元角分”还是没能正常显示！ 尤其是在支票之类的财会领域。

有答案了： 在excel中A2单元格输入以下代码 =IF((A1-INT(A1))=0，"￥"&TEXT(A1,"[DBNUM2]")&"元整"，IF(INT(A1*10)-A1*10=0，"￥"&TEXT(INT(A1),"[DBNUM2]"）&"元"&TEXT((INT(A1*10)-INT(A1)*10),"[DBNUM2]"）&"角整"，"￥"&TEXT(INT(A1),"[DBNUM2]"）&"元"&IF(INT(A1*10)-INT(A1)*10=0，"零"，TEXT(INT(A1*10)-INT(A1)*10,"[DBNUM2]"）&"角"）&TEXT(RIGHt(A1,1),"[DBNUM2]"）&"分"）） 随后在A1为输入金额大小，A2就自动跳出你所需的文字了。 A1: 121654651324。

14 A2： ￥壹仟贰佰壹拾陆亿伍仟肆佰陆拾伍万壹仟叁佰贰拾肆元壹角肆分 ============ 代码更改如下： =IF((A2-INT(A2))=0，"￥"&TEXT(A2,"[DBNUM2]")&"元整"，IF(INT(A2*10)-A2*10=0，"￥"&TEXT(INT(A2),"[DBNUM2]"）&"元"&TEXT((INT(A2*10)-INT(A2)*10),"[DBNUM2]"）&"角整"，"￥"&TEXT(INT(A2),"[DBNUM2]"）&"元"&IF(INT(A2*10)-INT(A2)*10=0，"零"，TEXT(INT(A2*10)-INT(A2)*10,"[DBNUM2]"）&"角"）&TEXT(RIGHt(ROUND(A2,2),1),"[DBNUM2]"）&"分"）） 我觉得alkaid_pku你的那个=号用的很不错，可以借鉴！谢谢提示！ 但是其实只要在TEXT(RIGHT后加一个（ROUND(A2,2)->TEXT(RIGHt(ROUND(A2,2),1） 就可以了不用写那么复杂的公式的 这个公式应该也可以的吧？ ============== 结合两人的优点最后得出的最简单的公式： =IF(A2=INT(A2)，"￥"&TEXT(A2,"[DBNUM2]")&"元整"，IF(INT(A2*10)=A2*10，"￥"&TEXT(INT(A2),"[DBNUM2]"）&"元"&TEXT((INT(A2*10)-INT(A2)*10),"[DBNUM2]"）&"角整"，"￥"&TEXT(INT(A2),"[DBNUM2]"）&"元"&IF(INT(A2*10)=INT(A2)*10，"零"，TEXT(INT(A2*10)-INT(A2)*10,"[DBNUM2]"）&"角"）&TEXT(RIGHt(ROUND(A2,2),1),"[DBNUM2]"）&"分"）） 对了，最后忘记写了，金额的封口如果不是需要“￥”的话可以使用excel中的替换（ctrl+h）将公式中的“￥”替换成“RMB”“人民币”或其它。

2.如何把小写的金额直接转换成大写的金额

用公式能够解决。

假定在表格中，第A8单元格是阿拉伯数字表示的金额，你想在A9单元格显示大写，那么，点击A9然后点输入窗口后面的“=”，然后在输入窗口中输入下面的公式就可以了（可以用复制--粘贴的方法）。注意，如果是别的单元格，就替换公式中所有的A8为相应的单元格符号就可以了。

=IF((INT(A8*10)-INT(A8)*10)=0,TEXT(INT(A8),"[DBNum2]G/通用格式"）&"元"&IF((INT(A8*100)-INT((A8)*10)*10)=0，"整"，"零"&TEXT(INT(A8*100)-INT(A8*10)*10,"[DBNum2]G/通用格式"）&"分"），TEXT(INT(A8),"[DBNum2]G/通用格式"）&"元"&IF((INT(A8*100)-INT((A8)*10)*10)=0,TEXT((INT(A8*10)-INT(A8)*10),"[DBNum2]G/通用格式"）&"角整"，TEXT((INT(A8*10)-INT(A8)*10),"[DBNum2]G/通用格式"）&"角"&TEXT(INT(A8*100)-INT(A8*10)*10,"[DBNum2]G/通用格式"）&"分"）） 把你的这个表格存为“文档模板”，以后，就可以重复使用了。 。

3.怎么用Excel将小写金额转换成人民币的大写金额

可以先将小写金额所在的单元格选中，然后设置单元格格式为中文大写数字。

1、打开Excel文档，用鼠标将所有小写金额所在的单元格选中，然后右击被选中的单元格，点击“从下拉列表中选择。”按钮：

2、在打开的单元格格式设置窗口中，点击分类下面的“特殊”按钮，然后点击类型里面的“中文大写数字”按钮：

3、设置完成后，这时所有的小写金额都会转换成大写金额，然后将Excel文档进行保存即可：

4.如何把小写的金额直接转换成大写的金额

以下是一段用VBA代码编写的金额小写转大写的函数： public function zdx(x as currency) as string dim lnp as integer dim prc as string dim tmp as string dim nob as currency dim dx as string dim xx as string dim zhen as boolean dim str(10) as string dim china as string china = "分角元拾佰仟万拾佰仟亿" str(0) = "零" str(1) = "壹" str(2) = "贰" str(3) = "叁" str(4) = "肆" str(5) = "伍" str(6) = "陆" str(7) = "柒" str(8) = "捌" str(9) = "玖" zhen = true x = formatnumber(x, 2) prc = cstr(x) prc = replace(prc, ",", "") lnp = len(prc) for i = lnp - 1 to 1 step -1 if mid(prc, i, 1) = "." then select case lnp - i case 1 prc = replace(prc, ".", "") + "0" case 2 prc = replace(prc, ".", "") end select zhen = false exit for end if next i if zhen then prc = prc + "00" lnp = len(prc) for i = 1 to lnp tmp = str(mid(prc, i, 1)) & tmp next i zdx = "" fy = 1 for i = 1 to lnp xx = mid(tmp, i, 1) dx = mid(china, i, 1) if xx "零" then zdx = xx & dx & zdx f = 1 else if i = 3 then zdx = dx & zdx end if if i = 7 then zdx = dx & zdx end if if f then zdx = "零" & zdx end if f = 0 end if next i if zhen then zdx = zdx + "正" zdx = replace(zdx， "零万"， "万") zdx = replace(zdx， "零元"， "元") end function。