Excel單元格轉換教程——轉換單位、文本和數字、貨幣、時區等。

功能	產品描述	句法
二進制2DEC	將二進制數轉換為十進制數	=BIN2DEC(數字)
二進制十六進制	將二進制數轉換為十六進制數	=BIN2HEX(數字, [地點])
BIN2OCT	將二進制數轉換為八進制數	=BIN2OCT（數字，[地點]）
十二進制	將十進制數轉換為十六進制數	=DEC2HEX(數字, [地點])
十二月	將十進制數轉換為二進制	=DEC2BIN（數字，[地點]）
2月XNUMX日	將十進制數轉換為八進制數	=DEC2OCT（數字，[地點]）
十六進制	將十六進制數轉換為十進制數	=HEX2DEC(數字)
十六進制	將十六進制數轉換為二進制數	=HEX2BIN(數字, [地點])
十六進制2OCT	將十六進制數轉換為八進制數	=HEX2OCT（數字，[地點]）
2月XNUMX日	將八進制數轉換為十進制數	=OCT2DEC(數字)
OCT2HEX	將八進制數轉換為十六進制數	=OCT2HEX(數字, [地點])
OCT2BIN	將八進制數轉換為二進制	=OCT2BIN（數字，[地點]）

2.2 使用神奇的工具輕鬆將數字轉換為不同的數字系統

雖然上述每個功能都很容易使用，但它們也很容易混淆。這裡， Excel的Kutools是 數制轉換 功能在一個對話框中收集所有數字系統，當您需要將數字從一種數字系統轉換為另一種數字系統時，可幫助您輕鬆地在數字系統之間導航。

1. 選擇要將數字從一個系統轉換為另一個系統的單元格範圍，然後單擊啟用該功能 庫工具 > 內容 轉換） > 數制轉換.

2。在裡面 數制轉換 對話框，您需要配置如下。

2.1) 在左側框中 轉換類型 部分，選擇所選號碼的號碼系統；

2.2）在右側框中，選擇結果的數字系統；

2.3）點擊 OK 按鈕。看截圖：

在這種情況下，我需要將十進制數轉換為十六進制，所以我選擇 十進制 和 十六進制 分別從左側和右側框中。

提示：

1) 您可以在預覽框。

2) 您可以根據需要輕鬆導航到不同的數字系統。

3. Excel中數字和文本之間的轉換（數字存儲為文本）

本節將向您展示如何在 Excel 中將數字轉換為文本或將文本轉換為數字。

3.1 Excel中將數字轉換為文本（數字存儲為文本）

有時您可能需要將數字轉換為文本。例如，您需要在電子表格中存儲一個超過 11 位的長數字，您需要將該數字轉換為文本，以防 Excel 將其更改為科學通知。在這裡，我們提供了三種方法來幫助您詳細地將數字轉換為文本。

3.1.1 使用 TEXT 函數將數字轉換為文本

要將下表中的數字轉換為文本，可以使用 TEXT 函數來完成。

1. 選擇一個單元格（在本例中為 D3），輸入下面的公式，然後按 Enter 獲得第一個結果的關鍵。選擇此結果單元格並向下拖動其自動填充句柄以獲取其餘結果。

=TEXT(B3,"0")

點擊這裡了解更多關於 TEXT Excel中的功能。

現在您需要將公式轉換為值。

3. 選擇所有結果單元格，按 按Ctrl + C 鍵複製它們，然後按 按Ctrl + 其他 + V，或者其他 + E + S 同時顯示 選擇性粘貼 對話框。

4。在裡面 選擇性粘貼 對話框中，選擇 價值觀 在選項貼部分，然後單擊 OK 保存更改。看截圖：

然後你可以看到選擇中每個單元格的左上角出現一個小的綠色三角形。數字現在轉換為文本。看截圖：

筆記：

1) 轉換後的數字不能用於計算。

2) 上述公式轉換後不保留任何小數位。為了保留數字的小數部分，您需要更改 TEXT 函數中的第二個參數，如下所示。

以號碼 1263.25 為例：

保留一位小數: =文本（1263.25，“0.0”），結果將是 1263.3。

保留兩位小數: =文本（1263.25，“0.00”），結果將是 1263.25。

3）如果數字列表中只有幾個數字需要轉成文本，比如二三，可以直接在數字前加撇號。

