KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何在 Excel 中将数字拆分为多列？

作者孙修改日期

在 Excel 中处理大型数据集时，您可能会遇到需要将一列较长数字的每一位拆分到单独列中的情况。例如，包含“9487”的单元格应被拆分为每位数字各占一列。此类需求常见于数据分析、逐位处理、编码任务，以及每位数字具有特定含义（如代码、标签或统计数据）的场景。

本教程为您介绍了几种实用方法，助您在 Excel 中快速高效地将数字拆分为独立列。

单元格中的数字拆分为多列

使用“文本分列”将数字拆分为独立列

使用 Kutools for Excel 将数字拆分为独立列good idea3

使用 Excel 公式（MID 与 COLUMN/ROW）将数字拆分为独立列

使用 VBA 宏将数字拆分为独立列

使用“文本分列”将数字拆分为独立列

在 Excel 中，您可以借助“文本分列”功能，高效地将数字的每一位拆分到独立的列中，尤其适用于位数一致或可预测的数字。

适用场景：最适合位数统一的数字或小型数据集（可手动设置分列位置）；对于位数不一或超大数据集，效果不佳。

1. 选择要拆分的数字所在单元格，然后切换至数据选项卡，单击文本分列。

功能区“数据”选项卡上的“文本分列”按钮

2。“文本分列向导”将出现。要按每位数字拆分，请选择固定宽度，然后单击下一步。

“文本分列向导”的第1步

3. 在下一步中，点击在每位数字之间添加分隔线。请确保分隔线精确放置在您希望拆分的位置。例如，若所有数字均为四位数，则在第一、第二和第三位数字后添加分隔。
提示：若数字长度不一，此方法可能导致错位。

“文本分列向导”的第2步

4. 单击下一步进入最后一步。请选择输出的目标单元格——这将决定分割后的数据从哪些列开始显示。请确保所选起始单元格右侧有足够空白列，以免覆盖现有数据。

“文本分列向导”的第3步

5. 单击完成，每位数字将立即显示在独立列中。若分隔线未正确设置，请检查结果是否存在合并或遗漏的数字。

提示与故障排除：

  • 如遇错误或意外结果，请仔细检查分隔线，并确保目标区域为空，以免覆盖现有数据。
  • 此方法需手动操作；若数据包含可变长度的数字，请考虑下文介绍的其他方法。

使用 Kutools for Excel 将数字拆分为独立列

Kutools for Excel 的分割单元格工具可快速将数字位拆分到独立列中，即使面对大型或复杂数据集亦能轻松应对。当您需要便捷操作及额外功能（如按指定宽度拆分，或无需手动设置分隔线即可处理现有数据）时，此工具尤为实用。

Kutools for Excel 提供 300 多项高级功能，简化复杂任务，提升创造力与效率。集成 AI 能力，Kutools 精准自动化任务，让数据管理变得轻松自如。Kutools for Excel 的详细信息……         免费试用……

免费安装 Kutools for Excel 后，请按以下步骤操作：

1. 选择要拆分的数字所在的单元格，然后在 Kutools 选项卡中，单击合并和拆分> 分割单元格，即可打开“分割单元格”对话框。
功能区“Kutools”选项卡上的“拆分单元格”选项

2. 在分割单元格对话框中，勾选分割至多列下的类型部分，然后在拆分依据下选择指定宽度，并在文本框中输入 1，即可确保每位数字被拆分到独立列中。
“拆分单元格”对话框

3. 单击确定后，系统将弹出对话框，提示您选择输出的目标单元格。请选择右侧有足够空列的单元格，再单击确定，数字位便会如以下所示拆分到独立列中。
数字位数被拆分为多列

Kutools for Excel 的分割单元格工具还能按多种模式拆分单元格内容，包括按需将单元格拆分为多行。
选中“拆分为行”选项的“拆分单元格”对话框

优势：快速批量处理，大幅减少手动分列错误，支持多种拆分选项，并能无缝融入现有工作流。

