UC知道一个简单的EXCEL问题
来源：百度知道 编辑：UC知道 时间：2024/06/05 05:04:52
比如一个EXCEL 的 一个格子里有 中国3德国6日本1泰国6马来西亚1
有什么办法 能一次性把他们 变成 每一个国家 占一个格子的 竖列 形式
因为有很多项 用 剪切 太麻烦了 谢谢了 ！！！！
用 记事本 能不能用替换 这个选项 解决 这个问题 我好像看别人用过
这个方法稍微要好一点 但是我有几千横列 还是 费力啊 眼睛都花了！
有什么办法 能一次性把他们 变成 每一个国家 占一个格子的 竖列 形式
因为有很多项 用 剪切 太麻烦了 谢谢了 ！！！！
用 记事本 能不能用替换 这个选项 解决 这个问题 我好像看别人用过
这个方法稍微要好一点 但是我有几千横列 还是 费力啊 眼睛都花了！
可以用 数据－分列（最好每项间有空格或符号，分起来容易些，其实往里加符号也不慢）
然后通过复制－选择性粘贴－转置，调为竖排
补充：可以先贴到记事本，一项一回车，再粘贴回去
没有这个功能。谢谢
没办法。只能一点点的弄。
想一下子搞好。Exele要一个个输入
不清楚你所有的格式是怎么样的,我这就针对你的举例编了个宏abc,如A1为:中国3德国6日本1泰国6马来西亚1,运行宏abc,就能在A2中显示中国,B2中显示3,A3中显示德国,B3中显示6,... 宏代码为:
Sub abc()
a = Cells(1, "A") & " "
r = 1
b = ""
For i = 1 To Len(a) - 1
If Asc(Mid(a, i, 1)) > 47 And Asc(Mid(a, i, 1)) < 58 Then
b = b & Mid(a, i, 1)
c2 = 1
Else
b = b & Mid(a, i, 1)
c1 = 1
End If
If c1 = 1 And Asc(Mid(a, i + 1, 1)) > 47 And Asc(Mid(a, i + 1, 1)) < 58 Then
Cells(r + 1, 1) = b
b = ""
c1 = 0
End If
If c2 = 1 And Asc(Mid(a, i + 1, 1)) < 47 Or Asc(Mid(a, i + 1, 1)) > 58 Then
Cells(r + 1, 2) = b
b = ""
c2 = 0
r = r + 1
End If
Next i
End Sub