有较多列数据需要分列，是否可以通过宏来实现一次搞定

无锋舞风 · 发表于 2018-8-11 06:01

需要通过分列将“|”前的数字去掉，通过查阅及录制宏得到代码如下：
Columns("E:E").Select
  Selection.TextToColumns Destination:=Range("E1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
      Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
      :="|", FieldInfo:=Array(Array(1, 9), Array(2, 1)), TrailingMinusNumbers:=True
End Sub
用for 循环试着改，但是都没成功，数据太多了，实在点不过来，求指点！！！谢谢！！！

蓝桥玄霜 · 发表于 2018-8-11 10:05

欢迎新会员！
没有附件不能测试代码。
建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。

无锋舞风 · 发表于 2018-8-11 14:02

好的，谢谢

无锋舞风 · 发表于 2018-8-11 14:03

蓝桥玄霜发表于 2018-8-11 10:05
欢迎新会员！
没有附件不能测试代码。
建议上传Excel表格附件来说明问题。

好的，谢谢

无锋舞风 · 发表于 2018-8-11 14:10

这是我的数据的一部分

不知道为什么 · 发表于 2018-8-11 14:43

无锋舞风发表于 2018-8-11 14:10
这是我的数据的一部分

Split(arr(i,j),"|")(1)

无锋舞风 · 发表于 2018-8-11 15:19

不知道为什么发表于 2018-8-11 14:43
Split(arr(i,j),"|")(1)

这个怎么用呀，新手

无锋舞风 · 发表于 2018-8-11 15:20

不知道为什么发表于 2018-8-11 14:43
Split(arr(i,j),"|")(1)

这个要怎么用呀，不太会

不知道为什么 · 发表于 2018-8-11 15:21

无锋舞风发表于 2018-8-11 15:20
这个要怎么用呀，不太会

最后得结果输出到哪里？

无锋舞风 · 发表于 2018-8-11 15:23

不知道为什么发表于 2018-8-11 15:21
最后得结果输出到哪里？

结果输出可以放在原单元格吗

		自动登录	找回密码
密码			免费注册

[求助] 有较多列数据需要分列，是否可以通过宏来实现一次搞定

评分