Excel金額小寫轉大寫公式

　　近來轉了轉幾個Excel相關論壇，發現有部分網友在尋求數字金額轉換為人民幣大寫的方法。出於好奇，我在網上搜索了一番，什麼VBA、加載宏，公式函數各式方法爭相亮相，應有盡有。但我的習慣是，只要能用公式解決的問題，堅決不使用VBA。所以我就特別地關注使用公式來生成的方法，結果是用公式的方法可謂是更加地燦爛缤紛，使人眼花缭亂。

　　通過分析我收集到的二十幾個公式，發現比較牛，適合我口味的公式有三個，在此我將其列出。

　　公式一：

　　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，“”， “整”))，“零元零”，“”)，“零元”，“”)

　　公式二：

　　CONCATENATE(IF(A1《0， “負”，“”)，TEXT(IF(TRUNC(A1)=0，“”，TRUNC(ABS(A1)))，“[DBNum2]”)，IF(INT(TRUNC(A1))=0，“”， “元”)，TEXT(IF(OR(ABS(A1) 《0.1，TRUNC(A1)=A1)，“”，RIGHT(TRUNC(A1*10)，1))，“[DBNum2]”)，IF(RIGHT(TRUNC(A1*10)，1)=“0”，“”， “角”)，TEXT(IF(RIGHT(TRUNC(A1*100)，1)=“0”，“”，RIGHT(TRUNC(A1*100)，1))，“[DBNum2]”)，IF(RIGHT(TRUNC(A1*100)，1)=“0”，“”， “分”))

　　公式三：

　　IF(ROUND(A1，2)=0，“”，IF(ROUND(ABS(A1)，2)》=1，TEXT(INT(ROUND(ABS(A1)，2))，“[DBNum2]”)& amp;“元”，“”)&IF(RIGHT(TEXT(A1，“.00”)，2)*1=0， “整”，IF(RIGHT(TEXT(A1，“.00”)，4)*1》=1，IF(RIGHT(TEXT(A1，“.00”)，2)*1》9，“”， “零”)，IF(ROUND(ABS(A1)，2)》=1，“零”，“”))&IF(RIGHT(TEXT(A1，“.00”)，2)*1》 9，TEXT(LEFT(RIGHT(TEXT(A1，“.00”)，2))，“[DBNum2]”)& “角”，“”)&IF(RIGHT(TEXT(A1，“.00”))*1》 0，TEXT(RIGHT(TEXT(A1，“.00”))，“[DBNum2]”)&“分”，“整”)))

　　我用不同的數值對這三個公式進行了一番測試，都達到了我的要求，至少到目前為止還沒有發現上述公式存在著什麼錯誤。上述公式對負數的處理采取了不同的方法。公式一和公式二對負數是在其前部加上一個“負”字，而公式三則是按正數進行處理。我比較推崇公式三的方式，不是還有條件格式可以設置嗎?若是負數就用條件格式來變為紅色。

　　我不准備在此對上述公式進行分析解說。撰寫本文的目的是我也想自己來“組裝”一個所謂的通用公式。我只所以說是“組裝”而不是叫什麼“開發”或者是“拼湊”，是因為EXCEL的函數現成地擺在了那裡，使用時就是為了達到某種目的，按照其固有的規則，將其進行有機的組合，可謂“組裝”。但是在這個過程中，也是要開動腦筋的，並非是隨隨便便“拼湊”就能成功的。本文的目的就是想將我在“組裝”公式時的思路展現出來。

　　若用程序設計語言(比如用C語言)來寫一個人民幣數字金額轉大寫金額會怎樣考慮呢?我想每一位數字都要考慮到。但在EXCEL中，單元格格式中有一個“特殊”格式，裡面就有將小寫數字轉換為大寫數字的格式。但要注意的是，這裡轉換的是數字而不是金額。所以轉換出來後並不存在“元”、“角”、 “分”、“整”等在大寫金額中出現的字。但是，“元”只出現在整數部分的後面，而小數部分只有角分兩位。這樣只要利用EXCEL的“特殊”格式將數據分為整數部分、角位和分位三個部分來處理就行了。處理的順序是先整數，再角位、再分位。

　　由於要分三個部分分別處理，然後根據情況分別與“元”，“角”，“分”及“整”相連接。連接的方式可以使用CONCATENATE()函數，如公式二，也可以使用連接符&。而用&來連接，公式結構似乎會相對簡單清晰一些，所以我選擇了用&來連接。

　　雖然對問題進行了分解，但需要考慮的細節相當多。

　　若單元格為0或者空，輸出空，避免出現“零”、“零元”等字樣。對非數字字符不進行處理，使用EXCEL自身的錯誤提示。

　　對負數按正數處理，再用條件格式將其轉換為紅色，不擬采用“負XXXXXX”的形式。