3.1.2 使用單元格格式命令將數字轉換為文本

您還可以使用內置的將一系列數字轉換為文本 單元格格式 Excel 中的命令。

1. 選擇要轉換為文本的數字範圍。

2.右鍵單擊選擇，然後選擇 單元格格式 從上下文菜單。

3.在開幕 單元格格式 對話框中選擇文本，在類別下框 聯繫電話 選項卡，最後單擊 OK 按鈕保存更改。

然後選定的單元格被格式化為文本。

3.1.3 使用 Text to Columns 命令將數字轉換為文本

Text to Columns 命令還可以幫助將一系列數字轉換為 Excel 中的文本。請執行以下操作。

1. 選擇要轉換為文本的數字範圍。

2。點擊數據 > 文本到列.

3.在開幕 將文本轉換為列嚮導 對話框中，單擊 下一頁 按鈕通過步驟 1 和 步驟 2 對話框。在裡面 步驟 3 對話框中，選擇文本在選項 列數據格式 部分，然後單擊完按鈕。看截圖：

您可以看到所選數字已轉換為文本，並在每個數字前添加撇號。

3.1.4 使用神奇的工具將數字轉換為文本

除了以上方法， Kutools for Excel's 在文字和數字之間轉換 功能可以幫助您輕鬆地將一系列數字轉換為文本。請安裝它並嘗試如下。

1. 選擇要轉換為文本的數字範圍。

2。點擊 庫工具 > 內容 轉換） > 在文字和數字之間轉換.

3。在裡面 在文字和數字之間轉換 對話框中，選擇 聯繫電話 到文本 選項，然後單擊 OK 按鈕。

然後所有選定的數字都將轉換為文本，如下面的屏幕截圖所示。

3.2 在Excel中將文本（數字存儲為文本）轉換為數字

有時工作表中的值看起來像數字，但它們是文本值，可能不會用於計算。本節提供了幾種方法來幫助您在 Excel 中將文本轉換為數字。

3.2.1 使用轉換為數字選項將文本轉換為數字

如果文本格式單元格的左上角出現一個小的綠色三角形，您可以應用轉換為數字命令將其輕鬆轉換為數字。

1. 選擇要轉換為數字的文本單元格。

2. 點擊警告標誌，然後選擇 轉換成數字 從下拉菜單中選擇。

然後選定的文本將轉換為數字，如下面的屏幕截圖所示。

3.2.2 使用選擇性粘貼命令將文本轉換為數字

對於標有綠色三角形的單元格，您還可以應用粘貼特殊命令將它們轉換為數字。

1. 選擇一個空白單元格，按 按Ctrl + C 鍵複製它。

2. 選擇要轉換為數字的單元格區域，然後按 按Ctrl + 其他 + V，或者其他 + E + S 鍵同時。

3。在裡面 選擇性粘貼 對話框中選擇 價值觀 ，在貼部分中，選擇加入，在手術部分，然後單擊 OK 按鈕。

看下面的截圖：

然後選定的單元格立即轉換為數字。

3.2.3 通過更改單元格格式將文本轉換為數字

如果數字已被格式化為文本，如下面的屏幕截圖所示（單元格的左上角沒有出現小的綠色三角形），您可以手動將單元格格式更改為數字以完成轉換。

1. 選擇要轉換為常規數字的文本格式數字範圍。

2.右鍵單擊選擇並選擇 單元格格式 從上下文菜單。

3.在開幕 單元格格式 對話框，留在 聯繫電話 選項卡，然後進行如下配置。

3.1）選擇 聯繫電話 ，在類別框;

3.2）更改 十進制 去的地方 0;

3.3）點擊 OK 保存更改。

然後將選定的文本格式的數字轉換為常規數字。

3.2.4 使用神奇的工具輕鬆將文本轉換為數字

在這裡我們推荐一個方便的工具—— Excel的Kutools“ 在文字和數字之間轉換 特徵。使用此功能，您可以輕鬆地將選擇或多個選擇中的文本輕鬆轉換為數字。

請執行以下操作以應用此功能。

1. 選擇要轉換為數字的文本單元格。

2。點擊 庫工具 > 內容 轉換） > 在文字和數字之間轉換.

3。在裡面 在文字和數字之間轉換 對話框中，選擇 文字轉數字 選項，然後單擊 OK 按鈕。

