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 中实现角度与弧度的相互转换。
角度转弧度
如下面截图所示，若需将角度转换为弧度，可使用 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 可将十进制数转换为二进制。下面将介绍如何利用这些内置函数在 Excel 中实现进制转换。
将十进制数转换为十六进制
要将十进制数转换为十六进制，可应用 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 默认并未内置货币转换工具。本节将介绍两种方法实现任意两种货币间的转换。
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 使用公式将时间从一个时区转换到另一个时区
下方公式可根据给定的时差，将时间从一个时区转换到另一个时区。
1. 首先需查明两个时区之间的时差。
本例中，我在 F3:F8 区域的每个单元格中输入对应的时差。
例如，北京比纽约快12 小时，则在纽约旁边的单元格输入时差 -12。如下图所示：
2.选中一个单元格，输入下方公式并按 Enter 键获取纽约时间。选中该结果单元格后，拖动其自动填充柄以获得其他城市的时间。
=MOD(C3+(F3/24),1)
注意：若处理的日期同时包含日期和时间（如2022/5/1014: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 借助强大工具轻松实现阿拉伯数字与罗马数字之间的转换
记忆不同公式实现阿拉伯数字与罗马数字的相互转换较为繁琐。此时推荐 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代码：在 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 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 格式的 Excel 时间，需要将数字除以24（即一天的总小时数），然后将单元格格式设置为时间。请按以下步骤操作。
1.选择一个单元格，输入下方公式并按 Enter 键。选中该结果单元格后，拖动其自动填充柄至需应用公式的单元格。
=B3/$C$3
本例中，C3 单元格已输入数字24。您也可直接在公式中输入24，如下所示：
=B3/24
2. 全选结果单元格，同时按 Ctrl +1 打开设置单元格格式对话框。
3. 在设置单元格格式对话框中，需：
此时结果已按 hh:mm:ss 时间格式显示，如下图所示。
要将十进制分钟转换为 hh:mm:ss 格式的 Excel 时间，需要将数字除以1440（即一天的总分钟数），然后设置单元格格式为时间。步骤同上。
1.选择一个单元格，输入下方公式并按 Enter 键获取第一个结果。选中该结果单元格后，拖动其自动填充柄至需应用公式的单元格。
=B3/$C$3
本例中，C3 单元格已输入数字1440。您也可直接在公式中输入24，如下所示：
=B3/1440
2. 然后将结果单元格格式设置为时间。请参考上述步骤。
最终结果如下图所示。
将十进制秒转换为 hh:mm:ss 格式的 Excel 时间，步骤同上，只需将除数改为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 种插入 工具（插入二维码、根据路径插入图片等） | 12 种转换 工具（小写金额转大写、汇率转换等） | 7 种合并与分割 工具（高级合并行、分割单元格等） | 还有更多... |
使用 Kutools for Excel 提升您的 Excel 技能，体验前所未有的高效。 Kutools for Excel 提供超过 300 种高级功能来提高生产力并节省时间。 单击此处获取您最需要的功能...
Office Tab 将标签式界面引入 Office，让您的工作更加轻松
- 在 Word、Excel、PowerPoint 中启用标签式编辑和阅读。
- 在同一窗口的新标签页中打开和创建多个文档，而不是在新窗口中进行操作。
- 将您的生产力提升 50%，每天为您减少数百次鼠标点击！