将文本字符逐一拆分到单个单元格

jiminyanyan

连用循环就是了。。。。。。

duquancai

hmc530 发表于 2018-6-29 17:39
如果我想让这些拆分后的数据再次连接起来，就像原数据一样连接在一起

如：70000,0,0,0,0,0,0,524,656, ...

1. Sub main()
   
2.     Dim s$, js As Object
   
3.     s = "[" & [b1].Text & "]"
   
4.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
5.     js.Language = "JavaScript": js.AddObject "g", Range("b3")
   
6.     js.eval "a=" & s & ";for(i=0;i<a.length;i++)g(1,i+1)=a[i];g(3,1)=a.join(',');"
   
7.     MsgBox "ok!"
   
8. End Sub

复制代码

hmc530

duquancai 发表于 2018-6-29 21:37

大神！ 第一步拆分您的代码已经实现了！

第二 步 是 将 拆分的 内容重新组在一起！

duquancai

hmc530 发表于 2018-6-30 13:38
大神！ 第一步拆分您的代码已经实现了！

第二 步 是 将 拆分的 内容重新组在一起！

第二步没实现，你自己实现吧！

Kaohsing

hmc530 发表于 2018-6-30 13:38
大神！ 第一步拆分您的代码已经实现了！

第二 步 是 将 拆分的 内容重新组在一起！

Sub hebing()

[b5] = Split(Join(Application.Transpose(Application.Transpose([b3].Resize(1, 100))), ","), ",,")(0)
End Sub

jiminyanyan

hmc530 发表于 2018-6-30 13:38
大神！ 第一步拆分您的代码已经实现了！

第二 步 是 将 拆分的 内容重新组在一起！

同一个主题发了好几个帖子呀。。。

hmc530

jiminyanyan 发表于 2018-6-30 21:48
同一个主题发了好几个帖子呀。。。

这个放弃了！这个只是拆分单一的！我重新上传了个批量的！

http://club.excelhome.net/forum. ... p;page=1#pid9569518