Excel 儲存格轉換教學－單位、文字與數值、貨幣、時區等轉換
在 Excel 處理資料時，經常需要對儲存格進行各種轉換，例如單位轉換、匯率轉換、時區轉換等。本教學彙整了日常 Excel 工作中常見的各類儲存格轉換情境，並提供詳細的步驟說明，協助您輕鬆完成相關操作。
本教學主要涵蓋：（請點擊下方或右側目錄中的任一標題，即可跳轉至對應內容。）
1. 在 Excel 中進行各種單位的轉換
通常我們會使用 CONVERT 函數 將數值從一種單位轉換為另一種單位，但對於某些單位的轉換，CONVERT 函數並不適用。
以下範例展示了如何利用 CONVERT 函數及不同公式，協助您在儲存格中進行各種單位的轉換。
1.1 使用 CONVERT 函數進行各種單位的轉換
Excel 提供了內建的「插入批註」功能，讓您可以輕鬆地在儲存格中添加批註。
如下面的截圖所示，若要將 B3:B10 區域中的英寸分別轉換為英尺、公分和毫米，可以套用 CONVERT 函數來完成。
語法
CONVERT(number, from_unit, to_unit)
參數說明
在 Excel 中有多種測量單位。若要查看可用於 CONVERT 函數「from_unit」和「to_unit」參數的各分類單位，請點擊這裡。
將英寸轉換為英尺：
選取一個儲存格（例如本例中的 D3），複製或輸入下列公式並按 Enter 鍵取得第一個結果。選中此結果儲存格後，拖曳自動填滿控點以取得其餘結果。請參考截圖：
=CONVERT(B3,"in","ft")
將英寸轉換為公分：
選取一個儲存格（例如本例中的 E3），複製或輸入下列公式並按 Enter 鍵取得第一個結果。選中此結果儲存格後，拖曳自動填滿控點以取得其餘結果。
=CONVERT(B3,"in","cm")
將英寸轉換為毫米：
選取一個儲存格（例如本例中的 F3），複製或輸入下列公式並按 Enter 鍵取得第一個結果。選中此結果儲存格後，拖曳自動填滿控點以取得其餘結果。
=CONVERT(B3,"in","mm")
注意事項：
1.2 在 Excel 中使用公式將公分（CM）轉換為英尺和英寸
有些單位轉換無法透過 CONVERT 函數處理，例如將公分或公尺轉換為英尺和英寸，如下圖所示。這時需套用下列公式來完成。
1. 選取一個空白儲存格（例如本例中的 D2），輸入下列公式並按 Enter取得第一個結果。選中此結果儲存格後，拖曳自動填滿控點以取得其他結果。
=TRUNC(B2/2.54/12)&"' "&ROUND(MOD(B2/2.54,12),0)&"\"\""
注意：若要保留英寸的小數點後兩位，可套用下列公式。
=INT(CONVERT(B2,"cm","ft")) & "' " & TEXT(12*(CONVERT(B2,"cm","ft")-INT(CONVERT(B2,"cm","ft"))),"0.00") & "\"\""
1.3 在 Excel 中使用公式將公尺（M）轉換為英尺和英寸
若要將公尺轉換為英尺和英寸，如下圖所示，可使用下列公式。
1. 選取一個空白儲存格，例如 D2，輸入下列公式並按 Enter取得第一個結果。選中此結果儲存格後，拖曳自動填滿控點以取得其他英尺和英寸。
=TRUNC(B2*100/2.54/12)&"' "&ROUND(MOD(B2*100/2.54,12),0)&"\"\""
注意：若要在轉換後的英寸保留兩位小數，可套用下列公式。
=INT(CONVERT(B2,"m","ft")) & "' " & TEXT(12*(CONVERT(B2,"m","ft")-INT(CONVERT(B2,"m","ft"))),"0.00") & "\"\""
1.4 在 Excel 中使用公式將英尺和英寸與英寸互相轉換
如下面的截圖所示，若要將英尺和英寸的數值僅轉換為英寸，或反向操作，可嘗試下列公式。
將英尺和英寸轉換為英寸
若要將英尺和英寸轉換為英寸，可套用基於 LEFT、FIND、MID及 SUBSTITUTE 函數的公式如下。
選取一個儲存格以輸出第一個英寸數，複製或輸入下列公式並按 Enter 鍵。選中此結果儲存格後，拖曳自動填滿控點以取得所有英寸。
=LEFT(B3,FIND("'",B3)-1)*12+SUBSTITUTE(MID(B3,FIND("'",B3)+1,LEN(B3)),"\"","")
將英寸轉換為英尺和英寸
若要將英寸轉換為英尺和英寸，請依下列步驟操作。
選取一個儲存格，輸入下列公式並按 Enter取得第一個結果。選中此儲存格後，拖曳自動填滿控點以取得所有英尺和英寸。請參考截圖：
=INT(B3/12)&"' "&MOD(B3,12)&"\"\""
1.5 在 Excel 中使用公式將角度與弧度互相轉換
本節將說明如何在 Excel 中將角度與弧度互相轉換。
將角度轉換為弧度
若要將角度轉換為弧度，如下圖所示，可使用 RADIANS 函數協助完成。
語法
=RADIANS(angle)
參數說明
選取一個空白儲存格（例如本例中的 D3），輸入下列公式並按 Enter 鍵，即可得到第一個弧度值。選中此結果儲存格後，拖曳自動填滿控點以取得其餘弧度。
=RADIANS(B3)
將弧度轉換為角度
Excel 提供 DEGREE 函數，可用於將弧度轉換為角度。請依下列步驟操作。
語法
=DEGREES(angle)
參數說明
選取一個空白儲存格（例如本例中的 D3），輸入下列公式並按 Enter 鍵，即可得到第一個角度值。選中此結果儲存格後，拖曳自動填滿控點以取得其餘角度。
=DEGREES(B3)
注意：您也可以直接使用下列公式。
=B3*180/PI()
其中 PI 函數會回傳數學常數 π 的值3.14159265358979。點此了解更多關於 PI 函數的資訊。
1.6 使用強大工具輕鬆進行各種單位的轉換
這裡推薦您使用 Kutools for Excel 的「單位轉換」功能。它將各類單位集中於一個對話框中，協助您輕鬆將數值從一種單位系統轉換為另一種。請依下列步驟了解如何使用。
其包含以下單位系統：
1. 選取包含欲轉換數值的儲存格區域，然後點擊 Kutools >文字（或不同工具列模式下的轉換）>單位轉換以啟用此功能。請參考截圖：
2. 在單位轉換對話框中，請依下列方式設定。
本例中，若要將角度從度轉換為弧度，請從下拉清單選擇「角度」，分別在左右單位框選擇「度」與「弧度」，然後點擊「確定」。
提示：
2. 在 Excel 中將數字轉換為不同進制
本節將說明如何在 Excel 中將數字轉換為不同進制。
2.1 使用內建函數將數字轉換為不同進制
Excel 提供多個函數，可用於不同進制間的轉換。例如，DEC2HEX 可將十進制數轉為十六進制，DEC2BIN 可將十進制數轉為二進制。本節將介紹如何利用這些內建函數進行進制轉換。
將十進制數轉換為十六進制
若要將十進制數轉換為十六進制，可套用 DEC2HEX 函數完成。
語法
DEC2HEX(number, [places])
參數說明
選取一個儲存格，輸入下列公式並按 Enter 鍵取得第一個十六進制數。選中此結果儲存格後，拖曳自動填滿控點以取得其餘十六進制數。
=DEC2HEX(B3)
下表列出了可用於數字進制轉換的函數。
請根據需求選擇對應函數並依上述步驟套用。
| 函數 | 功能描述 | 語法 |
| BIN2DEC | 將二進制數轉換為十進制數 | =BIN2DEC(number) |
| BIN2HEX | 將二進制數轉換為十六進制數 | =BIN2HEX(number, [places]) |
| BIN2OCT | 將二進制數轉換為八進制數 | =BIN2OCT(number, [places]) |
| DEC2HEX | 將十進制數轉換為十六進制數 | =DEC2HEX(number, [places]) |
| DEC2BIN | 將十進制數轉換為二進制 | =DEC2BIN(number, [places]) |
| DEC2OCT | 將十進制數轉換為八進制數 | =DEC2OCT(number, [places]) |
| HEX2DEC | 將十六進制數轉換為十進制數 | =HEX2DEC(number) |
| HEX2BIN | 將十六進制數轉換為二進制 | =HEX2BIN(number, [places]) |
| HEX2OCT | 將十六進制數轉換為八進制數 | =HEX2OCT(number, [places]) |
| OCT2DEC | 將八進制數轉換為十進制數 | =OCT2DEC(number) |
| OCT2HEX | 將八進制數轉換為十六進制數 | =OCT2HEX(number, [places]) |
| OCT2BIN | 將八進制數轉換為二進制 | =OCT2BIN(number, [places]) |
2.2 使用強大工具輕鬆將數字轉換為不同進制
雖然上述每個函數都很容易使用，但也容易混淆。Kutools for Excel 的「進制轉換」功能將所有進制集中於一個對話框，讓您在需要將數字從一種進制轉換為另一種時，能夠輕鬆切換。
1. 選取欲轉換進制的儲存格區域，然後點擊 Kutools >文字（或轉換）>進制轉換以啟用此功能。
2. 在進制轉換對話框中，請依下列方式設定。
本例中，若需將十進制數轉換為十六進制，請分別在左右框選擇「十進制」與「十六進制」。
提示：
3. 在 Excel 中數字與文字（以文字儲存的數字）之間的轉換
本節將說明如何在 Excel 中將數字轉換為文字，或將文字轉換為數字。
3.1 在 Excel 中將數字轉換為文字（以文字儲存的數字）
有時您可能需要將數字轉換為文字。例如，當您需要在試算表中儲存超過11 位數的長數字時，必須將其轉換為文字，以避免 Excel 自動轉為科學記號。這裡提供三種詳細方法協助您完成數字轉文字的操作。
若要將下表中的數字轉換為文字，可使用 TEXT 函數完成。
1. 選取一個儲存格（例如本例中的 D3），輸入下列公式並按 Enter 鍵取得第一個結果。選中此結果儲存格後，拖曳自動填滿控點以取得其餘結果。
=TEXT(B3,"0")
點此 了解更多有關 Excel TEXT 函數的資訊。
接下來需將公式轉換為值。
3. 全選結果儲存格，按下 Ctrl + C 複製，然後同時按下 Ctrl + Alt + V 或 Alt + E + S 鍵，開啟「選擇性粘貼」對話框。
4. 在選擇性粘貼對話框中，於粘貼區選擇值選項，然後點擊確定以儲存變更。請參考截圖：
此時您會看到每個儲存格左上角出現一個小綠三角形，表示數字已轉為文字。請參考截圖：
注意事項：
您也可以利用 Excel內建的「設定儲存格格式」指令，將一個區域的數字轉換為文字。
1. 選取欲轉換為文字的數字區域。
2.於選取區域上按右鍵，並從選單中選擇「設定儲存格格式」。
3. 在開啟的「設定儲存格格式」對話框中，於「數值」標籤下的「分類」方塊選擇「文字」，最後點擊「確定」以儲存變更。
此時選取的儲存格已設為文字格式。
「文字分欄」指令也可協助將一個區域的數字轉換為文字。請依下列步驟操作。
1. 選取欲轉換為文字的數字區域。
2. 點擊「資料」>「文字分欄」。
3. 在開啟的「文字分欄精靈」對話框中，點擊「下一步」以通過步驟 1 和 步驟2。於步驟3 對話框中，在「欄位資料格式」區選擇「文字」，然後點擊「完成」。請參考截圖：
此時選取的數字會自動在前方加上單引號，轉換為文字。
除了上述方法外，Kutools for Excel 的 「文字與數值之間的轉換」 功能可協助您輕鬆將一個區域的數字轉換為文字。請安裝後依下列步驟操作。
1. 選取欲轉換為文字的數字區域。
2. 點擊 Kutools >文字（或轉換）>文字與數值之間的轉換。
3. 在文字與數值之間的轉換對話框中，選擇數值至文字選項，然後點擊確定。
此時所有選取的數字已轉換為文字，如下圖所示。
3.2 在 Excel 中將文字（以文字儲存的數字）轉換為數字
有時工作表中的值看似數字，實際上卻是文字格式，無法參與運算。本節提供多種方法協助您將文字轉換為數字。
若文字格式儲存格左上角出現小綠三角形，可套用「文字至數值」指令輕鬆轉換。
1. 選取欲轉換為數字的文字儲存格。
2. 點擊警告符號，然後從下拉選單選擇「文字至數值」。
此時選取的文字已轉換為數字，如下圖所示。
對於帶有綠色三角形標記的儲存格，也可套用「選擇性粘貼」指令進行轉換。
1. 選取一個空白儲存格，按下 Ctrl + C 複製。
2. 選取欲轉換為數字的儲存格區域，然後同時按下 Ctrl + Alt + V 或 Alt + E + S 鍵。
3. 在選擇性粘貼對話框中，於粘貼區選擇值，於計算區選擇加法，然後點擊確定。
請參考下圖：
此時選取的儲存格立即轉換為數字。
若數字已設為文字格式（如下圖所示，左上角無綠三角形），可手動將儲存格格式改為數值完成轉換。
1. 選取欲轉換為一般數字的文字格式數字區域。
2.於選取區域上按右鍵，選擇「設定儲存格格式」。
3. 在開啟的「設定儲存格格式」對話框中，停留於「數值」標籤，並依下列方式設定。
此時選取的文字格式數字已轉換為一般數字。
這裡推薦 Kutools for Excel 的「文字與數值之間的轉換」 功能。利用此功能，您可輕鬆將選取區域或多個區域內的文字轉換為數字。
請依下列步驟套用此功能。
1. 選取欲轉換為數字的文字儲存格。
2. 點擊 Kutools >文字（或轉換）>文字與數值之間的轉換。
3. 在「文字與數值之間的轉換」對話框中，選擇「文字至數值」選項，然後點擊「確定」。
此時選取區域內的文字立即轉換為數字。
4. 在 Excel 中進行貨幣轉換
假設您有一份以美元為單位的大型貨幣報表，想將其轉換為本國貨幣（如歐元）。預設情況下，Excel 並未內建貨幣轉換工具。本節將介紹兩種方法，協助您在 Excel 中進行任意兩種貨幣間的轉換。
4.1 在 Excel 中根據匯率進行任意兩種貨幣間的轉換
在使用此方法前，需先查詢兩種貨幣間的最新匯率。本例需將美元轉換為歐元，因此使用美元與歐元的當前匯率：1 USD =0.95 EUR。
1. 在空白儲存格（如本例中的 D3）輸入匯率0.95。
2. 選取 E3 儲存格，輸入下列公式並按 Enter 鍵，即可將第一筆美元轉換為歐元。選中此結果儲存格後，拖曳自動填滿控點以取得其餘結果。
=C3*$D$3
此時所有美元已轉換為歐元，如上圖所示。
4.2 使用強大工具輕鬆進行任意兩種貨幣間的轉換
每次需要進行貨幣轉換時都要查詢匯率相當麻煩。Kutools for Excel 的「匯率轉換」功能將所有貨幣集中於一個對話框，讓您可直接依據最新匯率輕鬆進行貨幣轉換。
1. 選取欲轉換為其他貨幣的貨幣格式數字區域。
2. 點擊 Kutools >文字（或轉換）> 匯率轉換。
2. 在開啟的「匯率轉換」對話框中，請依下列方式設定。
注意：上述設定會以結果覆蓋原始數字。如需僅將結果輸出為批註，可點擊「填充選項」按鈕，在「匯率轉換」對話框中於「填充選項」對話框選擇「僅批註」（或「僅備註」），指定批註或備註內容後關閉對話框。
5. 在 Excel 中進行時區轉換
本節將說明如何將時間從一個時區轉換到另一個時區。如下面的截圖所示，若要將 C3:C8 區域中的北京時間轉換為其他城市時間，可參考下列方法。
5.1 在 Excel 中使用公式將時間從一個時區轉換到另一個時區
下列公式可根據時差協助您將時間從一個時區轉換到另一個時區。
1. 首先需查明兩個時區間的時差。
本例中，我將對應時差輸入於 F3:F8 區域的每個儲存格。
例如，北京比紐約快12 小時，則在紐約旁的儲存格輸入時差 -12。請參考截圖：
2. 選取一個儲存格，輸入下列公式並按 Enter 鍵，即可取得紐約時間。選中此結果儲存格後，拖曳自動填滿控點以取得其他城市時間。
=MOD(C3+(F3/24),1)
注意：若處理同時包含日期與時間（如5/10/20222:55:00 PM）的資料，可套用下列公式。
=datetime+(hours/24)
6. 在 Excel 中進行阿拉伯數字與羅馬數字之間的轉換
若要在 Excel 中進行阿拉伯數字與羅馬數字間的轉換，可參考下列方法。
6.1 使用 ROMAN 函數將阿拉伯數字轉換為羅馬數字
Excel內建的 ROMAN 函數可將阿拉伯數字轉換為羅馬數字（文字）。
語法
ROMAN(number, [form])
參數說明
若要將下表中的數字轉換為羅馬數字，可依下列方式套用 ROMAN 函數。
1. 選取一個儲存格，輸入下列公式並按 Enter 鍵，即可將第一個阿拉伯數字轉換為羅馬數字。選中此儲存格後，拖曳自動填滿控點以取得其他結果。
=ROMAN(B3)
提示：點此了解更多關於 ROMAN 函數的資訊。
6.2 使用公式將羅馬數字轉換為阿拉伯數字
將阿拉伯數字轉換為羅馬數字很簡單，但若要將羅馬數字轉換為阿拉伯數字，則需較複雜的公式。請依下列步驟操作。
1. 選取一個空白儲存格（如本例中的 D3），輸入下列公式並按 Enter 鍵取得第一個結果。選中此結果儲存格後，拖曳自動填滿控點以取得其餘結果。
=MATCH(B3,INDEX(ROMAN(ROW(INDIRECT("1:4000"))),0),0)
注意：公式中的 B3 為欲轉換為羅馬數字的阿拉伯數字儲存格，可依需求更改。
6.3 使用強大工具輕鬆進行阿拉伯數字與羅馬數字之間的轉換
記憶不同公式來進行阿拉伯數字與羅馬數字間的轉換較為繁瑣。這裡推薦 Kutools for Excel 的「羅馬與阿拉伯數字之間的轉換 」工具，僅需幾次點擊即可輕鬆完成轉換。
1. 選取欲轉換的阿拉伯數字或羅馬數字區域。
2. 點擊 Kutools >文字（或轉換）> 羅馬與阿拉伯數字之間的轉換。
3. 在「羅馬與阿拉伯數字之間的轉換」對話框中，根據原始資料選擇「阿拉伯轉羅馬數字」或「羅馬轉阿拉伯數字」選項，然後點擊「確定」。請參考截圖：
此時選取的資料會立即轉換為羅馬數字或阿拉伯數字。
7. 在 Excel 中將公式轉換為結果
當將一組公式儲存格複製並貼到新位置時，結果會隨著儲存格參照動態變化。若希望複製公式時結果保持不變，需將公式轉換為其計算結果。本節介紹兩種方法協助您將公式替換為結果。
7.1 使用「選擇性粘貼」指令將公式轉換為結果
可利用 Excel 的「選擇性粘貼」指令，將一組公式轉換為其結果。
1. 選取欲轉換為結果的公式儲存格，然後按下 Ctrl + C 複製。
2. 若要直接以結果取代原公式，請選取原區域的第一個儲存格。若要將結果輸出至新位置，僅需選取新區域中的一個儲存格。然後於選取儲存格上按右鍵，從選單中選擇「值」。
此時公式已轉換為結果，如下圖所示。
7.2 一鍵快速將公式轉換為結果
若已安裝 Kutools for Excel，可利用其 「轉為實際值」功能，一鍵將所有公式轉換為結果。
1. 選取包含欲轉換公式的區域或多個區域。
2. 點擊 Kutools >轉為實際值。
此時選取區域內的所有公式立即轉換為結果。
8. 在 Excel 中將數字轉換為序數
如下面的截圖所示，若要將 B3:B12 區域中的數字轉換為序數，本節提供三種方法協助您完成。
8.1 使用公式將數字轉換為序數
可套用下列公式，將數字轉換為對應的序數。請依下列步驟操作。
1. 選取一個空白儲存格（如本例中的 C3），複製或輸入下列公式並按 Enter 鍵取得第一個序數。選中此結果儲存格後，拖曳自動填滿控點以取得其餘序數。
=B3&IF(OR(--RIGHT(B3,2)={11,12,13}),"th",IFERROR(CHOOSE(RIGHT(B3),"st","nd","rd"),"th"))
注意：B3 為欲轉換為序數的數字區域第一個儲存格，可依需求更改。
8.2 使用自訂函數將數字轉換為序數
若上述公式較為複雜，可套用下列自訂函數將數字轉換為序數。
1. 同時按下 Alt + F11 鍵，開啟 Microsoft Visual Basic for Applications 視窗。
2. 在開啟的 Microsoft Visual Basic for Applications 視窗中，點擊「插入」>「模組」，然後將下列 VBA 程式碼貼入模組視窗。
VBA 程式碼：將數字轉換為序數
Function Addth(pNumber As String) As String
'Updateby20220516
Select Case CLng(VBA.Right(pNumber, 1))
Case 1
Addth = pNumber & "st"
Case 2
Addth = pNumber & "nd"
Case 3
Addth = pNumber & "rd"
Case Else
Addth = pNumber & "th"
End Select
Select Case VBA.CLng(VBA.Right(pNumber, 2))
Case 11, 12, 13
Addth = pNumber & "th"
End Select
End Function
3. 按下 Alt + Q 鍵關閉 Microsoft Visual Basic for Applications 視窗。
4. 選取欲轉換為序數的第一個數字旁的空白儲存格，輸入下列公式並按 Enter 鍵取得結果。選中此結果儲存格後，拖曳自動填滿控點以取得其餘結果。
=Addth(B3)
8.3 一鍵快速將數字轉換為序數
對於 Excel 新手而言，前述兩種方法可能較難操作。這裡推薦 Kutools for Excel 的「轉換數字為序數 」功能，僅需一鍵即可批次將數字轉換為序數。
如下面的示範所示，只需選取欲轉換為序數的儲存格區域，然後點擊 Kutools >文字 >轉換數字為序數。
此時所有選取的數字已轉換為序數，同時會跳出對話框提示成功轉換的儲存格數量，點擊「確定」。
9. 在 Excel 中將數字轉換為文字
本節將完整說明如何在 Excel 中將數字轉換為文字。
9.1 使用自訂函數將數字轉換為英文單詞
如下面的截圖所示，若要在 Excel 中將數字顯示為英文單詞，可套用下列自訂函數。請嘗試操作。
1. 按下 Alt + F11 鍵開啟 Microsoft Visual Basic for Applications 視窗。
2. 在開啟的 Microsoft Visual Basic for Applications 視窗中，點擊「插入」>「模組」，然後將下列 VBA 程式碼貼入模組視窗。
VBA 程式碼：將數字轉換為英文單詞
Function NumberstoWords(ByVal MyNumber)
'Update by Extendoffice 20220516
Dim xStr As String
Dim xFNum As Integer
Dim xStrPoint
Dim xStrNumber
Dim xPoint As String
Dim xNumber As String
Dim xP() As Variant
Dim xDP
Dim xCnt As Integer
Dim xResult, xT As String
Dim xLen As Integer
On Error Resume Next
xP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ")
xNumber = Trim(Str(MyNumber))
xDP = InStr(xNumber, ".")
xPoint = ""
xStrNumber = ""
If xDP > 0 Then
xPoint = " point "
xStr = Mid(xNumber, xDP + 1)
xStrPoint = Left(xStr, Len(xNumber) - xDP)
For xFNum = 1 To Len(xStrPoint)
xStr = Mid(xStrPoint, xFNum, 1)
xPoint = xPoint & GetDigits(xStr) & " "
Next xFNum
xNumber = Trim(Left(xNumber, xDP - 1))
End If
xCnt = 0
xResult = ""
xT = ""
xLen = 0
xLen = Int(Len(Str(xNumber)) / 3)
If (Len(Str(xNumber)) Mod 3) = 0 Then xLen = xLen - 1
Do While xNumber <> ""
If xLen = xCnt Then
xT = GetHundredsDigits(Right(xNumber, 3), False)
Else
If xCnt = 0 Then
xT = GetHundredsDigits(Right(xNumber, 3), True)
Else
xT = GetHundredsDigits(Right(xNumber, 3), False)
End If
End If
If xT <> "" Then
xResult = xT & xP(xCnt) & xResult
End If
If Len(xNumber) > 3 Then
xNumber = Left(xNumber, Len(xNumber) - 3)
Else
xNumber = ""
End If
xCnt = xCnt + 1
Loop
xResult = xResult & xPoint
NumberstoWords = xResult
End Function
Function GetHundredsDigits(xHDgt, xB As Boolean)
Dim xRStr As String
Dim xStrNum As String
Dim xStr As String
Dim xI As Integer
Dim xBB As Boolean
xStrNum = xHDgt
xRStr = ""
On Error Resume Next
xBB = True
If Val(xStrNum) = 0 Then Exit Function
xStrNum = Right("000" & xStrNum, 3)
xStr = Mid(xStrNum, 1, 1)
If xStr <> "0" Then
xRStr = GetDigits(Mid(xStrNum, 1, 1)) & "Hundred "
Else
If xB Then
xRStr = "and "
xBB = False
Else
xRStr = " "
xBB = False
End If
End If
If Mid(xStrNum, 2, 2) <> "00" Then
xRStr = xRStr & GetTenDigits(Mid(xStrNum, 2, 2), xBB)
End If
GetHundredsDigits = xRStr
End Function
Function GetTenDigits(xTDgt, xB As Boolean)
Dim xStr As String
Dim xI As Integer
Dim xArr_1() As Variant
Dim xArr_2() As Variant
Dim xT As Boolean
xArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
xArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
xStr = ""
xT = True
On Error Resume Next
If Val(Left(xTDgt, 1)) = 1 Then
xI = Val(Right(xTDgt, 1))
If xB Then xStr = "and "
xStr = xStr & xArr_1(xI)
Else
xI = Val(Left(xTDgt, 1))
If Val(Left(xTDgt, 1)) > 1 Then
If xB Then xStr = "and "
xStr = xStr & xArr_2(Val(Left(xTDgt, 1)))
xT = False
End If
If xStr = "" Then
If xB Then
xStr = "and "
End If
End If
If Right(xTDgt, 1) <> "0" Then
xStr = xStr & GetDigits(Right(xTDgt, 1))
End If
End If
GetTenDigits = xStr
End Function
Function GetDigits(xDgt)
Dim xStr As String
Dim xArr_1() As Variant
xArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ")
xStr = ""
On Error Resume Next
xStr = xArr_1(Val(xDgt))
GetDigits = xStr
End Function3. 按下 Alt + Q 鍵關閉 Microsoft Visual Basic for Applications 視窗。
4. 選取一個空白儲存格以輸出第一個結果（如本例中的 D3），輸入下列公式並按 Enter。選中此結果儲存格後，拖曳自動填滿控點以取得其餘結果。
=NumberstoWords(B3)
9.2 使用自訂函數將數字轉換為貨幣大寫
處理財務相關數字時，可能需要將數字轉換為貨幣大寫（如下圖所示）。這裡提供一個自訂函數，協助您將數字轉換為對應的英文貨幣大寫。
1. 按下 Alt + F11 鍵開啟 Microsoft Visual Basic for Applications 視窗。
2. 在開啟的 Microsoft Visual Basic for Applications 視窗中，點擊「插入」>「模組」，然後將下列 VBA 程式碼貼入模組視窗。
VBA 程式碼：將數字轉換為英文貨幣大寫
Function SpellNumberToCurrency(ByVal pNumber)
'Update by Extendoffice 20220516
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
xHundred = ""
xValue = Right(pNumber, 3)
If Val(xValue) <> 0 Then
xValue = Right("000" & xValue, 3)
If Mid(xValue, 1, 1) <> "0" Then
xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
End If
If Mid(xValue, 2, 1) <> "0" Then
xHundred = xHundred & GetTens(Mid(xValue, 2))
Else
xHundred = xHundred & GetDigit(Mid(xValue, 3))
End If
End If
If xHundred <> "" Then
Dollars = xHundred & arr(xIndex) & Dollars
End If
If Len(pNumber) > 3 Then
pNumber = Left(pNumber, Len(pNumber) - 3)
Else
pNumber = ""
End If
xIndex = xIndex + 1
Loop
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
SpellNumberToEnglish = Dollars & Cents
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
Select Case Val(pTens)
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
Select Case Val(Left(pTens, 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(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
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 Function3. 按下 Alt + Q 鍵關閉 Microsoft Visual Basic for Applications 視窗。
4. 選取一個空白儲存格以輸出第一個結果（如本例中的 D3），輸入下列公式並按 Enter。選中此結果儲存格後，拖曳自動填滿控點以取得其餘結果。
=SpellNumberToCurrency(B3)
9.3 使用強大工具輕鬆將數字轉換為英文/貨幣大寫
上述程式碼對於 Excel 新手而言較為繁瑣。若已安裝 Kutools for Excel，可利用其「金額轉大寫」功能，僅需幾次點擊即可將一組數字批次轉換為英文單詞或英文貨幣大寫。
1. 選取欲轉換為英文單詞或英文貨幣大寫的儲存格區域，然後點擊 Kutools >文字 > 金額轉大寫。請參考截圖：
2. 在「金額轉大寫」對話框中，請依下列方式設定。
將選取的數字轉換為英文單詞：
將選取的數字轉換為英文貨幣大寫：
此時選取的數字會根據您的設定轉換為英文單詞或英文貨幣大寫。
10. 在 Excel 中將數字轉換為日期
本節提供多種方法，協助您將序列號或8 位數字轉換為 Excel 可識別的日期。
10.1 在 Excel 中將序列號轉換為日期
有時 Excel會回傳5 位數的序列號而非您輸入的日期（如下圖所示）。這是因為 Excel內部以序列號儲存日期與時間。若要將序列號轉換為日期，可嘗試下列三種方法。
只需更改儲存格格式，即可輕鬆將一組序列號轉換為日期。請依下列步驟操作。
1. 選取欲轉換為日期的序列號區域，於選取區域上按右鍵，選擇「設定儲存格格式」。
2. 在「設定儲存格格式」對話框中，請依下列方式設定：
此時選取的序列號已轉換為日期，如下圖所示。
也可套用下列公式，將序列號轉換為日期。
1. 選取一個儲存格，輸入下列公式並按 Enter 鍵，即可將第一個序列號轉換為日期。選中此結果儲存格後，拖曳自動填滿控點以取得其他日期。
=TEXT(B3,"m/d/yyyy")
注意：公式中的「m/d/yyyy」可依需求更改為其他日期格式。
您是否嘗試過使用第三方工具提升 Excel 工作效率？若想提升生產力並節省時間，推薦您使用 Kutools for Excel 的「應用日期格式」功能，可將一組或多組序列號快速轉換為所需日期格式。
1. 選取包含欲轉換為日期的序列號的一個或多個區域。
2. 點擊 Kutools > 格式 > 應用日期格式。
3. 在「應用日期格式」對話框中，請依下列方式設定：
注意：選擇日期格式後，可於預覽框中即時查看結果。
此時選取區域內的所有數字立即轉換為日期。
10.2 將8 位數字轉換為 Excel 可識別的日期
若要將8 位數字轉換為 Excel 可識別的日期，可結合 DATE、RIGHT、LEFT及 MID 函數。請依下列步驟操作。
1. 選取一個儲存格，輸入下列公式並按 Enter 鍵，即可將第一個8 位數字轉換為日期。選中此結果儲存格後，拖曳自動填滿控點以取得其餘日期。
=DATE(LEFT(B3,4),MID(B3,5,2),RIGHT(B3,2))
內建的「文字分欄」指令可協助將一組8 位數字轉換為 Excel 可識別的日期。
1. 選取8 位數字區域，點擊「日期」>「文字分欄」。
2. 在「文字分欄」對話框中，請依下列方式設定：
此時所有選取的8 位數字已轉換為 Excel 可識別的日期。
這裡介紹 Kutools for Outlook 的「日期識別」功能，協助您一鍵將一組或多組8 位數字轉換為 Excel 可識別的日期。
1. 選取一組或多組8 位數字。
2. 點擊 Kutools >文字 > 日期識別。此時所有選取的數字立即轉換為日期，如下圖所示。
11. 在 Excel 中將數字轉換為時間或反向操作
本節將說明如何在 Excel 中將數字轉換為時間，或將時間轉換為數字。
11.1 在 Excel 中將數字轉換為時間（hh:mm:ss）
若需將小時、分鐘或秒數的小數格式轉換為有效的 Excel 時間，可參考下列對應方法。
若要將小時小數轉換為 hh:mm:ss 格式，需將數字除以24（代表一天的總小時數），然後將儲存格格式設為時間。請依下列步驟操作。
1. 選取一個儲存格，輸入下列公式並按 Enter 鍵。選中此結果儲存格後，拖曳自動填滿控點至其他儲存格。
=B3/$C$3
本例中，C3 儲存格輸入了24。您也可直接在公式中輸入24，例如：
=B3/24
2. 全選結果儲存格，然後同時按下 Ctrl +1 開啟「設定儲存格格式」對話框。
3. 在「設定儲存格格式」對話框中，請依下列方式設定：
此時結果已設為 hh:mm:ss 時間格式，如下圖所示。
若要將分鐘小數轉換為 hh:mm:ss 格式，需將數字除以1440（一日總分鐘數），然後將儲存格格式設為時間。步驟同上。
1. 選取一個儲存格，輸入下列公式並按 Enter 鍵取得第一個結果。選中此結果儲存格後，拖曳自動填滿控點至其他儲存格。
=B3/$C$3
本例中，C3 儲存格輸入了1440。您也可直接在公式中輸入1440，例如：
=B3/1440
2. 然後將結果儲存格設為時間格式。請參考上述步驟。
最後您將得到如下圖所示的時間。
將秒數小數轉換為 hh:mm:ss 格式的步驟同上，只需將除數改為86400（一日總秒數），然後將儲存格格式設為時間。
本例中公式如下：
=B3/$C$3
或
=B3/86400
然後將結果儲存格設為時間格式。請參考上述步驟。
最後您將得到如下圖所示的時間。
11.2 在 Excel 中將時間（hh:mm:ss）轉換為小數數字
本節將介紹不同公式，協助您將時間轉換為小時、分鐘、秒。
與上述方法相反，若要將時間轉換為小時，需將時間乘以24（一日總小時數）。
1. 套用下列公式：
=B3*$C$3
其中 B3 為時間值，$C$3 為24。
您也可直接在公式中輸入24，如下：
=B3*24
套用公式後，結果會以時間格式顯示。
注意：若不需保留小數部分，請套用下列公式。
=INT(B3*24)
2.需將結果儲存格設為數值格式。
選取結果儲存格，按下 Ctrl +1 開啟 「設定儲存格格式」對話框。在對話框中於「分類」清單選擇「數值」，於「小數位數」方塊指定小數位數，然後點擊「確定」。
此時結果儲存格會以數字顯示，如下圖所示。
若要將時間轉換為分鐘，只需將時間乘以1440（一日總分鐘數）。
套用下列公式：
=B3*$C$3
其中 B3 為時間值，$C$3 為1440。
您也可直接在公式中輸入1440，如下：
=B3*1440
注意：若不需保留小數部分，請套用下列公式。
=INT(B3*1440)
然後將結果儲存格設為數值格式。請參考上述步驟。
最後您將得到如下圖所示的分鐘數。
若要將時間轉換為秒，需將時間乘以86400（一日總秒數）。
套用下列公式：
=B3*$C$3
其中 B3 為時間值，$C$3 為86400。
您也可直接在公式中輸入86400，如下：
=B3*86400
注意：若不需保留小數部分，請套用下列公式。
=INT(B3*86400)
然後將結果儲存格設為數值格式。請參考上述步驟。
最後您將得到如下圖所示的秒數。
套用上述公式後，仍需更改儲存格格式以顯示實際小數數字。若已安裝 Kutools for Excel，其 「時間轉換」 功能可協助您直接將時間轉換為小時、分鐘或秒，僅需幾次點擊。
1. 選取欲轉換為小時、分鐘或秒的時間區域。
2. 點擊 Kutools >文字 > 時間轉換。
此時所有選取的時間已轉換為小時、分鐘或秒，同時會跳出對話框提示成功轉換的儲存格數量，點擊「確定」關閉。
以上就是 Excel 儲存格轉換教學。希望上述方法能協助您解決問題，若有更多儲存格轉換相關問題，歡迎留言。
最佳辦公效率工具
| 🤖 | Kutools AI 助手：基於智能執行方式革新數據分析：智能執行 | 生成代碼 | 創建自訂公式 | 分析數據並生成圖表 | 調用 Kutools 函數… |
| 熱門功能：查找、標記重複值或識別重複項 | 刪除空行 | 合併列或單元格而不丟失數據 | 四捨五入無需公式 ... | |
| 高級 LOOKUP： 多條件 VLookup | 多值 VLookup | 多表查找 | 模糊查找 .... | |
| 高級下拉列表：快速創建下拉列表 | 依賴下拉列表 | 多選下拉列表 .... | |
| 列管理器： 添加特定數量的列 | 移動列 | 切換隱藏列的可見狀態 | 比較區域和列 ... | |
| 特色功能：網格聚焦 | 設計檢視 | 增強編輯欄 | 工作簿與工作表管理器 | 資源庫（自動文本） | 日期提取器 | 合併資料 | 加密/解密儲存格 | 按列表發送電子郵件 | 超級篩選 | 特殊篩選（篩選粗體/斜體/刪除線...） ... | |
| 頂級 15 種工具集: 12 個文本工具（添加文本、刪除特定字符、...） | 50+ 圖表 類型（甘特圖、...） | 40+ 實用 公式（基於生日計算年齡、...） | 19 個插入工具（插入QR碼、根據路徑插入圖片、...） | 12 個轉換工具（金額轉大寫、匯率轉換、...） | 7 個合併與分割工具（高級合併行、分割儲存格、...） | ... 還有更多 |
使用 Kutools for Excel 提升您的 Excel 技巧，體驗前所未有的高效。 Kutools for Excel 提供超過 300 種高級功能來提高生產力並節省時間。 點擊這裡獲取您最需要的功能...
Office Tab 將標籤式界面帶到 Office，讓您的工作更加輕鬆
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中啟用標籤式編輯和閱讀。
- 在同一窗口的新標籤中打開和創建多個文檔，而不是在新窗口中。
- 將您的生產力提高 50%，每天為您減少數百次鼠標點擊！