Публичный подтекстToColumns()
Установите ARange = Range("A:A")
Установите BRange = Диапазон ("B: B")
Установите CRange = Диапазон ("C: C")
Установите DRange = Range("D:D")
Dim arr() как строка
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Установить = Рабочие листы.Добавить
вне.Имя = "вне"
исходная строка = 2
Для i = 2 To lr
arr = Разделить (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)
исходящая строка = исходящая строка + 1
Следующий j
Затем я
End Sub
Я не делал заголовки и не работал должным образом с выходным листом, но в основном вы можете видеть, что происходит.