如果数据不多,可以用内容重排.
分开成两列是很容易的,【数据】下面有个【分列】功能就可以。可以分列之后再粘贴到一列上。
详细参考下图制作过程
提供3套不经过VBA的方案
你这个需要用vba来解决
右键点击工作本标签,就是写着sheet1、sheet2那个,选择查看代码
输入以下内容
Sub a()
r = 1
c2 = 1
Do Until Cells(r, 1) = ""
For x = 1 To Len(Cells(r, 1))
Cells(c2, 2) = Mid(Cells(r, 1), x, 1)
c2 = c2 + 1
Next x
r = r + 1
Loop
End Sub
然后运行就可以了
前提是假设你的原始数据都在A列1行
如果不是的话,请修改相应的行列
看不到行列号,假设原数据区域在$A$1:$A$5,那么
可用公式:
=MID(PHONETIC($A$1:$A$5),ROW(A1),1)
然后下拉公式,即可。