Public Sub textToColumns()
Ορισμός ARange = Εύρος ("A:A")
Ορισμός BRange = Εύρος ("B:B")
Ρύθμιση CRange = Range ("C:C")
Ορισμός DRange = Εύρος ("D:D")
Dim arr() Ως συμβολοσειρά
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Σειρά
Set out = Φύλλα εργασίας.Προσθήκη
out.Name = "έξω"
OutRow = 2
Για i = 2 Προς lr
    arr = Split(ARange(i), ",")
    Για j = 0 To UBound(arr)
        out.Cells(outRow, 1) = Trim(arr(j))
        out.Cells(outRow, 2) = BRange(i)
        out.Cells(outRow, 3) = CRange(i)
        out.Cells(outRow, 4) = DRange(i)
        OutRow = OutRow + 1
    Επόμενο j
Επόμενο i
Sub End
Δεν έκανα τις κεφαλίδες ή δεν ασχολήθηκα σωστά με το φύλλο εξόδου, αλλά μπορείτε να δείτε βασικά τι συμβαίνει.