[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