注意：若数字包含小数点或其他非数字字符，请检查输出结果——这些字符也会被拆分。务必仔细核对所选区域和输出单元格，避免覆盖重要数据。

使用 Excel 公式（MID 与 COLUMN/ROW）将数字拆分为独立列

对于需要动态、基于公式的解决方案（当源数据变化时自动更新）的场景，可使用 Excel 公式将数字的每位提取到独立列中。此方法特别适用于重复性任务、自动化处理，或各行数字长度不一的情况。

适用场景：最适合将单列中的所有数字拆分到多列，同时保持公式与原始数据的实时链接。适用于任意规模的数据集，但需谨慎处理包含前导零或非数字字符的数值。

1. 在数字右侧的第一个输出单元格中（例如，若数字位于 A2，则在 B2 输入），输入以下公式即可获取第一位数字：

=MID($A2, COLUMN(A1),1)

2. 按 Enter 确认公式后，向右拖动填充柄，列数应与数据集中最长数字的位数一致，每列将自动提取对应位上的数字。

说明：

  • MID 函数可从字符串中提取指定位置的字符。
  • COLUMN(A1) 在第一个输出列（即 B 列）返回 1，下一列（C 列）返回 2，依此类推，以匹配需提取的数字位数。
  • 使用 $A2 可将公式锚定到第 2 行的数字单元格，向下复制即可处理更多行。

提示：

  • 如果您的数字格式为数值（而非文本），前导零将不会显示——若这些零具有实际意义，请先将其转换为文本格式。
  • 对于较短数字，超出其实际位数的列将返回空结果。

故障排除：若出现意外字符或错误，请仔细检查引用的单元格及公式是否已针对正确的行和列进行调整。必要时，可使用 VALUE()函数强制输出数值。

使用 VBA 宏将数字拆分为独立列

若处理大型数据集，或需要额外自动化与灵活性（如处理前导零、可变长度数字或复杂解析需求），VBA 宏是高效之选。以下宏可将选择区域中每行数字的每位拆分到相邻列中。当需在多行重复执行此任务，或需定制行为（超出标准 Excel 功能）时，此方法尤为实用。

适用场景：适用于处理大量列表及自动化重复性任务，支持更灵活地自定义操作行为（例如处理非标准字符或执行高级预处理/后处理）。需启用宏，并具备 Excel VBA 环境的基本操作知识。

1. 要设置宏，请转到开发工具>Visual Basic，然后在 Microsoft Visual Basic for Applications 窗口中，点击插入> 模块，并将下方代码复制粘贴到模块窗口中：

Sub SplitNumberToColumns()
    Dim WorkRng As Range
    Dim Rng As Range
    Dim i As Integer
    Dim CellValue As String
    Dim xTitleId As String
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Select range to split digits:", xTitleId, WorkRng.Address, Type:=8)
    
    For Each Rng In WorkRng
        CellValue = CStr(Rng.Value)
        
        For i = 1 To Len(CellValue)
            Rng.Offset(0, i).Value = Mid(CellValue, i, 1)
        Next i
    Next Rng
End Sub

2. 单击运行按钮按钮即可执行宏，随后将弹出对话框，供您选择要处理的数字范围。每个选中的单元格中，各位数字将被拆分到右侧相邻的列中，每列一个数字。

故障排除与使用指导：

  • 如果单元格为空或包含非数字数据，宏仍会依据字符串长度进行筛选处理。若您的数据包含混合类型，请务必手动核对输出结果。
  • 为避免覆盖数据，请在处理所有数字前，确保所选区域右侧有充足的空白列。
  • 如果收到宏安全警告，请先在 Excel 的信任中心设置中启用所有宏，然后再运行代码。
  • 宏操作不支持撤销（Ctrl+Z）；为确保安全，建议您事先备份数据。

演示：在 Excel 中将数字拆分为单个数字

 
Kutools for Excel：超过 300 款实用工具触手可及！畅享 AI 驱动的功能，让工作更智能、更高效！立即下载！

相关文章：

最佳办公效率工具

🤖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 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

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

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

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

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

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