如何拆分行，将一个单元格拆分成两行

SteakJoe

如图，
B11与B12两个格中，用逗号隔开了两个名字，现在想将其拆分，形成两个新行，如图

逗号删除与否不重要，但是希望可以实现生成后面的内容，将一组6行的数据拆分成完整的8行。
感谢老师！
表格已随附件上传，初始在sheet1，完成后的在sheet2

LMY123

按字符拆分成行，其它列复制

补充内容 (2018-12-21 09:21):
'http://club.excelhome.net/thread-1382937-1-1.html
Sub 一行拆分成多行_SPLIT()
  Dim r%, i%
  Dim 源数组, 结果数组
  With Worksheets("sheet1")
    源行数 = .Cells(.Rows.Count, 2).End(xlUp).Row
    ...

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet1")
   
5.     r = .Cells(.Rows.Count, 2).End(xlUp).Row
   
6.     arr = .Range("b9:l" & r)
   
7.     ReDim brr(1 To 1000, 1 To UBound(arr, 2))
   
8.     For i = 1 To UBound(arr)
   
9.       crr = Split(arr(i, 1), ",")
   
10.       For k = 0 To UBound(crr)
    
11.         m = m + 1
    
12.         brr(m, 1) = crr(k)
    
13.         For j = 2 To UBound(arr, 2)
    
14.           brr(m, j) = arr(i, j)
    
15.         Next
    
16.       Next
    
17.     Next
    
18.   End With
    
19.   With Worksheets("sheet2")
    
20.     .Range("b18").Resize(UBound(brr), UBound(brr, 2)) = brr
    
21.   End With
    
22. End Sub
    

复制代码

chxw68

详见附件。

microyip

把数据读到数组里，根据第一列以逗号为区分来拆，重建数组

SteakJoe

chxw68 发表于 2017-12-4 14:55
详见附件。

不好意思褚老师，是我没表达清楚。
我没有想把完成的结果放在sheet2，只要在sheet1里面完成就可以了。sheet2放的结果只是作为参考

chxw68

修改好了。