如何在 Excel 中将电话号码格式转换为纯数字？
处理包含电话号码列表的 Excel 工作表时，您常常会遇到各种格式样式，例如括号、空格或短横线。这些非数字字符可能会干扰数据分析、系统导入或自动拨号流程——而这些场景通常要求电话号码为纯数字序列。如果您需要通过仅提取数字来标准化数据，本文为您提供了几种在 Excel 中高效实现此目标的实用方法。
以下是一个典型场景示例：最左列中的电话号码格式各异，而右侧列则展示了期望结果——即移除所有非数字字符后，仅保留连续的数字字符串作为电话号码。
使用公式将电话号码格式转换为数字
使用“快速填充”从格式化的电话号码中提取数字
使用 Kutools for Excel 将电话号码格式转换为数字
使用宏从电话号码中移除所有非数字字符
使用公式将电话号码格式转换为数字
Excel 公式可助您轻松清除多余字符，仅保留电话号码列表中的数字。此方法尤其适合不愿使用插件或编程的用户，在处理格式统一的电话号码（例如（123)456-7890 或 123-456-7890）时效果出色；但若数据中包含额外的非标准符号或字母，则可能需要更高级的技术手段。
1. 选择一个空白单元格（例如 C2）用于显示提取的数字，输入以下公式并按 Enter：
=--SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2,"(",""),")","")," ",""),"-","")
注意：在此公式中，A2 是包含原始电话号码的单元格引用。如果您的数据位于其他列或行，只需修改此引用即可。
2. 选中单元格 C2 后，拖动填充柄（位于单元格右下角的小方块），将公式向下填充至列表其余部分（例如从 C2 到 C8），从而将公式快速应用到该范围内的每个电话号码。
现在，您数据区域中的每个电话号码都应已转换为纯数字序列。
使用“快速填充”从格式化的电话号码中提取数字
Excel 的“快速填充”功能为您提供了一种智能的手动替代方案，特别适用于格式统一的电话号码列表，或当您希望以无需公式的方式快速完成操作时。“快速填充”会根据您的手动输入识别模式，并自动填充其余单元格，使其与您提供的示例保持一致。
1. 假设您的电话号码位于 A 列，从单元格 A2 开始。在相邻列（B2）中，手动输入第一个电话号码的纯数字（省略所有符号或空格），例如：1234567890.
2. 移动到单元格 B3，开始输入下一个电话号码。输入时，Excel 会自动识别模式，并在下方以灰色高亮显示建议的自动填充内容。
3. 按 Enter 接受“快速填充”建议，Excel 即可自动为所有对应行填充提取的数字。
提示：如果“快速填充”未自动触发，您可以手动激活它：选中已完成的单元格，然后使用快捷键 Ctrl+E，或单击功能区中的数据> 快速填充。
注意事项：请务必检查填充结果的准确性，尤其是在电话号码格式不一致的情况下。“快速填充”在处理间距不规则、格式混杂或包含嵌入文本的列表时，效果可能不理想。
总结建议：“快速填充”适用于一次性操作或小型数据集，但原始数据更改后不会动态更新。如需持续更新的列表，请使用公式或 VBA 方法。
使用 Kutools for Excel 将电话号码格式转换为数字
对于寻求更便捷、交互式解决方案的用户，Kutools for Excel 中的删除特定字符工具可高效移除所选单元格中的指定符号（包括短横线、空格、括号等）。此方法非常适合经常处理结构化数据、希望借助菜单驱动方式快速清理电话号码而无需编写公式或代码的用户。
1. 选择包含要转换为数字的电话号码的区域，然后依次点击 Kutools > 文本 > 删除特定字符。
2. 在删除特定字符对话框中，选择自定义选项，并在文本框中输入短横线–。您还可以在框中添加空格、括号或句点等字符，轻松指定要移除的其他符号。设置完成后，单击确定即可处理所选区域。
所选电话号码将在移除指定字符后立即更新，仅保留如下所示的干净数字序列。
如果您想免费试用（30 天）此工具，请点击此处下载，然后按照上述步骤操作即可。
使用宏从电话号码中移除所有非数字字符
如果您的任务涉及大量格式混杂或不可预测的电话号码（包含特殊字符、空格、多余标点、文本甚至国家代码），Excel 的 VBA 宏可提供高度灵活且自动化的清理方案——一键完成全部处理。此方法尤其适用于大型数据集或重复性清理任务。
适用场景：当电话号码格式不规则、需处理大量数据行，或公式与内置功能均无法完全满足需求时，请使用 VBA。但请注意，使用宏需将工作簿保存为启用宏的格式（*.xlsm），并授予宏运行权限。
步骤：
1. 按 Alt+F11 打开 Visual Basic for Applications 编辑器。在新窗口中，点击插入> 模块 创建空白模块，然后将以下 VBA 代码复制并粘贴到代码窗口中：
Sub StripNonDigitsFromPhoneNumbers()
Dim xRg As Range
Dim xCell As Range
Dim xDigits As String
Dim i As Integer
Dim xTitleId As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set xRg = Application.Selection
Set xRg = Application.InputBox("Select the range with phone numbers", xTitleId, xRg.Address, Type:=8)
For Each xCell In xRg
xDigits = ""
For i = 1 To Len(xCell.Value)
If Mid(xCell.Value, i, 1) Like "#" Then
xDigits = xDigits & Mid(xCell.Value, i, 1)
End If
Next i
xCell.Value = xDigits
Next xCell
End Sub2. 然后单击
功能区上的运行按钮（或按 ）F5）。在弹出的对话框中确认或选择您的数据区域，宏将自动从所选区域的每个单元格中移除所有非数字字符，仅保留纯数字序列。
参数说明：此宏会逐字符处理每个单元格，仅将数字字符追加到结果中。运行前请调整所选区域，确保覆盖所有目标列或行。
提示与错误提醒：首次运行 VBA 脚本前，请务必保存工作簿——此类更改无法通过单次撤销恢复。如遇宏安全警告，请核实代码来源并按需启用宏。在协作环境中操作时，请格外谨慎，以免覆盖关键数据。
总结建议：运行宏后，请快速浏览清理后的数据，确保准确无误。如需保留国家代码或分机号，请注意这些内容将被合并到数字字符串中；若有特殊需求，应单独处理此类元素。
相关文章：
最佳办公效率工具
| 🤖 | KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行 | 生成代码| 创建自定义公式 | 数据分析及生成图表| 调用 Kutools Functions…… |
| 热门功能：查找、高亮或标记重复项 | 删除空白行 | 合并列或单元格且不丢失数据 | 不使用公式的四舍五入…… | |
| 高级 LOOKUP：多条件 VLookup | 多值 VLookup | 跨多工作表 VLookup | 模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 | 级联下拉列表 | 多选下拉列表…… | |
| 列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列…… | |
| 特色功能：网格聚焦 | 设计视图 |增强编辑栏 | 工作簿和表管理器 | 资源库（自动文本）| 日期提取 | 汇总工作表 | 加密/解密单元格 | 按列表发送邮件 | 超级筛选 | 特殊筛选（筛选粗体单元格/斜体/删除线……） ...... | |
| 精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）| 50+ 图表 类型（甘特图，……）| 40+ 实用公式（基于生日计算年龄，……）| 19 插入工具（插入二维码，从路径插入图片，……）| 12 转换工具（小写金额转大写，汇率转换，……）| 7 合并和拆分工具（高级合并行，分割单元格，……）|……更多 |
使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……
Office Tab 为 Office 带来标签式界面，让您的工作更轻松
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
- 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
- 将您的工作效率提升 50%，每天减少数百次鼠标点击！
所有 Kutools 插件，一个安装程序
Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。
- 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
- 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
- 协同效果更佳— 在多个 Office 应用中实现高效协同
- 30 天全功能试用— 无需注册，无需信用卡
- 超值之选— 比单独购买插件更省钱