Public Function SelectMarge(ByVal iVal$, ByVal SSplit$) As Double
Dim m
m = VBA.Split(iVal$, SSplit$)
SelectMarge = VBA.Replace(m(UBound(m)), " ", "")
End Function
Function aaa&(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "\d+": .Global = True
aaa = .Execute(t)(.Execute(t).Count - 2)
End With
End Function
Благодарю за ответ ! Воспользовался формулой. Как сделать, чтобы конечное значение можно было перемножить и затем суммировать результат? У меня что то нельзя редактировать
в ответ на #5 как вариант без использования клавиатуры Сервис-Макрос-Запись макроса Сервис -Макрос-Остановить запись После макроса (например Макрос1) скопируйте функцию,например ещё два варианта UDF
Код
Function bbb&(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "Маржа: \d+(?=\.)"
bbb = Mid(.Execute(t)(0),
End With
End Function
Код
Function ccc&(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "Маржа: (\d+)(?=\.)"
ccc = .Execute(t)(0).Submatches(0)
End With
End Function
еще как вариант =ПРОСМОТР(9^9;--ПРАВСИМВ(ПОДСТАВИТЬ(B3;".";",");СТРОКА($1:$10))) если у вас десятичный разделитель точка, то ПОДСТАВИТЬ(B3;".";",") не нужно