要实现三位数分列，我们可以采用以下几种方法：
方法一：使用VBA宏
在Excel中，我们可以使用VBA宏来实现三位数的分列。以下是一个简单的VBA宏示例，用于将一列中的三位数按逗号分隔，并将结果填入到相邻的两列中：
```vba
Sub SplitData（）
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim data As Variant
Dim LastRow As Long
' 设置工作表
Set ws = ThisWorkbook.Sheets（"Sheet1"）
' 找到A列最后一行
LastRow = ws.Cells（ws.Rows.Count, "A"）.End（xlUp）.Row
' 遍历每个单元格
For Each cell In rng
data = Split（cell.Value, ","）
cell.Offset（0, 1）.Value = data（0） ' 把姓名填到B列
cell.Offset（0, 2）.Value = data（1） ' 把电话号码填到C列
Next cell
End Sub
```
方法二：使用Excel公式
如果你不想使用VBA宏，也可以使用Excel的公式来实现分列。例如，你可以使用`MID`和`SEARCH`函数来提取三位数的各个部分：
```excel
=MID（A1, SEARCH（",", A1） + 1, 1） ' 提取第一个数字（百位）
=MID（A1, SEARCH（",", A1, SEARCH（",", A1） + 1） + 1, 1） ' 提取第二个数字（十位）
=MID（A1, SEARCH（",", A1, SEARCH（",", A1, SEARCH（",", A1） + 1） + 1） + 1, 1） ' 提取第三个数字（个位）
```
将上述公式分别填入到B1、C1和D1单元格中，然后将A1单元格的公式向下拖动到需要的行数。
方法三：使用编程语言
如果你更喜欢编程，可以使用Python等编程语言来实现三位数的分列。以下是一个Python示例，用于从用户那里获取一个三位数，并输出其个位、十位和百位上的数字：
```python
def split_three_digit_number（number）:
获取个位数字
ones = number % 10
获取十位数字
tens = （number % 100） // 10
获取百位数字
hundreds = number // 100
return hundreds, tens, ones
从用户那里获取一个三位数
number = input（"请输入一个三位数： "）
分解三位数
hundreds, tens, ones = split_three_digit_number（int（number））
输出结果
print（f"百位： {hundreds}， 十位： {tens}， 个位： {ones}"）
```
总结
以上方法各有优缺点，选择哪种方法取决于你的具体需求和使用的工具。如果你在Excel中工作，使用VBA宏或Excel公式可能更为方便；如果你更喜欢编程，使用Python等编程语言可能更适合你。