当单元格的值由逗号分隔时复制行

Question

我需要将每行分割为2当第6列中的逗号分隔的值（多行）时。

实施例（从2行）：

A B C D E F G0 ,G1 
A* B* C* D* E* F* G0*,G1* 

变成：

A B C D E F G0 
A B C D E F G1 
A* B* C* D* E* F* G0* 
A* B* C* D* E* F* G1* 

Answer 1

^{重新利用Split delimited 2nd and 3rd column data into new rows。}

Option Explicit 

Sub split_out() 
    Dim v As Long, vVALs As Variant, vSPLITs As Variant 
    Dim rw As Long, lr As Long, mx As Long 

    With Worksheets("Sheet4") 
     lr = .Cells(Rows.Count, 1).End(xlUp).Row 
     For rw = lr To 2 Step -1 
      vVALs = .Cells(rw, 1).Resize(1, 7).Value2 
      vSPLITs = Split(vVALs(1, 7), Chr(44)) 
      For v = UBound(vSPLITs) To LBound(vSPLITs) + 1 Step -1 
       .Rows(rw + 1).EntireRow.Insert 
       .Cells(rw + 1, 1).Resize(1, 6) = _ 
        Array(vVALs(1, 1), vVALs(1, 2), vVALs(1, 3), vVALs(1, 4), vVALs(1, 5), vVALs(1, 6)) 
       .Cells(rw + 1, 7) = Trim(vSPLITs(v)) 
      Next v 
      .Cells(rw, 7) = Trim(vSPLITs(v)) 
     Next rw 
    End With 

End Sub 

从这个...

......进入这个。