Excel 数值自动展开，跪求vb高手解决！

voloon2

表1里，电路代号用逗号或者顿号分割，如何在表2中自动展开。2组数值值中间，能否插入空行分开？
其他列数据能否带上！请大神帮忙

一把小刀闯天下

'自己修改

Option Explicit

Sub test()
  Dim arr, i, j, k, t, n
  arr = Sheets("sheet1").[a1].CurrentRegion
  ReDim brr(1 To 10 ^ 5, 1 To UBound(arr, 2))
  For i = 1 To UBound(arr, 1)
    arr(i, 3) = Replace(arr(i, 3), "、", ",")
    If InStr(arr(i, 3), ",") Then
      t = Split(arr(i, 3), ",")
      For j = 0 To UBound(t)
        n = n + 1
        For k = 1 To UBound(arr, 2)
          brr(n, k) = IIf(k = 3, t(j), arr(i, k))
      Next k, j
    Else
      n = n + 1
      For j = 1 To UBound(arr, 2): brr(n, j) = arr(i, j): Next
    End If
  Next
  With Sheets("sheet2")
    .Cells.ClearContents
    .[a1].Resize(n, UBound(brr, 2)) = brr
  End With
End Sub

voloon2

一把小刀闯天下 发表于 2018-6-28 18:00
'自己修改

Option Explicit

？？
我是小白啊，哥！看都看不懂，何况自己修改！

一把小刀闯天下

理由很充分
11.zip (24.05 KB, 下载次数: 9)

2018-6-28 18:25 上传

点击文件名下载附件

voloon2

一把小刀闯天下 发表于 2018-6-28 18:25
理由很充分

哈哈谢谢！
数量那栏，数值能不能显示1