Excel单元格转换教程——转换单位、文本和数字、货币、时区等。

功能	产品描述	句法
BIN2DEC	将二进制数转换为十进制数	=BIN2DEC(数字)
BIN2HEX	将二进制数转换为十六进制数	=BIN2HEX(数字, [地点])
BIN2OCT	将二进制数转换为八进制数	=BIN2OCT（数字，[地点]）
DEC2HEX	将十进制数转换为十六进制数	=DEC2HEX(数字, [地点])
DEC2BIN	将十进制数转换为二进制	=DEC2BIN（数字，[地点]）
DEC2OCT	将十进制数转换为八进制数	=DEC2OCT（数字，[地点]）
HEX2DEC	将十六进制数转换为十进制数	=HEX2DEC(数字)
HEX2BIN	将十六进制数转换为二进制数	=HEX2BIN(数字, [地点])
HEX2OCT	将十六进制数转换为八进制数	=HEX2OCT（数字，[地点]）
OCT2DEC	将八进制数转换为十进制数	=OCT2DEC(数字)
OCT2HEX	将八进制数转换为十六进制数	=OCT2HEX(数字, [地点])
OCT2BIN	将八进制数转换为二进制	=OCT2BIN（数字，[地点]）

2.2 使用神奇的工具轻松将数字转换为不同的数字系统

虽然上述每个功能都很容易使用，但它们也很容易混淆。这里， Kutools for Excel的 数制转换 功能在一个对话框中收集所有数字系统，当您需要将数字从一种数字系统转换为另一种数字系统时，可帮助您轻松地在数字系统之间导航。

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），输入下面的公式，然后按输入获得第一个结果的关键。选择此结果单元格并向下拖动其自动填充句柄以获取其余结果。

=TEXT(B3,"0")

点击 了解更多 了解更多关于文字 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 和对话框。在里面对话框中，选择文本在选项 列数据格式 部分，然后单击完成按钮。看截图：

您可以看到所选数字已转换为文本，并在每个数字前添加撇号。

3.1.4 使用神奇的工具将数字转换为文本

除了以上方法， Excel 的 Kutools'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 使用神奇的工具轻松将文本转换为数字

在这里我们推荐一个方便的工具—— Kutools for Excel“ 在文字和数字之间转换 特征。使用此功能，您可以轻松地将选择或多个选择中的文本轻松转换为数字。

请执行以下操作以应用此功能。

1. 选择要转换为数字的文本单元格。

2。点击 库工具 > 内容（或 转换） > 在文字和数字之间转换.

3.在 在文字和数字之间转换 对话框中，选择 文字转数字 选项，然后单击 OK 按钮。

然后所选范围内的文本立即转换为数字。

4. 在 Excel 中转换货币

假设您有一份以美元为单位的大型货币报告，并且您想将美元转换为您所在国家/地区的货币，例如欧元。默认情况下，Excel 不包含任何用于转换货币的内置工具。在本节中，您将学习如何使用两种方法在 Excel 中的任意两种货币之间进行转换。

4.1 在 Excel 中使用汇率在任意两种货币之间进行转换

在使用此方法之前，您需要了解两种货币之间的当前汇率。在这种情况下，我需要将美元转换为欧元，所以我使用美元和欧元之间的当前汇率：1 美元 = 0.95 欧元。

1.在空白单元格中输入交换范围0.95，例如本例中的D3。

2.选择顶部单元格E3，输入以下公式并按输入将第一个美元转换为欧元的关键。选择此结果单元格，然后向下拖动其自动填充句柄以获取其余结果。

=C3*$D$3

现在所有美元都转换为欧元，如上面的屏幕截图所示。

4.2 使用神奇的工具轻松转换任意两种货币

每次需要在两种货币之间进行转换时，要找出两种货币之间的当前汇率，这很烦人。 Kutools for Excel“ 货币兑换 功能在一个对话框中收集所有货币。有了它，您可以使用当前汇率轻松地将一种货币转换为另一种货币。

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. 选择一个单元格，输入以下公式，然后按输入获得纽约时间的关键。选择此结果单元格并向下拖动其自动填充句柄以获取其他城市的时间。

=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.选择一个单元格，输入以下公式并按输入将第一个阿拉伯语转换为罗马。选择此单元格并向下拖动其自动填充句柄以获得其他结果。

=ROMAN(B3)

提示： 点击了解更多关于这个 ROMAN 函数.

6.2 用公式将罗马数字转换为阿拉伯数字

使用 ROMAN 函数很容易将阿拉伯数字转换为罗马数字。但是，如果要将罗马数字转换为阿拉伯数字，则需要一个更复杂的公式才能完成。请执行以下操作。

