Excel中如何将单个单元格数值拆分到尾位固定的多个指定单元格

核心逻辑：将源单元格的数值统一格式化为「3位整数+1位小数点+2位小数」的右对齐固定长度字符串，整数位不足时前补空格，再逐字符拆分到对应单元格即可实现末尾位置固定。

方法1：内置函数实现（无需启用宏） #

使用TEXT函数完成格式对齐，再用MID函数逐字符提取：

1. 首先确认当前拆分规则对应固定格式为3位整数+2位小数，总长度6位，对齐公式为TEXT($A$1,"???0.00")，其中?为空格占位符，整数位不足时自动在前面补空格
2. 对应单元格分别输入以下公式：

• A2：=MID(TEXT($A$1,"???0.00"),1,1)
• A3：=MID(TEXT($A$1,"???0.00"),2,1)
• A4：=MID(TEXT($A$1,"???0.00"),3,1)
• A5：=MID(TEXT($A$1,"???0.00"),4,1)
• A6：=MID(TEXT($A$1,"???0.00"),5,1)
• A7：=MID(TEXT($A$1,"???0.00"),6,1)

效果验证：

当A1值为100.21时，TEXT函数输出为100.21，拆分结果为A2=1、A3=0、A4=0、A5=.、A6=2、A7=1
当A1值为10.21时，TEXT函数输出为 10.21（首位为空格），拆分结果为A2为空、A3=1、A4=0、A5=.、A6=2、A7=1

如果后续需要调整支持更多整数位，比如最多4位整数，只需要把TEXT的格式参数改为????0.00，对应多补一个?占位符，拆分的单元格数量同步增加即可。

方法2：VBA自定义函数（适合批量处理场景） #

如果需要批量处理大量行的拆分需求，可以使用自定义函数简化操作：

1. 按Alt+F11打开VBA编辑器，右键点击当前工作簿名称→插入→模块
2. 粘贴以下代码：

Function SplitFixedPos(sourceCell As Range, getPos As Integer) As String
    ' sourceCell：源数据单元格，getPos：要提取的字符位置（从1开始计数）
    Dim formatStr As String
    ' 固定格式：3位整数补空格+小数点+2位小数
    formatStr = Format(sourceCell.Value, "???0.00")
    If getPos >= 1 And getPos <= Len(formatStr) Then
        SplitFixedPos = Mid(formatStr, getPos, 1)
    Else
        SplitFixedPos = ""
    End If
End Function

3. 回到表格界面，在A2输入=SplitFixedPos($A$1,1)，下拉填充到A7即可完成拆分，后续其他行只需要修改引用的源单元格参数即可。

内容的提问来源于stack exchange，提问作者Mārtiņš Tereško