大神excel单元格数据自动换行并以新行的方式插入

jianlanyou

原数据如图所示，多个额外单号以,号隔开，希望每个额外单号另起新的一行显示，原对应行数据不变。
希望效果如下：

gykg-excel

可以使用power query。

excel玉米

Sub 自动换行新增()
  Dim i%, s%, k%, m%, arr, brr
  arr = Sheet1.Range("a1").CurrentRegion
  m = Sheet2.Cells(Rows.Count, 1).End(3).Row
  For i = 2 To UBound(arr)
    If arr(i, 3) <> "" Then
       arr_split = Split(arr(i, 3), ",")
     For s = 0 To UBound(arr_split)
       k = k + 1
       Sheet2.Cells(m + k, 1) = arr(i, 1)
       Sheet2.Cells(m + k, 2) = arr_split(s)
       Sheet2.Cells(m + k, 3) = arr(i, 4)
       Sheet2.Cells(m + k, 4) = arr(i, 5)
       Sheet2.Cells(m + k, 5) = arr(i, 6)
     Next
     End If
  Next
End Sub

jianlanyou

excel玉米 发表于 2019-11-27 09:52
Sub 自动换行新增()
  Dim i%, s%, k%, m%, arr, brr
  arr = Sheet1.Range("a1").CurrentRegion

厉害，就是想要的结果，估计变量太多，需要批量执行，只能用宏了，公式是解决不了了

jianlanyou

gykg-excel 发表于 2019-11-27 09:48
可以使用power query。

厉害，我不会用power query 学习下