随手VBA之商品分离

<小徒弟 渺渺>

一小伙伴遇到如下的困难

想把这个拆分开来

如A列变为B列

数据有点多

取样如下

思路:分离神器split

跟哥走起

一键秒杀

嘿嘿！

代码如下：

Sub 分离()

    Dim arr, BRR(1 To 10000, 1 To 1)

    arr = Range('A1').CurrentRegion

    '相连装入数组

    For x = 2 To UBound(arr)

        '循环

        spr = VBA.Split(arr(x, 1), ',')

        '分离神器

        For y = 0 To UBound(spr)

            k = k 1

            '无敌的高斯

            BRR(k, 1) = spr(y)

        Next

        Erase spr

        '清空数组好循环利用

    Next

    [b2].Resize(k, 1) = BRR

    '读出

End Sub

PS:这里存在重复，如果不需要重复，则装入字典再读出即可。

传播正能量：操作方便才是硬道理！

<online marketer 

貓ゞ哥>

我们最大的进步来源于你的分享和转发