用逗号分隔的分裂细胞

Question

好吧，伙计们，我已经看到了很多关于此的问题，但未能找到我想要的答案。我一直在玩宏代码并试图写一些自己和大失败。所以，如果有人有代码可以做到这一点，那就太棒了。

我需要将以逗号分隔的B列中的代码拆分为下面的新单元格，并将其余部分复制到其中。此表上的范围是从A组到N.请参阅下面的我需要的内容。

B列中的数字总是4位数，并用逗号分隔。我找到了一些我认为有用的代码，但他们所做的只是复制了一组数字并删除了其余的代码并重复粘贴了相同的数字。

对此的任何帮助将不胜感激。

Answer 1

x = 2
Do Until Cells(x, 2) = ""
    splt = Split(Cells(x, 2), ",")
    If UBound(splt) > 0 Then
        Number = Cells(x, 1)
        Rows(x & ":" & x + UBound(splt) - 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        For Each e In splt
            Cells(x, 2) = Trim(e)
            Cells(x, 1) = Number
            x = x + 1
        Next e
    Else
        x = x + 1
    End If
Loop

如果您的代码从零开始（即0432），请确保将B列格式化为电子表格中的文本，或者excel将其放入单元格时将其转换为432。