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

在 Excel 中处理数据时，您可能需要对单元格进行各类数据转换，例如单位换算、汇率转换或时区调整等。本教程汇总了日常 Excel 工作中常见的单元格转换场景，并提供清晰详尽的分步解决方案，助您轻松高效地完成任务。

本教程主要涵盖：（点击下方或右侧目录中的任意标题，即可跳转至相应内容。）

1. 在 Excel 中轻松转换各类单位度量

通常，我们使用 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 键。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 中轻松实现角度与弧度之间的相互转换。

将度转换为弧度

如以下截图所示，RADIANS 函数可助您轻松将角度转换为弧度。

语法

=RADIANS(angle)

参数

选择一个空白单元格（例如本例中的 D3），输入以下公式，然后按 Enter 按 Enter 键返回第一个弧度值，然后选中该结果单元格，向下拖动自动填充柄以获取其余的弧度值。

=RADIANS(B3)

将弧度转换为度

Excel 提供了 DEGREES 函数，可轻松将弧度转换为角度。请按以下步骤操作。

语法

=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 提供了多种函数，助您轻松实现不同数制系统间的转换。例如，使用 DEC 2HEX 函数可将十进制数转为十六进制，使用 DEC 2BIN 函数则可转为二进制。本节将带您掌握如何在 Excel 中高效运用这些内置函数，实现各类数制间的快速转换！

将十进制数转换为十六进制数

要将十进制数转换为十六进制数，您可以应用 DEC 2HEX 函数来完成。

语法

DEC 2HEX(number, [places])

参数

选择一个单元格，输入以下公式，然后按 Enter 键即可获取第一个十六进制数。选中该结果单元格，向下拖动其自动填充柄，即可快速生成其余的十六进制数。

=DEC 2HEX(B3)

下表列出了可用于将数字转换为不同进制系统的函数。

选择您需要的函数，并按照上述步骤进行应用。

2.2 使用一款强大的工具轻松将数字转换为不同的数制系统

尽管上述每个函数都简单易用，却也容易让人混淆。Kutools for Excel 的进制转换该功能将所有数制系统整合至一个对话框中，让您在需要将数字从一种数制转换为另一种时，操作更加轻松便捷。

1. 选择要将数字从一种进制转换为另一种的单元格区域，然后点击 Kutools > 内容（或）转换）> 进制转换 来启用该功能。

2. 在进制转换对话框中，您需按以下方式配置。

在本例中，我需要将十进制数转换为十六进制数，因此我在左右框中分别选择十进制和十六进制。

提示：

3. 在 Excel 中在数字与文本（以文本形式存储的数字）之间进行转换

本节将向您展示如何在 Excel 中转换数值至文本或文本至数值。

3.1 在 Excel 中转换数值至文本（以文本形式存储的数字）

有时您可能需要将数值转换为文本。例如，在电子表格中存储超过 11 位的长数字时，必须将其转换为文本格式，以防止 Excel 自动将其更改为科学记数法。为此，我们为您提供三种详细方法，助您轻松完成数值到文本的转换。

3.1.1 使用 TEXT 函数转换数值至文本

要将下表中的数字转换为文本，您可使用 TEXT 函数轻松实现。

1. 选择一个单元格（例如本例中的 D3），输入以下公式，然后按 Enter 键。Enter 键即可获取第一个结果。选中该结果单元格，向下拖动其自动填充柄，即可快速填充其余结果。

=TEXT(B3,"0")

单击此处，了解更多关于 Excel 中 TEXT 函数的信息。

现在您需要将公式转换为数值。

3. 选择所有结果单元格，按 Ctrl+C 键进行复制，然后同时按 Ctrl+Alt+V，或 Alt+E+S 键以打开选择性粘贴对话框。

4. 在选择性粘贴对话框中，点击粘贴区域中数值选项下的确定按钮以保存更改。参见截图：

随后，您会看到所选区域中每个单元格的左上角出现一个绿色小三角形，表示数字已成功转换为文本。参见截图：

备注：

3.1.2 使用设置单元格格式命令转换数值至文本

