Excel 在列&;中拆分值;在另一列中放入编号相同的新行

Excel 在列&;中拆分值;在另一列中放入编号相同的新行,excel,Excel,我有一个电子表格,有两列:产品ID和类别。“产品ID”列中只有一个数字,但“类别”列中可以有多个数字,用逗号分隔。我需要的是,用逗号分隔的数字继续到新行,但保持相同的产品ID 现在的样子: PRODUCT ID | CATEGORIES 1 | 76,81 2 | 76,78 3 | 76,80 我需要的是: PRODUCT ID | CATEGORIES 1 | 76 1

我有一个电子表格,有两列:产品ID和类别。“产品ID”列中只有一个数字,但“类别”列中可以有多个数字,用逗号分隔。我需要的是,用逗号分隔的数字继续到新行,但保持相同的产品ID

现在的样子:

PRODUCT ID   |   CATEGORIES
1            |   76,81
2            |   76,78
3            |   76,80
我需要的是:

PRODUCT ID   |   CATEGORIES
1            |   76
1            |   81
2            |   76
2            |   78
3            |   76
3            |   80
如何在excel中执行此操作,我需要一个公式来执行此操作。我有大约6000种产品,因此手动执行此操作不是一个选项

非常感谢您的帮助

您可以使用:

Sub test()

    Dim c As Range
    Dim ID As Variant
    Dim arrCategories() As String

    Dim d As Range
    Set d = Range("D1")

    Dim i As Long

    For Each c In Range(Range("A1"), Range("A1").End(xlDown))

        ID = c.Value
        arrCategories() = Split(c.Offset(0, 1).Text, ",")

        For i = LBound(arrCategories) To UBound(arrCategories)

            d.Value = ID
            d.Offset(0, 1).Value = arrCategories(i)

            Set d = d.Offset(1, 0)

        Next i

    Next c

End Sub
输入数据必须在A:B列中,从第1行开始

输出将从第1行开始写入D:E列

致以最良好的祝愿


西蒙

对不起,是的,有些可能有3或4英寸,但确实不同。