然後所選範圍內的文本立即轉換為數字。

4. 在 Excel 中轉換貨幣

假設您有一份以美元為單位的大型貨幣報告，並且您想將美元轉換為您所在國家/地區的貨幣，例如歐元。默認情況下，Excel 不包含任何用於轉換貨幣的內置工具。在本節中，您將學習如何使用兩種方法在 Excel 中的任意兩種貨幣之間進行轉換。

4.1 在 Excel 中使用匯率在任意兩種貨幣之間進行轉換

在使用此方法之前，您需要了解兩種貨幣之間的當前匯率。在這種情況下，我需要將美元轉換為歐元，所以我使用美元和歐元之間的當前匯率：1 美元 = 0.95 歐元。

1.在空白單元格中輸入交換範圍0.95，例如本例中的D3。

2.選擇頂部單元格E3，輸入以下公式並按 Enter 將第一個美元轉換為歐元的關鍵。選擇此結果單元格，然後向下拖動其自動填充句柄以獲取其餘結果。

=C3*$D$3

現在所有美元都轉換為歐元，如上面的屏幕截圖所示。

4.2 使用神奇的工具輕鬆轉換任意兩種貨幣

每次需要在兩種貨幣之間進行轉換時，要找出兩種貨幣之間的當前匯率，這很煩人。 Excel的Kutools“ 貨幣兌換 功能在一個對話框中收集所有貨幣。有了它，您可以使用當前匯率輕鬆地將一種貨幣轉換為另一種貨幣。

1. 選擇要轉換為其他貨幣的貨幣格式數字範圍。

2。點擊 庫工具 > 內容 轉換） > 貨幣兌換.

2.在開幕 貨幣兌換 對話框，需要做如下設置。

2.1）點擊 更新率 按鈕獲取最新匯率；

2.2）在左側框中，選擇所選數字的貨幣。這裡我選擇 美元 - 美元.

2.3) 在右側框中，選擇結果的貨幣。這裡我選擇 EUR -歐元.

2.4）點擊 OK 按鈕開始轉換。

注意： 上述設置將用結果覆蓋原始數字。如果需要，您可以將結果作為註釋輸出：單擊 填充選項 按鈕在 貨幣兌換 對話框。在裡面 填充選項 對話框中，選擇 僅評論 只注意) 選項，指定註釋或註釋將包含的信息，然後關閉對話框。

5. Excel中時區之間的轉換

本節將向您展示如何將時間從一個時區轉換為另一個時區。如下圖所示，要將C3:C8範圍內的北京時間轉換為不同城市的時間，可以試試下面的方法。

5.1 使用公式將時間從一個時區轉換為另一個時區

以下公式可以幫助根據給定的時差將時間從一個時區轉換為另一個時區。

1、首先要搞清楚兩個時區的時差。

在這種情況下，我在 F3:F8 範圍的每個單元格中輸入相應的時間差。

例如，由於中國北京比美國紐約早 12 小時，我將時差 -12 輸入到紐約旁邊的單元格中。看截圖：

2. 選擇一個單元格，輸入以下公式，然後按 Enter 獲得紐約時間的關鍵。選擇此結果單元格並向下拖動其自動填充句柄以獲取其他城市的時間。

=MOD(C3+(F3/24),1)

注意： 當使用包含日期和時間的日期時，例如 5 年 10 月 2022 日下午 2:55:00，您可以應用以下公式。

=datetime+(hours/24)

6.在Excel中轉換阿拉伯數字和羅馬數字

要在 Excel 中轉換阿拉伯數字和羅馬數字，以下方法可以幫到您。

6.1 使用羅馬函數將阿拉伯數字轉換為羅馬數字

Excel 內置 ROMAN 函數可以將阿拉伯數字轉換為羅馬文本。

句法

ROMAN(number, [form])

參數

聯繫電話 （必需）：要轉換為羅馬數字的阿拉伯數字。

形成（可選）：您想要的羅馬數字類型。

要將下表中的數字轉換為羅馬數字，您可以應用 ROMAN 函數，如下所示。

1.選擇一個單元格，輸入以下公式並按 Enter 將第一個阿拉伯語轉換為羅馬。選擇此單元格並向下拖動其自動填充句柄以獲得其他結果。

=ROMAN(B3)

提示： 點擊即可了解更多關於這個 ROMAN 函數.

