excel分列 VBA 程序

aquarius_217

各位大神， VBA小白一枚，求助数据分列，原始表格就是一整行全部都在一列里面，直接用那个数据的分列按钮，可以达到效果，但是因为表格多，想用 VBA解决，麻烦各位前辈大神帮忙看看，谢谢

不知道为什么

如图              

不知道为什么

附件                     

aquarius_217

不知道为什么 发表于 2018-6-23 01:22
附件

谢谢大神！另外我昨天找来找去也找到一组代码，好像也可以实现，贴出来给你评价一下

aquarius_217

还不会传图
sub 数据拆分 ()
Dim i As Integer, j As Integer, Arr
    For j = 1 To [a65536].End(3).Row
        Arr = Split(Cells(j, 1), ";")
        k = UBound(Arr)
    Range(Cells(j, "a"), Cells(j, k)) = Arr
    Next j
End Sub

不知道为什么

aquarius_217 发表于 2018-6-23 16:38
还不会传图
sub 数据拆分 ()
Dim i As Integer, j As Integer, Arr

思路基本一样，这段代码是输出到本表格。
有一点请你测试，他的结果对么？

aquarius_217

不知道为什么 发表于 2018-6-23 17:19
思路基本一样，这段代码是输出到本表格。
有一点请你测试，他的结果对么？

对的，我也把你的抄下来去试试研究下，他这段代码我可以看得懂，你的可以麻烦稍微解释一下吗，谢谢你啦

不知道为什么

aquarius_217 发表于 2018-6-24 22:44
对的，我也把你的抄下来去试试研究下，他这段代码我可以看得懂，你的可以麻烦稍微解释一下吗，谢谢你啦

能看懂那段代码，都是一个意思啊，你具体哪里不明白？

aquarius_217

不知道为什么 发表于 2018-6-24 23:01
能看懂那段代码，都是一个意思啊，你具体哪里不明白？

我不太懂if那一段的意思 o(╯□╰)o