извлечение из ячеек

[Ast4]

Добрый день.

Необходимо извлечь из ячеек цифры и поместить в другой столбец.

Спасибо.

[Watcher_1]

Так пойдет?

[Serge 007]

Формулы массива вводятся нажатием Ctrl+Shift+Enter

[Казанский]

Почему в 5-й строке берется только одно число, а в 10-й все?

[kuklp]

Работает с выделением:

Public Sub www()
    Dim a, s$, c As Range
    For Each c In Selection.Cells
        c = Application.Trim(c)
        s = Split(c, " ")(UBound(Split(c, " ")) - 3)
        a = Split(Mid(c, InStr(1, c, s)), " ")
        c = Left$(c, InStr(1, c, s) - 1)
        c.Offset(, 1).Resize(, UBound(a) + 1) = a
    Next
End Sub

[Ast4]

Спасибо!
Заработало!