您还可以通过使用 Excel 内置的设置单元格格式命令：快速将一组数值转换为文本。

1. 请选择包含要转换为文本的数字的区域。

2. 右键单击所选内容，然后从上下文菜单中选择所需选项。设置单元格格式。

3. 在打开的设置单元格格式对话框中，点击数字选项卡，在分类框中选择文本类别，最后单击确定按钮以保存更改。

随后，所选单元格将被设置为文本格式。

3.1.3 使用“文本分列”命令转换数值至文本

“文本分列”命令也可帮助在 Excel 中转换一批数值至文本。请按以下步骤操作。

1. 选择包含要转换为文本的数字的区域。

2. 单击数据> 文本分列。

3. 在打开的文本分列向导对话框中，单击下一步按钮，依次进入第1 步和 第 2 步 对话框。在 第 3 步 对话框中，于列数据格式部分下选择文本选项，然后单击完成按钮。参见下图：

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

3.1.4 使用一款强大工具转换数值至文本

除了上述方法外，Kutools for Excel 的文本与数值之间的转换该功能还能轻松帮您将一批数值转换为文本。请先安装此工具，然后按照以下步骤操作。

1. 请选择包含要转换为文本的数字的区域。

2. 单击 Kutools> 内容（或）转换）> 文本与数值之间的转换。

3. 在文本与数值之间的转换对话框中，选择数字转文本选项，然后单击“确定”按钮。

随后，所有选中的数字都将转换为文本，如下图所示。

3.2 在 Excel 中将文本（以文本形式存储的数字）转换为数字

有时工作表中的值看起来像数字，但实际上是文本值，无法用于计算。本节提供多种方法，帮助您在 Excel 中转换文本至数值。

3.2.1 使用“转换为数字”选项转换文本至数值

当文本格式的单元格左上角出现绿色小三角形时，您可轻松使用“转换为数字”命令将其转为数字。

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

2. 单击警告标志，然后从下拉菜单中选择所需选项。转换为数字。

随后，所选文本将转换为数字，如下图所示。

3.2.2 使用选择性粘贴命令转换文本至数值

对于带有绿色三角形标记的单元格，您也可以使用选择性粘贴命令将其转换为数字。

1. 选择一个空白单元格，然后按下 Ctrl+C 键进行复制。

2. 选择要转换为数字的单元格区域，然后同时按下 Ctrl+Alt+V，或 Alt+E+S 键。

3. 在选择性粘贴对话框中，在数值粘贴部分选择加运算部分，然后单击确定按钮。

参见下图：

随后，所选单元格将立即转换为数字。

3.2.3 通过更改单元格格式转换文本至数值

如果数字已被设置为文本格式（如下图所示，单元格左上角没有绿色小三角形），您可以手动将单元格格式更改为“数字”以完成转换。

1. 请选择要转换为常规数字的文本格式数字区域。

2. 右键单击所选内容，然后从上下文菜单中选择相应选项。设置单元格格式。

3. 在打开后，设置单元格格式对话框中，请保持在数字选项卡，并按以下方式配置。

随后，所选的文本格式数字将转换为常规数字。

3.2.4 使用一款强大工具轻松转换文本至数值

在此我们推荐一款实用工具——Kutools for Excel’s 文本与数值之间的转换功能。借助此功能，您可以轻松将所选区域或多个区域中的文本转换为数字。

请按以下步骤使用此功能。

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

2. 单击 Kutools> 内容（或）转换）> 文本与数值之间的转换。

3. 在文本与数值之间的转换对话框中，选择文本至数值选项，然后点击确定按钮。

随后，所选区域的文本将立即转换为数字。

4 在 Excel 中转换货币

假设您有一份大型美元货币报表，希望将其转换为本国货币（例如欧元）。默认情况下，Excel 并未提供内置的货币转换工具。本节将为您介绍两种方法，助您轻松实现 Excel 中任意两种货币之间的转换。

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

使用此方法前，您需要先获取两种货币之间的当前汇率。本例中需将美元转换为欧元，因此采用当前美元兑欧元汇率：1 美元 = 0.95 欧元。

1. 将汇率 0.95 输入到空白单元格中，例如本例中的 D3 单元格。

