如果第一个单元格包含逗号，如何复制行？

Question

我有一些表，其中一些第一个单元格包含逗号字符。如果第一个单元格包含逗号字符到另一行，如何复制每一行？

我还需要将第一个单元格值分隔为新行。

我的源表是：

我的目的地表是：

Answer 1

您需要一个遍历每一行的宏，然后遍历第一列中的每个值。此基本示例宏要求您选择表中的一个单元格，然后创建一个拆分数据的新工作表。

Public Sub Expand()

Dim ra As Range
Dim str As Variant
Dim ws As Worksheet
Dim i As Integer
Dim j As Integer

Set ra = Selection.CurrentRegion
Set ws = Worksheets.Add
j = 1

For i = 1 To ra.Rows.Count
    For Each str In Split(ra(i, 1), ",")
        ws.Cells(j, 1) = str
        ws.Cells(j, 2) = ra(i, 2)
        j = j + 1
    Next str
Next i

End Sub