Перенос информации из одной ячейки в другую

[FLIBER]

Добрый день!
В общем.
У меня имеется таблица с 23000 строк.
Каждая строка включает в себя ячейку, в которой написано наименование детали и какие то цифры. Пример- "прокладка 45*8"
Моё задание заключается в том, чтоб всю информацию начиная с первой цифры перенести в соседнюю(правую) ячейку
во вложенном файле видна суть, первые 5 строк сделаны, а остальные нет.

и мой вопрос заключается в том как можно всё это оптимизировать?а не вырезать и вставлять?есть ли какой то макрос?или формула?или еще что-то. просто я в экселе ничего не понимаю. Заранее спасибо.

[Казанский]

Попробуйте макрос

Sub bb()
Dim i&, v(), x, j&
With Range("B1", [B1].End(xlDown)).Resize(, 2)
    .NumberFormat = "@"
    v = .Value
    For i = 1 To UBound(v)
        j = 1
        For Each x In Split(v(i, 1))
            If x Like "*#*" Then
                v(i, 2) = Mid(v(i, 1), j)
                v(i, 1) = Left(v(i, 1), j - 2)
                Exit For
            Else: j = j + Len(x) + 1
            End If
        Next
    Next
    .Value = v
End With
End Sub

Слово, начиная с которого переносится, может не начинаться с цифры, но содержать ее:
вставка резьб. М3*0,35не

[FLIBER]

Спасибо большое! помогло вроде на примере)завтра проверю на общем списке))

[doober]

Во вложении пользовательская функция,но инфы мало,учтены не все варианты

[FLIBER]

увы да. но суть там практически одинаковая
разве что может быть такой еще вариант:
ФЛАНЕЦ 2см 5*9, и в этом случае переносить надо только 5*9
но это можно подправить ручками.
просто я так понимаю все возможные исключения надо вносить в макрос?а возможных исключений может быть много.

doober а можно ли ваш вариант сделать так чтоб скопированную часть они убирал?из исходной ячейки

[doober]

Макрос работает по активному листу колонки B и С

[vnxnvnx]

а можно сделать так, чтобы информация после определенного слова и до определенного слова из одной ячейки переносилась в другую?