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數字變大寫金額后的恢復方法的回答,別忘了點贊評論哦!