假设数字在百A1单元格度，目标单元问格公式：=SUBSTITUTE(SUBSTITUTE(IF(ISNUMBER(FIND(".",A1)),TEXT(LEFT(A1,FIND(".",A1)-1),"[dbnum2]")&"元"&TEXT(MID(A1,FIND(".",A1)+1,1),"[dbnum2]")&"角"&TEXT(MID(A1,FIND(".",A1)+2,1),"[dbnum2]")&"分",TEXT(A1,"[dbnum2]")&"元整"),"角分答","角整"),"-","负")格式版权柄下拉复制公式，一、自定义VBA函数：Function RMBdx(Optional Mynum As Variant)'原创：生哥'来源：www.vip968.com 七彩阳光'功能：根据数值返回人民币的大写金额。    If IsNumeric(Mynum) = False Then    'IsNumeric() 判断是否为数字        Mynum = 0    End If    Mynum = Round(Mynum, 2)     '将数字保留2位小数    If Sgn(Mynum) = 0 Then    '判断数字是否为负数，=1为正，=0为零，=-1为负        RMBdx = ""    '数字为0，则不显示，如需显示其它信息，请自行修改，如改为  RMBdx = "零圆"    Else        RMBdx = IIf(Sgn(Mynum) = -1, "负", "") & Application.Text(Int(Abs(Mynum)), "[=]g;[dbnum2]") & "圆"  '若为负数，则在前加“负”字        If Abs(Mynum) - Int(Abs(Mynum)) > 0 Then    '判断数字是否为带小数点            RMBdx = RMBdx & Application.Text(Right(Format(Abs(Mynum) - Int(Abs(Mynum)), "0.00"), 2), "[=]g;[dbnum2]0角0分")     '转换小数点后数字            RMBdx = Replace(Replace(RMBdx, "零分", ""), "零角", "零")       '如出现“零角”则e79fa5e98193e4b3e5b19e31333337626161替换为“零”,如出现“零分”则清除，如需显示“角整”则使用下边一行。            'RMBdx = Replace(Replace(RMBdx, "零分", "整"), "零角", "零")       '如出现“零角”则替换为“零”,如出现“零分”则清除，如需显示“角整”则使用本行。        Else            RMBdx = RMBdx & "整"        End If    End IfEnd Function二、直接使用公式的最简单方法：1、显示“角整”如“10.20元”显示为“壹拾圆贰角整”=IF(ROUND(A1,2)=0,"",IF(A1<0,"负","")&IF(ABS(A1)>=1,TEXT(INT(ROUND(ABS(A1),2)),"[dbnum2]")&"圆","")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),"零角",IF(A1^2<1,,"零")),"零分","整"))2、不显示“角整”如“10.20元”显示为“壹拾圆贰角”=IF(ROUND(A1,2)=0,"",IF(A1<0,"负","")&IF(ABS(A1)>=1,TEXT(INT(ROUND(ABS(A1),2)),"[dbnum2]")&"圆","")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),"零角",IF(A1^2<1,,"零")),"零分",""))  三、用上述方法验证如图：  c2公式：=rmbdx(B2)d2公式：=IF(ROUND(B2,2)=0,"",IF(B2<0,"负","")&IF(ABS(B2)>=1,TEXT(INT(ROUND(ABS(B2),2)),"[dbnum2]")&"圆","")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(B2,2),2),"[dbnum2]0角0分;;整"),"零角",IF(B2^2<1,,"零")),"零分","整"))e2公式：=IF(ROUND(B2,2)=0,"",IF(B2<0,"负","")&IF(ABS(B2)>=1,TEXT(INT(ROUND(ABS(B2),2)),"[dbnum2]")&"圆","")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(B2,2),2),"[dbnum2]0角0分;;整"),"零角",IF(B2^2<1,,"零")),"零分",""))我觉得这个别人已经写的很好了，这是我的学习笔记。看到这个问题就贴出来。第三部分确实是我刚写的公式。不用的话就删吧，要结果的单元抄格输入袭公式=IF(A2<0,"负","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元知"&IF(ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A2,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND(A2,2)),"[DBNum2]")&"分","整")，A2是数字格。道，设置单元格格式——特殊——中文数字小（或中文数字大写），这样在单元格中输入西文数字，显示为中文数字，且能参与计算，要结果的单元百格输度入公式=IF(A2<0,"负","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元版"&IF(ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A2,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND(A2,2)),"[DBNum2]")&"分","整")，A2是数权字格www.51dongshi.net防采集。

excel如何把阿拉伯数字转换成中文大写？请看下面方法。

方法

打开Excel软件。

用内置函数numbeistring，或者用代码定义数字格式都可以达到把阿拉伯数字转换成大写数字的目的

将需要输入中文大写数字的单元格用鼠标拖成蓝色区域。

EXCEL表中，数字自动转换成了中文大写了，是因为相关单元格格式设置成了中文数字，将其改回常规格式即

按住快捷键Ctrl+1，弹出设置单元格格式的窗口，在分类栏下选择特殊。