6.2 用公式將羅馬數字轉換為阿拉伯數字

使用 ROMAN 函數很容易將阿拉伯數字轉換為羅馬數字。但是，如果要將羅馬數字轉換為阿拉伯數字，則需要一個更複雜的公式才能完成。請執行以下操作。

1.選擇一個空白單元格，例如本例中的D3，輸入以下公式並按 Enter 獲得第一個結果的關鍵。選擇此結果單元格並向下拖動其自動填充句柄以獲取其餘結果。

=MATCH(B3,INDEX(ROMAN(ROW(INDIRECT("1:4000"))),0),0)

注意： 在公式中，B3 是包含要轉換為羅馬數字的阿拉伯數字的單元格。

6.3 使用神奇的工具輕鬆轉換阿拉伯數字和羅馬數字

記住Excel中阿拉伯數字和羅馬數字之間轉換的不同公式可能對我們來說很麻煩。這是一個方便的工具 - Excel的Kutools。隨著它 在羅馬和數字之間轉換 實用程序，只需單擊幾下，您就可以輕鬆地在阿拉伯數字和羅馬數字之間進行轉換。

1. 選擇要轉換的阿拉伯數字或羅馬數字的範圍。

2。點擊 庫工具 > 內容 轉換） > 在羅馬和數字之間轉換.

3。在裡面 在羅馬和數字之間轉換 對話框中，選擇 羅馬數字 or 羅馬數字 選項，取決於您選擇的原始數據，然後單擊 確定。 見截圖：

然後所選數據將立即轉換為羅馬數字或阿拉伯數字。

7. 將公式轉換為 Excel 中的結果

將一系列公式單元格複製並粘貼到新位置時，結果會隨著單元格引用而動態更改。如果要在將公式複制並粘貼到新位置時保持結果不變，則需要將公式轉換為其結果。本節演示了兩種有助於將 Excel 中的公式替換為結果的方法。

7.1 使用選擇性粘貼命令將公式轉換為結果

您可以使用 選擇性粘貼 Excel 中的命令。

1. 選擇帶有要轉換為結果的公式的單元格，然後按 Ct+ C 鍵複製它。

2.如果要直接用結果替換選擇中的公式，請選擇所選範圍的第一個單元格。要將結果輸出到新位置，只需在新範圍中選擇一個單元格。然後右鍵單擊選定的單元格並從上下文菜單中選擇值。

然後您可以看到公式已轉換為它們的結果，如下面的屏幕截圖所示。

7.2 一鍵快速將公式轉換為結果

如果你有 Excel的Kutools 已安裝，您可以應用它的 到實際 只需單擊一下即可將所有公式轉換為結果的功能。

1. 選擇一個或多個包含要轉換的公式的範圍。

2。點擊 庫工具 > 到實際.

然後，所選範圍內的所有公式都會立即轉換為它們的結果。

8. 在 Excel 中將數字轉換為序數

如下圖所示，要將 B3:B12 中列出的數字轉換為序數，本節提供了三種方法來幫助您完成。

8.1 用公式將數字轉換為序數

您可以應用以下公式將數字轉換為 Excel 中對應的序數。請執行以下操作。

1.選擇一個空白單元格（本例中為C3），複製或輸入下面的公式並按 Enter 獲取第一個數字的序數。選擇此結果單元格並向下拖動其自動填充句柄以獲取其餘的序數。

=B3&IF(OR(--RIGHT(B3,2)={11,12,13}),"th",IFERROR(CHOOSE(RIGHT(B3),"st","nd","rd"),"th"))

注意： B3 是包含要轉換為其序數的數字的範圍的第一個單元格。您可以根據需要更改它。

8.2 使用自定義函數將數字轉換為序數

如果上面的公式對您來說很複雜，您可以應用以下用戶定義的函數在 Excel 中將數字轉換為序數。

1。按其他 + F11 同時打開 Microsoft Visual Basic for Applications 窗口。

2.在開幕 Microsoft Visual Basic for Applications 窗口中，單擊插入 > 模塊然後將以下 VBA 代碼複製到模塊窗口中。

VBA 代碼：在 Excel 中將數字轉換為序數

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。按其他 + Q 關閉鍵 Microsoft Visual Basic for Applications 窗口。