2. 选中上方的单元格 E3，输入以下公式后按下 Enter 按下该键，即可将第一个美元值转换为欧元。选中结果单元格，向下拖动填充柄，快速完成其余数值的转换。

=C3*$D$3

如今，所有美元金额均已按上图所示转换为欧元。

4.2 使用一款强大工具轻松转换任意两种货币

每次在两种货币之间换算时，都要手动查找当前汇率，实在令人烦恼。Kutools for Excel 的汇率转换功能将所有货币集中在一个对话框中，让您轻松根据实时汇率快速完成不同货币间的换算。

1. 选择包含货币格式数字的区域，从中将数值转换为其他货币。

2. 单击 Kutools > 内容（或）转换）> 汇率转换。

2. 在打开的汇率转换对话框中，您需要进行以下设置。

注意：上述设置会用结果覆盖原始数值。如果您希望仅将结果显示为批注，请执行以下操作：在汇率转换对话框中，点击填充选项，选择仅批注（或）仅备注）选项，指定批注或备注中包含的信息，然后关闭对话框。

5. 在 Excel 中转换时区

本节将向您展示如何将一个时区的时间转换为另一个时区的时间。如下图所示，若要将 C3:C8 范围内列出的北京时间转换为其他城市的时间，您可以尝试以下方法。

5.1 使用公式在不同时区间转换时间

以下公式可根据给定的时差，帮助您将一个时区的时间转换为另一个时区的时间。

1. 首先，您需要确定这两个时区之间的时差。

在此示例中，我在 F3:F8 范围内的每个单元格中分别输入了对应的时差。

例如，由于中国北京比美国纽约快 12 小时，因此我在纽约旁边的单元格中输入了时差 -12. 请参见下图：

2. 选择一个单元格，输入以下公式，然后按 Enter 键。Enter 键即可获取纽约时间。选中该结果单元格，向下拖动其自动填充柄，即可获得其他城市的时间。

=MOD(C 3+(F3/24),1)

注意：处理包含日期和时间的数据（例如 5/10/2022 下午 2:55:00）时，可使用以下公式。

=datetime+(hours/24)

6. 在 Excel 中轻松转换阿拉伯数字与罗马数字

要在 Excel 中转换阿拉伯数字与罗马数字，以下方法可为您提供帮助。

6.1 使用 ROMAN 函数将阿拉伯数字转换为罗马数字

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 中记忆各种用于阿拉伯数字与罗马数字相互转换的公式可能十分繁琐。这里为您推荐一款便捷工具——Kutools for Excel。借助其罗马与阿拉伯数字之间的转换实用程序，只需几次点击，即可轻松完成两者之间的转换。

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

2. 单击 Kutools> 内容（或）转换）> 罗马与阿拉伯数字之间的转换。

3. 在罗马与阿拉伯数字之间的转换对话框中，根据所选原始数据，选择阿拉伯转罗马数字或罗马转阿拉伯数字选项，然后单击确定。请参见下图：

随后，选择数据将立即转换为罗马数字或阿拉伯数字。

7. 在 Excel 中将公式转换为计算结果

当复制并粘贴包含公式的单元格区域到新位置时，结果会随单元格引用动态变化。如果您希望在复制粘贴公式到新位置时保持结果不变，则需要将公式转换为其计算结果。本节介绍两种在 Excel 中将公式替换为其结果的方法。

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

您可以使用 Excel 中的选择性粘贴命令，将公式批量转换为计算结果。

1. 选择要转换为结果的公式，然后按 Ctrl + C 键进行复制。

2. 如果要直接将所选区域中的公式替换为结果，请选择选择区域的第一个单元格；如果要在新位置输出结果，则只需选择新区域中的一个单元格。然后右键单击所选单元格，在上下文菜单中选择“值”。

随后，您可以看到公式已转换为其结果，如下图所示。

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

如果您已安装 Kutools for Excel，即可使用其转为实际值功能，只需单击一次，就能将所有公式转换为其结果。

1. 请选择包含需转换公式的单个或多个区域。

2. 单击 Kutools> 转为实际值。