在B1中输入或复制粘贴下列公式=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(

在类型栏下选择中文大写数字，并点击确认。

Sub 人民币大写转数字()Dim reg As Object, arr, b$, aarr

在单元格输入阿拉伯数字，可以看到自动转化为了中文数字。

假设数字在A1单元格，目标单元格公式：=SUBSTITUTE(SUBSTITUTE(IF(ISN

方法一、在A1单元格来输入数字，B1单元格输入“源=SUBSTITUTE(SUBSTITUTE(IF(ISNUMBER(FIND(".",A1)),TEXT(LEFT(A1,FIND(".",A1)-1),"[dbnum2]")&"元"&TEXT(MID(A1,FIND(".",A1)+1,1),"[dbnum2]")&"角"&TEXT(MID(A1,FIND(".",A1)+2,1),"[dbnum2]")&"分",TEXT(A1,"[dbnum2]")&"元整"),"角分","角整"),"-","负")”，知回车即可。方法二、在A1单元格输入数字，道B1单元格输入“=IF(A2<0,"负","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A2,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND(A2,2)),"[DBNum2]")&"分","整")”，回车，如果来数字在A1，在需要转自为大百写金额的单元度格输入公式知 =IF(A1="","",IF(ISERROR(FIND(".",A1)),NUMBERSTRING(INT(A1),2)&"元整",IF(ISERROR(NUMBERSTRING(MID(A1,FIND(".",A1)+2,1),2)),NUMBERSTRING(INT(A1),2)&"元"&NUMBERSTRING(MID(A1,FIND(".",A1)+1,1),2)&"角道整",NUMBERSTRING(INT(A1),2)&"元"&NUMBERSTRING(MID(A1,FIND(".",A1)+1,1),2)&"角"&NUMBERSTRING(MID(A1,FIND(".",A1)+2,1),2)&"分")))本回答被网友采纳，具体操作方法如下：1、打开Excel软件。2、将需要输入中文大写数字的单元格用鼠标拖成蓝抄色区域。3、按住快捷键Ctrl+1，弹出设置单元格格式的窗口，在分类栏下选择特殊。4、在类型栏下选择中文大写数字，并点击确认。5、在单元格输入阿拉伯数字，可以看到自动转化为了中文数字。拓展资料：如何将阿拉伯数字快速批量转换成中文小写袭或大写？操作步骤百如下：1、选中需要转换的数字所在单元格，点击菜单栏【开始】（一般为默认）中的【格式】，选择【设置单元格格式】。2、点击【数字】（一般为默认）标签，分类里选择【特殊】，类型选择【中文小写数字】。3、点击【确定】按钮度后，我们的数字已经被转换成了中文小写数字。4、更简便的方法是直接选中数字，然后在选中的区域【右击】，然后在右击菜单中选择【设置单元格格式】。5、设置方法与步骤2一样，只不过我们这次选择【中文大写数字】。6、点击【确定】按钮后，阿拉伯数字已经被转换成了中文大写数字。本回答被网友采纳，=IF(ROUND(A2,2)=0,"",IF(A2<0,"负","")&IF(ABS(A2)>=1,TEXT(INT(ROUND(ABS(A2),2)),"[dbnum2]")&"元zd","")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A2,2),2),"[dbnum2]0角0分;;整回"),"零答角",IF(A2^2<1,,"零")),"零分","整"))，1、打开需要zd操作的excel表格，首先在A1单元格内输入需要转换成大写金额的数字，例如数字“879”。2、然后在B1单元内格内输入“=”符号，用来引用计算数值的单元格。3、继续输入完整的转换公式：=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";负")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"零分","整")。4、最后点击回车按键，即可生成公式的计算结果：数字“879”被转换成为“捌佰柒拾玖元整容”，选中所有需要使用大写数字的单元格，单百击鼠标右键，在弹出的快捷菜单中执行“设置单元格格式”命令度，在弹出的“单元格格式”对话框中选择“数字”选项卡，在“分类”回列表框中选择“特殊”选项，然后在右侧的“类答别”列表框中选中“人民币大写”，单击“确定”按钮，方法一：右键百单元格，设置单元格格式－数字－特度殊－中文大写数字方法二：左键单元格，在上版方输入栏输入以下文本=SUBSTITUTE(SUBSTITUTE(IF(A1<0,"负","")&TEXT(TRUNC(ABS(ROUND(A1,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A1,2))),"",TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A1,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A1,2),3))=".",TEXT(RIGHT(ROUND(A1,2)),"[DBNum2]")&"分权",IF(ROUND(A1,2)=0,"","整")),"零元零",""),"零元","")，别人的来，你试试自...=SUBSTITUTE(SUBSTITUTE(IF(A1<0,"负","")&TEXT(TRUNC(ABS(ROUND(A1,2))),"[DBNum2]")&"元百"&IF(ISERR(FIND(".",ROUND(A1,2))),"",TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A1,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A1,2),3))=".",TEXT(RIGHT(ROUND(A1,2)),"[DBNum2]")&"分",IF(ROUND(A1,2)=0,"","整")),"零元零度",""),"零元","")本回答被提问者采纳，右键单元格，设置单元格格式，数字，特殊，中文大写数字，解决内容来自www.51dongshi.net请勿采集。