小伙伴遇到一个小麻烦。

想把下图中的商品代码拆分开来，也就是由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

这里提供的是VBA代码的解法，你还有什么好方法呢？