请问高手们Excel两个或以上字排在一起怎么分开,分到下一行怎么设置?
7个回答
展开全部
分开成两列是很容易的,【数据】下面有个【分列】功能就可以。可以分列之后再粘贴到一列上。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-05-23 · 知道合伙人软件行家
关注
展开全部
你这个需要用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行
如果不是的话,请修改相应的行列
右键点击工作本标签,就是写着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)
然后下拉公式,即可。
可用公式:
=MID(PHONETIC($A$1:$A$5),ROW(A1),1)
然后下拉公式,即可。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询