随后，所选区域中的所有公式将立即转换为对应的结果。

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. 同时按下 Alt+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. 按下 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 Function

3. 按下 Alt+Q 键，关闭 Microsoft Visual Basic for Applications 窗口。

4. 选择一个空白单元格用于输出首个结果（本例中为 D3），输入以下公式并按 Enter 按下键后，选中该结果单元格，向下拖动填充柄即可快速获取其余结果。

=NumberstoWords(B3)

9.2 使用自定义函数转换小写金额转大写

处理财务相关数字时，您可能需要将其转换为英文单词形式（参见下方截图）。此处我们为您演示一个自定义函数，助您在 Excel 中轻松将数字转换为对应的英文货币单词形式。

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 Function

3. 按下 Alt+Q 键，即可关闭 Microsoft Visual Basic for Applications 窗口。

4. 选择一个空白单元格用于输出第一个结果（本例中为 D3）。输入以下公式并按 En ter。选中该结果单元格，向下拖动填充柄即可快速获取其余结果。

=SpellNumberToCurrency(B3)

9.3 使用强大工具轻松将数字转换为英文/货币单词

上述代码对 Excel 新手来说可能稍显繁琐。如果您已安装 Kutools for Excel，可使用其小写金额转大写功能，只需轻点几下，即可将数字范围按需轻松转换为英文单词或英文货币单词。

1. 选择要转换为英文单词或英文货币单词的单元格区域，然后单击 Kutools> 内容> 小写金额转大写。参见截图：

2. 在小写金额转大写对话框中，按以下方式配置即可。

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

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

随后，所选数字将根据您的配置转换为英文单词或英文货币单词。

单击此处了解有关此功能的更多信息。

10. 在 Excel 中将数字转换为日期

本节提供了一些方法，帮助您将序列号或 8 位数字转换为 Excel 可识别的日期格式。

10.1 在 Excel 中将序列号转换为日期

有时，Excel 会返回一个五位数的序列号，而非您输入的日期（参见下方截图）。这是因为 Excel 在后台以序列号形式存储日期和时间。要在 Excel 中将序列号转换为日期，可尝试以下三种方法之一。

10.1.1 使用设置单元格格式函数将序列号转换为日期

只需更改单元格格式，即可轻松将序列号范围转换为日期。请按以下步骤操作：

1. 选择包含序列号并需转换为日期的单元格区域，右键单击所选区域，然后从上下文菜单中选择设置单元格格式。

2. 在设置单元格格式对话框中，您需要：

随后，所选序列号将转换为如下方截图所示的日期格式。

10.1.2 使用公式将序列号转换为日期

您也可以使用以下公式在 Excel 中将序列号转换为日期。

1. 请选择一个单元格，输入以下公式，然后按 Enter 键。Enter 按下键，即可将第一个序列号转换为日期。选中该结果单元格，向下拖动填充柄，即可快速生成其余日期。

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

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

10.1.3 使用强大工具轻松将序列号转换为日期

您是否尝试过使用第三方工具处理 Excel 任务？如果您希望提升工作效率并节省时间，我们推荐 Kutools for Excel 中的应用日期格式功能。它可帮助您将一个或多个区域中的序列号快速转换为您所需的日期格式。

1. 请选择一个或多个包含需转换为日期的序列号的区域。

2. 单击 Kutools > 格式 > 应用日期格式。

3. 在应用日期格式对话框中，您需要执行以下操作：

注意：选择日期格式后，您可以在预览框中预览结果。

随后，所选选择区域（或多个区域）中的所有数字将立即转换为日期。

单击此处了解有关此功能的更多信息。

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

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

要将 8 位数字转换为 Excel 可识别的日期，您可以结合使用 DATE 函数与 RIGHT、LEFT 和 MID 函数。请按以下步骤操作。

1. 选择一个单元格，输入以下公式，然后按 Enter 按下该键，即可将前 8 位数字转换为日期。选中结果单元格，向下拖动填充柄，即可快速生成其余日期。

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

10.2.2 使用“文本分列”命令将 8 位数字转换为日期

