excel2003怎样写代码来自动实现把单元格里的五组数字分别显示到五个指定的单元格里，谢谢！

更新时间2018-05-24 16:45:17

VBA代码如下：

Sub 自动分列()

Dim i As Long

Dim str As String

Dim arr

For i = 718 To 801

str = Cells(i, 10).Value

str = Replace(str, "，", " ") '把中文逗号换成空格

str = Replace(str, ",", " ") '把英文逗号换成空格

str = Replace(str, "　", " ") '把全角空格换成空格

arr = Split(str, " ") '对加工过的一组数分成5个未去“0”的字符串式的数字

Range("C" & i & ":G" & i) = arr '把分好的字符分别存入对应单元格

Next i

[C718:G801].Value = [C718:G801].Value '把全部分好的单元格中的字符串式数字转换成数值，即去“0”

End Sub

以上代码只是把你说的范围内所有的内容都分组了，没有考虑有空的情况，你可以把“For i= 718 To 801”中数字改成你想要的开始和结束行数也行。

一个公式就可以了：

=MID(SUBSTITUTE($J718,","," "),COLUMN(A1)*3-2,2)