1.选择一个空白单元格，例如本例中的D3，输入以下公式并按输入获得第一个结果的关键。选择此结果单元格并向下拖动其自动填充句柄以获取其余结果。

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

请注意： 在公式中，B3 是包含要转换为罗马数字的阿拉伯数字的单元格。

6.3 使用神奇的工具轻松转换阿拉伯数字和罗马数字

我们在Excel中记住不同的公式来转换阿拉伯数字和罗马数字可能会很麻烦。这是一个方便的工具 - Kutools for Excel。随着它 在罗马和数字之间转换 实用程序，只需单击几下，您就可以轻松地在阿拉伯数字和罗马数字之间进行转换。

1. 选择要转换的阿拉伯数字或罗马数字的范围。

2。点击 库工具 > 内容（或 转换） > 在罗马和数字之间转换.

3.在 在罗马和数字之间转换 对话框中，选择 罗马数字 or 罗马数字 选项，取决于您选择的原始数据，然后单击 确定。 看截图：

然后所选数据将立即转换为罗马数字或阿拉伯数字。

7. 将公式转换为 Excel 中的结果

将一系列公式单元格复制并粘贴到新位置时，结果会随着单元格引用而动态更改。如果要在将公式复制并粘贴到新位置时保持结果不变，则需要将公式转换为其结果。本节演示了两种有助于将 Excel 中的公式替换为结果的方法。

7.1 使用选择性粘贴命令将公式转换为结果

您可以使用 选择性粘贴 Excel 中的命令。

1. 选择带有要转换为结果的公式的单元格，然后按 Ct+ C 键复制它。

2.如果要直接用结果替换选择中的公式，请选择所选范围的第一个单元格。要将结果输出到新位置，只需在新范围中选择一个单元格。然后右键单击选定的单元格并从上下文菜单中选择值。

然后您可以看到公式已转换为它们的结果，如下面的屏幕截图所示。

7.2 一键快速将公式转换为结果

如果你有 Kutools for Excel 已安装，您可以应用它的 到实际 只需单击一下即可将所有公式转换为结果的功能。

1. 选择一个或多个包含要转换的公式的范围。

2。点击 库工具 > 到实际.

然后，所选范围内的所有公式都会立即转换为它们的结果。

8. 在 Excel 中将数字转换为序数

如下图所示，要将 B3:B12 中列出的数字转换为序数，本节提供了三种方法来帮助您完成。

8.1 用公式将数字转换为序数

您可以应用以下公式将数字转换为 Excel 中对应的序数。请执行以下操作。

1.选择一个空白单元格（本例中为C3），复制或输入下面的公式并按输入获取第一个数字的序数。选择此结果单元格并向下拖动其自动填充句柄以获取其余的序数。

=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应用程序 窗口。

2.在开幕 Microsoft Visual Basic应用程序 窗口中，单击插页 > 模块然后将以下 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应用程序 窗口。

4. 选择要转换为序数的第一个数字旁边的空白单元格，输入下面的公式，然后按输入获得结果的关键。选择此结果单元格，向下拖动其自动填充句柄以获取其余结果。

=Addth(B3)

8.3 一键快速将数字转为序数

对于Excel新手来说，以上两种方法可能不太好处理。在这里我们推荐 将数字转换为序数 实用程序 Kutools for Excel. 使用此功能，您只需单击一下即可将一系列数字批量转换为序数。

如以下演示所示，您只需选择要将数字转换为序数的单元格范围，然后单击 库工具 > 内容 > 将数字转换为序数.

然后将所有选定的数字转换为序数。同时，会弹出一个对话框告诉您已成功转换了多少个单元格，单击 OK 按钮。

单击以了解有关此功能的更多信息.

9. 在 Excel 中将数字转换为单词

在本节中，您将完全了解如何在 Excel 中将数字转换为单词。

9.1 使用自定义函数将数字转换为英文单词

如下图所示，要在 Excel 中将数字显示为英文单词，下面的自定义函数可以帮到你。请试一试。

1。按其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在开幕 Microsoft Visual Basic应用程序 窗口中，单击插页 > 模块然后将以下 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应用程序 窗口。

4. 选择一个空白单元格输出第一个结果，例如本例中的 D3。输入以下公式并按 输入。 选择此结果单元格，向下拖动其自动填充句柄以获取其余结果。

=NumberstoWords(B3)

9.2 使用自定义函数将数字转换为通货词

在处理金融相关的数字时，您可能需要数字的单词形式（见下面的屏幕截图）。在这里，我们演示了一个用户定义的函数，可帮助您将数字转换为 Excel 中与其等效的英文货币单词。