4. 選擇要轉換為序數的第一個數字旁邊的空白單元格，輸入下面的公式，然後按 Enter 獲得結果的關鍵。選擇此結果單元格，向下拖動其自動填充句柄以獲取其餘結果。

=Addth(B3)

8.3 一鍵快速將數字轉為序數

對於Excel新手來說，以上兩種方法可能不太好處理。在這裡我們推薦 將數字轉換為序數 的效用 Excel的Kutools. 使用此功能，您只需單擊一下即可將一系列數字批量轉換為序數。

如以下演示所示，您只需選擇要將數字轉換為序數的單元格範圍，然後單擊 庫工具 > 內容 > 將數字轉換為序數.

然後將所有選定的數字轉換為序數。同時，會彈出一個對話框告訴您已成功轉換了多少個單元格，單擊 OK 按鈕。

單擊以了解有關此功能的更多信息.

9. 在 Excel 中將數字轉換為單詞

在本節中，您將完全了解如何在 Excel 中將數字轉換為單詞。

9.1 使用自定義函數將數字轉換為英文單詞

如下圖所示，要在 Excel 中將數字顯示為英文單詞，下面的自定義函數可以幫到你。請試一試。

1。按其他 + 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 Function

3。按其他 + Q 關閉鍵 Microsoft Visual Basic for Applications 窗口。

4. 選擇一個空白單元格輸出第一個結果，例如本例中的 D3。輸入以下公式並按 進入。 選擇此結果單元格，向下拖動其自動填充句柄以獲取其餘結果。

=NumberstoWords(B3)

9.2 使用自定義函數將數字轉換為通貨詞

在處理金融相關的數字時，您可能需要數字的單詞形式（見下面的屏幕截圖）。在這裡，我們演示了一個用戶定義的函數，可幫助您將數字轉換為 Excel 中與其等效的英文貨幣單詞。

1。按其他 + 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 Function

3。按其他 + Q 關閉鍵 Microsoft Visual Basic for Applications 窗口。

4. 選擇一個空白單元格輸出第一個結果，例如本例中的 D3。輸入以下公式並按 Ent呃。選擇此結果單元格，向下拖動其自動填充句柄以獲取其餘結果。

=SpellNumberToCurrency(B3)

9.3 使用神奇的工具輕鬆將數字轉換為英語/貨幣單詞

以上代碼對於 Excel 新手來說有些麻煩。如果你有 Excel的Kutools 安裝後，可以應用它 數字到單詞 只需單擊幾下，即可根據需要輕鬆將一系列數字轉換為英語單詞或英語貨幣單詞。

1. 選擇您要將數字轉換為英文單詞或英文貨幣單詞的單元格範圍，然後單擊 庫工具 > 內容 > 數字到單詞。看截圖：

2。在裡面 數字到貨幣單詞 對話框，您需要配置如下。

將所選數字轉換為英文單詞:

2.1）選擇 English 中的單選按鈕語言部分;

2.2）檢查 不轉換為貨幣 複選框

2.3）點擊 OK 按鈕。

將所選數字轉換為英文貨幣單詞:

2.1）選擇 English 中的單選按鈕語言部分;

2.2）點擊 OK 按鈕。

然後根據您的配置將所選數字轉換為英文單詞或英文貨幣單詞。

單擊以了解有關此功能的更多信息.

10. 在 Excel 中將數字轉換為日期

本節提供一些方法來幫助您在 Excel 中將序列號或 8 位數字轉換為 Excel 可識別的日期。

10.1 在 Excel 中將序列號轉換為日期

有時，Excel 會返回一個序列號（5 位數字）而不是您輸入的日期（參見下面的屏幕截圖）。這是因為 Excel 將日期和時間作為序列號存儲在後端。要在 Excel 中將序列號轉換為日期，您可以嘗試以下三種方法之一。

10.1.1 使用單元格格式功能將序列號轉換為日期

您可以通過更改單元格的格式輕鬆地將一系列序列號轉換為日期。請執行以下操作。

1.選擇要將序列號轉換為日期的單元格範圍，右鍵單擊選擇並選擇 單元格格式 從上下文菜單。

2。在裡面 單元格格式 對話框，您需要：

2.1) 留在 聯繫電話 標籤;

2.2）點擊日期，在類別列錶框;

2.3) 指定日期類型；

2.4）點擊 確定。 看截圖：

然後將選定的序列號轉換為日期，如下面的屏幕截圖所示。

