разбить содержимое ячейки на строки

[blackeangel]

Всем привет!
Есть такая задача: необходимо содержимое ячейки транспонировать в столбец.
просто транспонировать не получается, тк надо в один столбец, а при обчычном траспонировании происходит в столбцы
Например, есть

3311з-3311ф-3311сл-3311то-3311т-3311км-с9
3311з-3311ф-3311лш-3311сл-3311то-3311т-3311км-с9
3311з-3311т-3311км-с9

надо чтобы записалось в

3311з
3311ф
3311сл
3311то
3311т
3311км
с9
3311з
3311ф
3311лш
3311сл
3311то
3311т
3311км
с9
3311з
3311т
3311км
с9

и так далее
то есть в один столбец.
желательно это в макросе сделать

[mwz]

то есть в один столбец. »

Именно в один столбец в несколько последовательных ячеек (в зависимости от числа групп, удовлетворяющих условию), а не в столбец внутри единственной ячейки?

[blackeangel]

mwz, именно.даже если на новый лист, тоже не страшно.

[okshef]

Данные -> Текст по столбцам -> Разделитель "-" -> Результат скопировать и транспонировать

[blackeangel]

okshef, по моему, написано по русски, что этот вариант не прокатить, тк при таком проходе образуется куча столбцов, а нужен один.

[Iska]

blackeangel, образец файла упакуйте в архив и приложите к сообщению.

[blackeangel]

Iska, пожалуйста, в любом варианте

[Iska]

blackeangel, пробуйте:
Option Explicit

Sub Sample()
Dim objRangeSource As Range
Dim objRangeDest As Range
Dim strSubstring As Variant

With ThisWorkbook
With .Worksheets.Add(After:=.Worksheets.Item("Есть"))
.Name = "Будет"
Set objRangeDest = .Cells(1, 1)
End With

For Each objRangeSource In .Worksheets.Item("Есть").UsedRange.Columns.Item(1).Cells
For Each strSubstring In Split(objRangeSource.Value, "-")
objRangeDest.Value = strSubstring
Set objRangeDest = objRangeDest.Offset(1, 0)
Next
Next
End With
End Sub