найти и выделить число

[Iskin]

Здравствуйте! Есть такие данные: 2010-868164.20-643-1646027030, где "2010-" и "-643-" всегда постоянны. "1646027030", "868164.20" могут изменяться.
Мне в ячейке нужно получить - 868164.20
Заранее спасибо! Знаю что задачка легкая для вас, но для меня время и не факт что получится)

[andreysuperman42]

Sub Proba()

    strValue$ = "2010-868164.2-643-1646027030"
    Range("A1").Value = Mid(strValue, 6, 8)
End Sub

[Iskin]

Спасибо! Т.е. просто через функцию не получится?

[andreysuperman42]

Есть аналог функции mid в EXCEL
=ПСТР(A1;6;8)

[Iskin]

Сообщение от andreysuperman42

Есть аналог функции mid в EXCEL
=ПСТР(A1;6;8)

тут поиск нужно включить, а как пока не понимаю
=ПСТР(A1;ПОИСК("-";A1;1);ПОИСК("-643-";A1;1)) в итоге: -4911.62-643-. Как лишнее убрать?

[сфинкс]

просто замена 2010- и -643- на ничто
или на спец символы табуляции поможет?

[o5a]

Вроде бы так...

Function extractNum(cl As Range)
t = cl.Find("2010-*-643").Cells(1).Value
t = Left(t, InStrRev(t, "-643") - 1)
pos = InStrRev(t, "2010-") + 4
t = Right(t, Len(t) - pos)
extractNum = t
End Function

Добавить эту функцию в модуль и в строке функции эксель набрать extractNum

[Iskin]

Сообщение от o5a

Добавить эту функцию в модуль и в строке функции эксель набрать extractNum

Модуль это хорошо. Но файл нужно подгружать в программу, которая с макросами загрузку не разрешает

[Iskin]

Сообщение от сфинкс

просто замена 2010- и -643- на ничто
или на спец символы табуляции поможет?

наверное, увидеть бы)
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"2010-";"");"-643-1646027030";"") в таком виде отрабатывает. но это если данные постоянные. А хотелось бы по универсальнее )

[Elixi]

Сообщение от Iskin

хотелось бы по универсальнее

можно так:
=MID(A1;FIND("2010-";A1)+LEN("2010-");FIND("-643-";A1)-LEN("-643-")-1)
или так:
=MID(A1;FIND("2010-";A1)+5;FIND("-643-";A1)-6)
для данных в ячейке A1
или, если данные всегда начинаются "2010-", так:
=MID(A1;6;FIND("-643-";A1)-6)