10.1.2 使用公式將序列號轉換為日期

您還可以應用以下公式將序列號轉換為 Excel 中的日期。

1. 選擇一個單元格，輸入以下公式，然後按 Enter 鍵將第一個序列號轉換為日期。選擇此結果單元格，向下拖動其自動填充句柄以獲取其他日期。

=TEXT(B3,"m/d/yyyy")

注意： 在公式中，您可以更改“m / d / yyyy” 根據需要轉換為其他日期格式。

10.1.3 使用神奇的工具輕鬆將序列號轉換為日期

您是否嘗試過應用第三方工具來處理 Excel 任務？如果您想提高工作效率並節省工作時間，我們推薦 套用日期格式 of Excel的Kutools. 此功能有助於將一個或多個範圍內的序列號轉換為您需要的日期格式。

1. 選擇一個或多個包含要轉換為日期的序列號的範圍。

2。點擊 庫工具 > 格式 > 套用日期格式.

3。在裡面 套用日期格式 對話框，您需要：

3.1) 選擇日期格式 日期格式 列錶框;

3.2）點擊 OK 按鈕。

注意： 您可以在預覽選擇日期格式後的框。

然後，選定範圍內的所有選定數字都會立即轉換為日期。

單擊以了解有關此功能的更多信息.

10.2 將 8 位數字轉換為 Excel 可識別的日期

10.2.1 使用公式將 8 位數字轉換為日期

要將 8 位數字轉換為 Excel 可識別的日期，您可以應用 DATE 功能結合對， LE金融時報和 MID 職能。請執行以下操作。

1. 選擇一個單元格，輸入以下公式，然後按 Enter 鍵將前 8 位數字轉換為日期。選擇此結果單元格，向下拖動其自動填充句柄以獲取其餘日期。

=DATE(LEFT(B3,4),MID(B3,5,2),RIGHT(B3,2))

10.2.2 使用 Text to Columns 命令將 8 位數字轉換為日期

內置的 文本到列 命令可以幫助將一系列 8 位數字轉換為 Excel 可識別的日期。

1.選擇8位數字的範圍，點擊日期 > 文本到列.

2。在裡面 將文本轉換為列 對話框，您需要配置如下：

2.1）點擊 下一頁 > 下一頁 ，在 步驟 1 和 步驟 2 嚮導 分別;

2.2）在 步驟 3 嚮導，選擇 日期， 然後選擇 年月日 從旁邊的下拉菜單中日期選項;

2.3）點擊 完成。

然後將所有選定的 8 位數字轉換為 Excel 可識別的日期。

10.2.3 使用神奇的工具輕鬆將 8 位數字轉換為日期

這裡我們介紹 轉換為日期 的效用 Kutools for Outlook 幫助您一鍵輕鬆將一個或多個範圍內的 8 位數字轉換為 Excel 中的 Excel 識別日期。

1. 選擇一個或多個範圍的 8 位數字。

2。點擊 庫工具 > 內容 > 轉換為日期. 然後所有選定的數字都會立即轉換為日期，如下面的演示所示。

單擊以了解有關此功能的更多信息.

11.在Excel中將數字轉換為時間，反之亦然

在本節中，您將學習如何在 Excel 中將數字轉換為時間，反之亦然。

11.1 在 Excel 中將數字轉換為時間 (hh:mm:ss)

要將十進制格式的小時、分鐘或秒轉換為有效的 Excel 時間，您可以嘗試下面提供的相應方法。

11.1.1 將十進制小時轉換為時間 (hh:mm;ss)

要將十進制格式的小時轉換為 hh:mm:ss Excel 時間格式，需要將數字除以 24（表示一天中的總小時數），然後將單元格格式化為時間。請執行以下操作。

1. 選擇一個單元格，輸入以下公式，然後按 Enter 鑰匙。選擇此結果單元格並將其自動填充句柄向下拖動到要應用相同公式的單元格。

=B3/$C$3

在這種情況下，我在單元格 C24 中輸入了數字 3。可以直接在公式中輸入數字 24，如：

=B3/24

2. 選擇所有結果單元格，然後按 按Ctrl + 1 同時打開 單元格格式 對話框。

3。在裡面 單元格格式 對話框，您需要：

3.1) 留在 聯繫電話 標籤;

3.2）選擇 Time ，在類別列錶框;