1。按其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在开幕 Microsoft Visual Basic应用程序 窗口中，单击插页 > 模块然后将以下 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应用程序 窗口。

4. 选择一个空白单元格输出第一个结果，例如本例中的 D3。输入以下公式并按 Ent呃。选择此结果单元格，向下拖动其自动填充句柄以获取其余结果。

=SpellNumberToCurrency(B3)

9.3 使用神奇的工具轻松将数字转换为英语/货币单词

以上代码对于 Excel 新手来说有些麻烦。如果你有 Kutools for Excel 安装后，可以应用它 小写金额转大写 只需单击几下，即可根据需要轻松将一系列数字转换为英语单词或英语货币单词。

1. 选择您要将数字转换为英文单词或英文货币单词的单元格范围，然后单击 库工具 > 内容 > 小写金额转大写。看截图：

2.在 数字到货币单词 对话框，您需要配置如下。

将所选数字转换为英文单词:

2.1）选择英语中的单选按钮语言部分;

2.2）检查 不转换为货币 复选框

2.3）点击 OK 按钮。

将所选数字转换为英文货币单词:

2.1）选择英语中的单选按钮语言部分;

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. 选择一个单元格，输入以下公式，然后按输入键将第一个序列号转换为日期。选择此结果单元格，向下拖动其自动填充句柄以获取其他日期。

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

请注意： 在公式中，您可以更改“m / d / yyyy” 根据需要转换为其他日期格式。

10.1.3 使用神奇的工具轻松将序列号转换为日期

您是否尝试过应用第三方工具来处理 Excel 任务？如果您想提高工作效率并节省工作时间，我们推荐 套用日期格式 of Kutools for Excel. 此功能有助于将一个或多个范围内的序列号转换为您需要的日期格式。

1. 选择一个或多个包含要转换为日期的序列号的范围。

2。点击 库工具 > 格式 > 套用日期格式.

3.在 套用日期格式 对话框，您需要：

3.1) 选择日期格式 日期格式 列表框;

3.2）点击 OK 按钮。

请注意： 您可以在预览选择日期格式后的框。

然后，选定范围内的所有选定数字都会立即转换为日期。

单击以了解有关此功能的更多信息.

10.2 将 8 位数字转换为 Excel 可识别的日期

10.2.1 使用公式将 8 位数字转换为日期

要将 8 位数字转换为 Excel 可识别的日期，您可以应用日期功能结合对， LE金融时报和 MID 职能。请执行以下操作。

1. 选择一个单元格，输入以下公式，然后按输入键将前 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）点击 下一页 > 下一页 ，在和 步骤 2 向导 分别;

2.2）在向导，选择 日期， 然后选择 年月日 从旁边的下拉菜单中日期选项;

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. 选择一个单元格，输入以下公式，然后按输入钥匙。选择此结果单元格并将其自动填充句柄向下拖动到要应用相同公式的单元格。

=B3/$C$3

在这种情况下，我在单元格 C24 中输入了数字 3。可以直接在公式中输入数字 24，如：

=B3/24

2. 选择所有结果单元格，然后按 按Ctrl + 1 同时打开 单元格格式 对话框。

3.在 单元格格式 对话框，您需要：

3.1) 留在 联系电话 标签;

3.2）选择时间，在 产品分类 列表框;

3.3) 在 Type 列表框;

提示：

如果您只想显示一天中的某个时间，请选择 13:30:55 Type 列表框。结果将是：

36.75 > 12:45:00

如果要显示超过 24 小时的时间间隔，请在 Type 列表框。结果将是：

36.75 > 36:45:00

3.4）点击 OK 保存更改。

然后将结果格式化为时间格式 hh:mm:ss，如下面的屏幕截图所示。

11.1.2 将十进制分钟转换为时间 (hh:mm;ss)

要将十进制格式的分钟转换为 hh:mm:ss Excel 时间格式，需要将数字除以 1440（表示一天中的总分钟数），然后将单元格格式化为时间。步骤与上述相同。

1. 选择一个单元格，输入以下公式，然后按输入获得第一个结果的关键。选择此结果单元格并将其自动填充句柄向下拖动到要应用相同公式的单元格。

=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 使用神奇的工具轻松将时间转换为小时/分钟/秒

应用上述公式后，您仍然需要更改单元格格式以显示实际的十进制数字。如果你有 Kutools for Excel 安装，其 转换时间 实用程序可以帮助您轻松地将时间转换为十进制小时、分钟或秒，只需单击几下即可。

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 Tab 为 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 合并与拆分工具 (高级组合行, 分裂细胞，...） \| ... 和更多

更新日志

功能教程

获取帮助