下面我们来看看代码：
Sub test()Dim arr, brr, k= Range("A1").CurrentRegion.ValueReDim brr(1 To 100, 1 To 6)= 2 To UBound(arr)crr = Split(arr(i, 4), "、")For m = 0 To UBound(crr)k = k + 15) = crr(m)For j = 1 To UBound(brr, 2)If j <> 5 Then brr(k, j) = arr(i, j)Next jNext mNext i= brrEnd Sub
下面来看看效果：
好了，本期教程就到这里啦，走过路过的点个关注分享一下吧，谢谢啦
