1樓：匿名使用者
具體公式如下：
b1公式下拉：
=substitute(substitute(if(-rmb(a1,2),text(a1,";負通用格式圓角0分;;整"),),"零角",if(a1^2<1,,"零")),"零分","整")
2樓：
轉中文大寫：
="大寫人民幣負通用格式圓角0分;;整"),),"零角",if(a1^2<1,,"零")),"零分","整")
轉英文大寫：
先alt+f11, 開啟vba, 插入模組，複製下面**->貼上，
function spellnumber(byval mynumber)
dim dollars, cents, temp
dim decimalplace, count
redim place(9) as string
place(2) = " thousand "
place(3) = " million "
place(4) = " billion "
place(5) = " trillion "
' string representation of amount.
mynumber = trim(str(mynumber))
' position of decimal place 0 if none.
decimalplace = instr(mynumber, ".")
' convert cents and set mynumber to dollar amount.
if decimalplace > 0 then
cents = gettens(left(mid(mynumber, decimalplace + 1) & _
"00", 2))
mynumber = trim(left(mynumber, decimalplace - 1))
end if
count = 1
do while mynumber <> ""
temp = gethundreds(right(mynumber, 3))
if temp <> "" then dollars = temp & place(count) & dollars
if len(mynumber) > 3 then
mynumber = left(mynumber, len(mynumber) - 3)
else
mynumber = ""
end if
count = count + 1
loop
select case dollars
case ""
dollars = " dollars"
case "one"
dollars = " dollar"
case else
dollars = dollars & " dollars"
end select
select case cents
case ""
cents = " only."
case "one"
cents = " and one cent only."
case else
cents = " and " & cents & " cents only."
end select
spellnumber = dollars & cents
end function
' converts a number from 100-999 into text
function gethundreds(byval mynumber)
dim result as string
if val(mynumber) = 0 then exit function
mynumber = right("000" & mynumber, 3)
' convert the hundreds place.
if mid(mynumber, 1, 1) <> "0" then
result = getdigit(mid(mynumber, 1, 1)) & " hundred "
end if
' convert the tens and ones place.
if mid(mynumber, 2, 1) <> "0" then
result = result & gettens(mid(mynumber, 2))
else
result = result & getdigit(mid(mynumber, 3))
end if
gethundreds = result
end function
' converts a number from 10 to 99 into text.
function gettens(tenstext)
dim result as string
result = "" ' null out the temporary function value.
if val(left(tenstext, 1)) = 1 then ' if value between 10-19...
select case val(tenstext)
case 10: result = "ten"
case 11: result = "eleven"
case 12: result = "twelve"
case 13: result = "thirteen"
case 14: result = "fourteen"
case 15: result = "fifteen"
case 16: result = "sixteen"
case 17: result = "seventeen"
case 18: result = "eighteen"
case 19: result = "nineteen"
case else
end select
else ' if value between 20-99...
select case val(left(tenstext, 1))
case 2: result = "twenty "
case 3: result = "thirty "
case 4: result = "forty "
case 5: result = "fifty "
case 6: result = "sixty "
case 7: result = "seventy "
case 8: result = "eighty "
case 9: result = "ninety "
case else
end select
result = result & getdigit _
(right(tenstext, 1)) ' retrieve ones place.
end if
gettens = result
end function
' converts a number from 1 to 9 into text.
function getdigit(digit)
select case val(digit)
case 1: getdigit = "one"
case 2: getdigit = "two"
case 3: getdigit = "three"
case 4: getdigit = "four"
case 5: getdigit = "five"
case 6: getdigit = "six"
case 7: getdigit = "seven"
case 8: getdigit = "eight"
case 9: getdigit = "nine"
case else: getdigit = ""
end select
end function
改良公式
附件：中英文數字金額轉大寫 (注意：有巨集：）)
網頁連結
excel裡面輸入阿拉伯數字以後怎麼自動轉變成中文大寫？
3樓：
開啟單元格格式》數字》特殊》中文大寫數字即可。如下圖所示。
4樓：匿名使用者
使用函式，=if((a1*100+b1*10+c1)=0,"",text((a1*100+b1*10+c1),"[dbnum2]")&"元零元","")&"整角")&if(e1=0,"整",text(e1,"[dbnum2]")&"分"))
5樓：匿名使用者
點中阿位伯數字區域，按右鍵選擇「設定單元格格式」，點數字按鈕，選擇「特殊」再選擇「中文大寫數字」即可。（我用的是2007版的）
在excel中如何把阿拉伯數字自動轉換成大寫數字？
6樓：陳緒什麼都不懂
用內建函式numbeistring，或者用**定義數字格式都可以達到把阿拉伯數字轉換成大寫數字的目的。
1、numbeistring的用法如下，假設需要轉換的數字位於a1，公式為=numberstring（a1，2），要注意的是，numberstring轉換成數字不包括小數點後數字的轉換，如100.15，轉換後顯示為壹佰，缺失小數點後數字。
2、用**的形式配合文字函式text可用於財務上的阿拉伯數字轉換成大寫數字，具體如下，假設a1單元格中數字為100.15，設定公式為=text(a1*100,"[dbnum2]0萬0仟0佰0拾0元0角0分")，顯示結果為"零萬零仟壹佰零拾伍元壹角伍分"。
兩種轉換方法都視需求而使用，也可以通過上述的兩種函式，另外增加轉換之後輸入的數字格式。
阿拉伯數字共有多少畫,阿拉伯數字一共有幾筆？
您查詢的是 阿拉伯數字 查詢結果 共包含 5 個漢字，總筆畫數 41 畫。去除重複漢字後 共包含 5 個漢字，總筆畫數 41 畫。以下為單個漢字筆畫數 7 畫 阿 8 畫l 拉 7 畫b 伯 13 畫sh 數 6 畫z 字 阿拉伯數字 一共有幾筆？阿拉伯數字總計 5 個漢字，總筆畫數 41 下面是其...
阿拉伯數字一共有幾筆阿拉伯數字共有幾筆畫
阿拉伯數字總計 5 個漢字，總筆畫數 41 下面是其中各漢字的筆畫 阿 7 拉 8 伯 7 數 13 字 6 阿拉伯數字，是現今國際通用數字。最初由古印度人發明，後由阿拉伯人傳向歐洲，之後再經歐洲人將其現代化。正因阿拉伯人的傳播，成為該種數字最終被國際通用的關鍵節點，所以人們稱其為 阿拉伯數字 阿拉...
阿拉伯數字的來歷，阿拉伯數字「0」的由來是什麼？
1 來歷 公元500年前後，隨著經濟 婆羅門文化的興起和發展，印度次大陸西北部的旁遮普地區的數學一直處於領先地位。天文學家阿葉彼海特在簡化數字方面有了新的突破 他把數字記在一個個格子裡，如果第一格里有一個符號，比如是一個代表1的圓點，那麼第二格里的同樣圓點就表示十，而第三格里的圓點就代表一百。這樣，...