1、在第一个单元格百输入公式,然后复制到其它所有单元度格。
=MID(A2,1,1) & "," & MID(A2,2,1) & "," & MID(A2,3,1) & "," & MID(A2,4,1) & "," & MID(A2,5,1) & "," & MID(A2,6,1)
如果不止是6位数字,就继续连接公式问的答MID(A2,6,1)。
2、将变换后的列复制然后“专选择性粘贴”到其它列,只粘贴数值,去掉公式。
3、查找替换“,属,”,即连续的两个逗号。
函数做这个zhidao事有点蹩脚了,但是好在Excel内置了强大的VBA,一段简单的代码便可实现,
自定回义函数代码如答下:
1
2
3
4
5
6
7
|
Function tst(cel As Range)
Dim i%
For i = 1 To Len(cel)
p = p & Mid(cel, i, 1) &
","
Next
tst = p
End Function
|
在任意单元格输入自定义函数=tst(A1), 便可将A1中每一个字节的后面加上逗号。