当单元格具有以逗号分隔的值时复制行

Question

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

示例（从 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

^{Re-purposed .}

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

由此...

...到此。