根据行的单元格数据在excel中插入复制的行，然后根据行引用单元格的部分填充单元格

Question

任何人都可以理解我想要做什么吗？这是我用语言解释它的最佳方式。在基于单元格数据的Excel中插入行，然后将先前的行数据复制到新行，然后从原始行的引用单元格数据的部分填充单元格。

这是以前的图像：

这是结果的图像：

我不知道这是否可以用VBA / Macro，内置公式等完成。

另一种描述我的手动过程的方法是从第2行开始，如果C2中有值，那么我插入一个新行，但是在C2中用逗号分隔的多个值。然后我将内容从A2和B2复制到新的空白行3和4中，然后我将值与C2分开并将它们粘贴到C2 C3，C4中。如果一行在C列中没有值，那么我将移动到下一行，依此类推，直到我到达C列中具有单元格值的行并从上面重复该方法。

Answer 1

在工作簿中，创建一个名为“目标”的新工作表。将以下代码复制并粘贴到VBA中的新模块中...

Public Sub SplitRowsBasedOnLastColumn()
    Dim rngCells As Range, lngRow As Long, lngCol As Long, strLastColValue As String, i As Long
    Dim strDelimiter As String, objDestSheet As Worksheet, lngWriteRow As Long, arrValues

    Set rngCells = Selection
    strDelimiter = ","

    Set objDestSheet = Sheets("Destination")
    lngWriteRow = 1

    With rngCells
        objDestSheet.Cells.Clear

        For lngCol = 1 To .Columns.Count
            objDestSheet.Cells(1, lngCol) = .Cells(1, lngCol)
        Next

        For lngRow = 2 To .Rows.Count
            strLastColValue = .Cells(lngRow, .Columns.Count)

            If strLastColValue = "" Then strLastColValue = " "

            arrValues = Split(strLastColValue, strDelimiter)

            For i = 0 To UBound(arrValues)
                lngWriteRow = lngWriteRow + 1

                For lngCol = 1 To .Columns.Count - 1
                    objDestSheet.Cells(lngWriteRow, lngCol) = .Cells(lngRow, lngCol)
                Next

                objDestSheet.Cells(lngWriteRow, .Columns.Count) = Trim(arrValues(i))
            Next
        Next
    End With
End Sub

现在选择您的数据范围，包括标题（如图所示），然后运行宏。

完成后，检查“目的地”表，您应该得到结果。

我根据您提供的数据集编写了这个，如果您有任何其他情况，可能需要调整。

让我知道事情的后续。