Nyilvános alszövegToColumns()
ARange beállítása = Tartomány("A:A")
BRange beállítása = Tartomány("B:B")
CRange beállítása = Tartomány("C:C")
DRange beállítása = Tartomány("D:D")
Dim arr() As String
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Sor
Set out = Munkalapok.Hozzáadás
out.Name = "out"
outSor = 2
Ha i = 2 To lr
    arr = Felosztás(ARrange(i), ",")
    j = 0 - UBound(arr) esetén
        ki.Cells(outSor, 1) = Trim(arr(j))
        ki.Cells(outSor, 2) = BTartomány(i)
        ki.Cells(outSor, 3) = CRange(i)
        ki.Cells(outSor, 4) = DRange(i)
        outRow = outRow + 1
    Következő j
Következő i
End Sub
Nem csináltam meg a fejléceket és nem foglalkoztam megfelelően a kimeneti lappal, de alapvetően láthatod, hogy mi történik.