导航首页 » 技术教程 » excel数字变大写金额后的恢复方法
excel数字变大写金额后的恢复方法 203 2023-11-18   

excel数字变大写金额后的恢复方法,绿夏技术导航根据你的问题回答如下:

excel数字变大写金额后的恢复方法

在Excel中对数字进行金额大小写转换(即人民币大写转换)是一件很常见的操作,但有些时候你可能需要把这些转换后的大写金额表示恢复到数字形式。幸运的是,这很容易完成。下面提供两种方法来恢复大写金额为数字。

方法一:使用Mathematical Expression公式

1. 在Excel中选中用于表示大写金额的单元格

2. 将其格式更改为“常规”:右键单击选择“数字格式”-“常规”。

3. 在任何一个空单元格中键入以下公式,以加入一个输入将大写金额转义回数字形式的函数中:

=VALUE(SUBSTITUTE(SUBSTITUTE(B2,"人民币",""),"(大写)",""))

4. 回车键,从而获得大写金额对应的数值。

方法二:使用自定义VBA脚本

1. 按下“ALT +F11”,从打开视图菜单,进入Microsoft Visual Basic for Applications程序的代码编辑器界面。

2. 点击左边的"插入"菜单,选择“模块”

3. 在新建的模块中,输入以下VBA脚本代码

Function GetUpcaseStringToNumber(ByVal s As String)

if InStr(s,("人民币")) > 0 then

s = Trim(Replace(s,"人民币",""))

s = Trim(Replace(s,"(大写)",""))

GetUpcaseStringToNumber = Application.WorksheetFunction.Substitute( _

Application.WorksheetFunction.Substitute( _

Application.WorksheetFunction.Substitute( _

Application.WorksheetFunction.Substitute( _

Application.WorksheetFunction.Substitute( _

Application.WorksheetFunction.Substitute( _

Application.WorksheetFunction.Substitute( _

Application.WorksheetFunction.Substitute( _

Application.WorksheetFunction.Substitute( _

Application.WorksheetFunction.Substitute( _

Application.WorksheetFunction.Substitute( _

Application.WorksheetFunction.Substitute(s,"零元","元"),"零拾",""), _

"零佰",""),"\零千",""),"_0万_","万"), _

"_0亿_","亿"),"零零","零"),"_零百", "百"),"_零十", "十") )

else

MsgBox("请输入正确RMB大写数字","提示",16)

End If

End Function

4. 返回Excel工作表,在任何一个空单元格中输入以下公式,其中B2是您希望转换回数值的单元格值,

=GetChinese(B2)

5. 按下回车键,从而获得大写金额对应的数值。

无论选用哪种方法,它们都很容易并且高效。请尝试使用这些步骤,将大写金额自由转换为数字。

上面就是关于excel数字变大写金额后的恢复方法的回答,别忘了点赞评论哦!


!!!站长长期在线接!!!

网站、小程序:定制开发/二次开发/仿制开发等

各种疑难杂症解决/定制接口/定制采集等

站长微信:lxwl520520

站长QQ:1737366103