内置的文本分列命令可帮助您将一整列 8 位数字转换为 Excel 可识别的日期。

1. 选择 8 位数字区域，单击数据> 文本分列。

2. 在将文本分列对话框中，您需按以下方式配置：

随后，所有选中的 8 位数字将被转换为 Excel 可识别的日期。

10.2.3 使用强大工具轻松将 8 位数字转换为日期

Kutools for Outlook 的日期识别工具，可轻松将一个或多个区域中的 8 位数字一键转换为 Excel 可识别的日期。

1. 选择一个或多个区域中的 8 位数字。

2. 单击 Kutools > 内容 > 日期识别，所有选中的数字将立即转换为日期，如下方演示所示。

点击此处，了解更多功能详情。

11 在 Excel 中将数字与时间相互转换

本节将为您介绍如何在 Excel 中轻松实现数字与时间的相互转换。

11.1 在 Excel 中将数字转换为时间（hh:mm:ss）

要将十进制格式的小时、分钟或秒转换为有效的 Excel 时间，您可以尝试以下提供的相应方法。

11.1.1 将十进制小时转换为时间（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 时间格式显示，如下方截图所示。

11.1.2 将十进制分钟转换为时间（hh:mm:ss）

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

1. 选择一个单元格，输入以下公式，然后按 Enter 键即可获取第一个结果。选中该结果单元格，向下拖动自动填充柄，即可将相同公式应用到其他单元格。

=B3/$C$3

本例中，我在单元格 C3 中输入了数字 1440. 您也可以直接在公式中输入数字 24，例如：

=B3/1440

2. 然后将结果单元格格式设置为时间格式。请参见上述步骤。

最终，您将获得如下方截图所示的时间。

11.1.3 将十进制秒转换为时间（hh:mm:ss）

将十进制格式的秒转换为 Excel 时间格式 hh:mm:ss 的步骤与上述相同。您只需将除数更改为 86400（代表一天中的总秒数），然后将单元格格式设置为时间格式。

本例中的公式如下：

=B3/$C$3

或

=B3/86400

然后将结果单元格的格式设置为时间格式。参见上述步骤。

最终，您将获得如下方截图所示的时间。

11.2 在 Excel 中将时间（hh:mm:ss）转换为十进制数字

本节展示了将时间转换为小时、分钟和秒的多种公式。

11.2.1 使用公式将时间转换为小时

与上述方法相反，若要将时间转换为小时，只需将时间乘以 24（即一天的总小时数）。

1. 请应用以下公式：

=B3*$C$3

其中 B3 包含时间值，$C$3 包含数字 24.

或者，您也可以直接在公式中输入数字 24，如下所示：

=B3*24

应用公式后，您会发现结果依然以时间格式呈现。

注意：若不希望保留结果的小数部分，请使用以下公式。

=INT(B3*24)

2. 您需要将结果单元格的格式设置为数字格式。

选择结果单元格，按 Ctrl+1 键打开设置单元格格式对话框。在“数字”选项卡的“分类”列表中选择数字，在小数位数框中指定所需的小数位数，然后单击确定保存更改。OK to save the changes.

随后，结果单元格将如下面的截图所示显示为数字。

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. 单击 Kutools> 内容> 时间转换。

随后，所有选中的时间将被转换为小时、分钟或秒，并弹出一个对话框，告知您已成功转换的单元格数量，单击确定即可关闭该对话框。

单击此处了解有关此功能的更多信息。

以上就是 Excel 中单元格转换的全部教程。希望上述方法能解决您的问题。如果您还有其他单元格转换相关的问题，欢迎留言。

最佳办公效率工具

🤖	KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
	热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
	高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
	高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
	列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
	特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
	精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多

在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Kutools for Excel 更多详情……免费下载……

---

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

• 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
• 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
• 将您的工作效率提升 50%，每天减少数百次鼠标点击！

Office Tab 更多详情……免费下载……

---

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

• 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
• 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
• 协同效果更佳— 在多个 Office 应用中实现高效协同
• 30 天全功能试用— 无需注册，无需信用卡
• 超值之选— 比单独购买插件更省钱

Kutools for Office 更多详情……免费下载……