3.3) 在類別列錶框;

提示：

如果您只想顯示一天中的某個時間，請選擇 13:30:55 類別列錶框。結果將是：

36.75 > 12:45:00

如果要顯示超過 24 小時的時間間隔，請在類別列錶框。結果將是：

36.75 > 36:45:00

3.4）點擊 OK 保存更改。

然後將結果格式化為時間格式 hh:mm:ss，如下面的屏幕截圖所示。

11.1.2 將十進制分鐘轉換為時間 (hh:mm;ss)

要將十進制格式的分鐘轉換為 hh:mm:ss Excel 時間格式，需要將數字除以 1440（表示一天中的總分鐘數），然後將單元格格式化為時間。步驟與上述相同。

1. 選擇一個單元格，輸入以下公式，然後按 Enter 獲得第一個結果的關鍵。選擇此結果單元格並將其自動填充句柄向下拖動到要應用相同公式的單元格。

=B3/$C$3

在這種情況下，我在單元格 C1440 中輸入了數字 3。可以直接在公式中輸入數字 24，如：

=B3/1440

2.然後將結果單元格格式化為時間。請 參考以上步驟.

最後，您將獲得下面屏幕截圖中顯示的時間。

11.1.3 將十進制秒轉換為時間 (hh:mm;ss)

將十進制格式的秒轉換為 hh:mm:ss Excel 時間格式的步驟同上。您只需將除數更改為 86400（表示一天中的總秒數），然後將單元格格式化為時間。

在這種情況下，公式如下：

=B3/$C$3

=B3/86400

然後將結果單元格格式化為時間。請 參考以上步驟.

最後，您將獲得下面屏幕截圖中顯示的時間。

11.2 在 Excel 中將時間 (hh:mm:ss) 轉換為十進制數

本節演示了在 Excel 中將時間轉換為小時、分鐘、秒的不同公式。

11.2.1 使用公式將時間轉換為小時

與上述方法相反，要將時間轉換為小時，需要將時間乘以 24（表示一天中的小時數）。

1. 應用以下公式：

=B3*$C$3

其中 B3 包含時間值，$C$3 包含數字 24。

或者您可以直接將數字 24 輸入到公式中，如下所示：

=B3*24

應用公式後，您可以看到結果以時間格式顯示。

注意： 如果您不想保留結果的小數部分，請應用以下公式。

=INT(B3*24)

2.您需要將結果單元格格式化為 聯繫電話 格式。

選擇結果單元格，按 按Ctrl + 1 鍵打開 單元格格式 對話框。在對話框中，選擇 聯繫電話 ，在類別數字選項卡下的列錶框，指定小數位數 十進制 地方框，然後單擊 OK 保存更改。

然後結果單元格顯示為數字，如下面的屏幕截圖所示。

11.2.2 使用公式將時間轉換為分鐘

要將時間轉換為分鐘，只需將時間乘以 1440（表示一天中的分鐘數）。

應用以下公式：

=B3*$C$3

其中 B3 包含時間值，$C$3 包含數字 1440。

或者您可以直接將數字 1440 輸入到公式中，如下所示：

=B3*1440

注意： 如果您不想保留結果的小數部分，請應用以下公式。

=INT(B3*1440)

然後將結果單元格格式化為數字。請 參考以上步驟.

最後，您將獲得分鐘，如下面的屏幕截圖所示。

11.2.3 使用公式將時間轉換為秒

要將時間轉換為秒，請將時間乘以 86400（表示一天中的秒數）。

應用以下公式：

=B3*$C$3

其中 B3 包含時間值，$C$3 包含數字 86400。

或者您可以直接將數字 86400 輸入到公式中，如下所示：

=B3*86400

注意： 如果您不想保留結果的小數部分，請應用以下公式。

=INT(B3*86400)

然後將結果單元格格式化為數字。請 參考以上步驟.

最後，您將獲得秒數，如下面的屏幕截圖所示。

11.2.4 使用神奇的工具輕鬆將時間轉換為小時/分鐘/秒

應用上述公式後，您仍然需要更改單元格格式以顯示實際的十進制數字。如果你有 Excel的Kutools 安裝，其 轉換時間 實用程序可以幫助您輕鬆地將時間轉換為十進制小時、分鐘或秒，只需單擊幾下即可。

1. 選擇要轉換為小時、分鐘或秒的時間範圍。

