Excelでまとまったデータを分割してまとめたい

Question

下記の1枚目の画像のように1つのidに複数のデータが入っていた場合に、2枚目のような形で「＆」までを一括りとして分割した分の行数を追加し、それぞれのデータをcodeとnameに入れ込むまでが流れとなります。

[完成画像]

私自身で試してみたところ、まずSUBSTITUTEで「data：」を取り除き、その後「区切り位置機能」を使い整形し直しましたが横に隣のセルにデータ分記述されてしまいます。

[区切り位置機能]

困ってることは、、、
・区切り位置機能などで区切った分下に行追加できるのか。

上記になります。

Answer 1

関数だと行追加とかは難しいと思いますので、VBAで書いてみました。

Sub test1()
    Dim arr1, arr2, arr3
    arr1 = ActiveSheet.UsedRange
    Dim i, j, r
    r = 2
    For i = 2 To UBound(arr1, 1)
        arr2 = Split(arr1(i, 2), "&")
        Dim e, c, n
        For Each e In arr2
            arr3 = Split(e, "=")
            c = arr3(1)
            n = Mid(arr3(0), 6)
            Cells(r, 1) = arr1(i, 1)
            Cells(r, 2) = c
            Cells(r, 3) = n
            r = r + 1
        Next
    Next
End Sub