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中每一個字節的后面加上逗號。