2。點擊 庫工具 > 內容 > 轉換時間.

1) 要將時間轉換為小時，請單擊 上班時間;

2) 要將時間轉換為分鐘，請單擊 分鐘時間;

3) 要將時間轉換為秒，請單擊 時間到秒.

然後將所有選定的時間轉換為小時、分鐘或秒。同時會彈出一個對話框告訴你已經成功轉換了多少個單元格，點擊 OK 關閉它。

單擊以了解有關此功能的更多信息.

這就是 Excel 中的單元格轉換教程的全部內容。希望以上提供的方法可以解決您的問題。如果您有更多的單元格轉換問題，請留下您的評論。

最佳辦公生產力工具

🤖	Kutools 人工智慧助手：基於以下內容徹底改變數據分析：智慧執行 \| 生成代碼 \| 建立自訂公式 \| 分析數據並產生圖表 \| 呼叫 Kutools 函數...
	熱門特色: 尋找、突出顯示或識別重複項 \| 刪除空白行 \| 合併列或儲存格而不遺失數據 \| 沒有公式的回合 ...
	超級查詢: 多條件VLookup \| 多值VLookup \| 跨多個工作表的 VLookup \| 模糊查詢 ....
	高級下拉列表: 快速建立下拉列表 \| 依賴下拉列表 \| 多選下拉列表 ....
	欄目經理: 新增特定數量的列 \| 移動列 \| 切換隱藏列的可見性狀態 \| 比較範圍和列 ...
	特色功能: 網格焦點 \| 設計圖 \| 大方程式酒吧 \| 工作簿和工作表管理器 \| 資源庫（自動文字） \| 日期選擇器 \| 合併工作表 \| 加密/解密單元格 \| 按清單發送電子郵件 \| 超級濾鏡 \| 特殊過濾器（過濾粗體/斜體/刪除線...）...
	前 15 個工具集: 12 文本工具 (添加文本, 刪除字符，...） \| 50+ 圖表類型 (甘特圖，...） \| 40+ 實用公式 (根據生日計算年齡，...） \| 19 插入工具 (插入二維碼, 從路徑插入圖片，...） \| 12 轉化工具 (數字到單詞, 貨幣兌換，...） \| 7 合併與拆分工具 (高級合併行, 分裂細胞，...） \| ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能，體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。點擊此處獲取您最需要的功能...

產品描述

閱讀更多... 免費下載...

Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆

在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！

閱讀更多... 免費下載...

Comments (0)

No ratings yet. Be the first to rate!

There are no comments posted here yet

Please leave your comments in English

Posting as Guest

Name (Required)

Email (Required)

Rate this post:

Reset

0 Characters

🤖	Kutools 人工智慧助手：基於以下內容徹底改變數據分析：智慧執行 \| 生成代碼 \| 建立自訂公式 \| 分析數據並產生圖表 \| 呼叫 Kutools 函數...
	熱門特色: 尋找、突出顯示或識別重複項 \| 刪除空白行 \| 合併列或儲存格而不遺失數據 \| 沒有公式的回合 ...
	超級查詢: 多條件VLookup \| 多值VLookup \| 跨多個工作表的 VLookup \| 模糊查詢 ....
	高級下拉列表: 快速建立下拉列表 \| 依賴下拉列表 \| 多選下拉列表 ....
	欄目經理: 新增特定數量的列 \| 移動列 \| 切換隱藏列的可見性狀態 \| 比較範圍和列 ...
	特色功能: 網格焦點 \| 設計圖 \| 大方程式酒吧 \| 工作簿和工作表管理器 \| 資源庫（自動文字） \| 日期選擇器 \| 合併工作表 \| 加密/解密單元格 \| 按清單發送電子郵件 \| 超級濾鏡 \| 特殊過濾器（過濾粗體/斜體/刪除線...）...
	前 15 個工具集: 12 文本工具 (添加文本, 刪除字符，...） \| 50+ 圖表類型 (甘特圖，...） \| 40+ 實用公式 (根據生日計算年齡，...） \| 19 插入工具 (插入二維碼, 從路徑插入圖片，...） \| 12 轉化工具 (數字到單詞, 貨幣兌換，...） \| 7 合併與拆分工具 (高級合併行, 分裂細胞，...） \| ... 和更多

更新日誌

功能教程

得到幫助？