Добрый день.Подскажите, каким образом можно вытащить часть текстовой строки в другую ячейку? Пример строки : {У компании «Салон красоты PurPur» (ID компании: 958024) была активность в личном кабинете}. Необходимо в соседней ячейке выделить цифровое значение 958024.
Ситуация осложняется тем, что в разных строках номер компании расположен на разном расстоянии от начала строки, и сам номер может состоять из различного количества знаков ( например : 4533 или 5455887).
Кроме искомого номера компании других цифровых значений в строке нет.
Function GetNum(sText)
Dim re As Object
Set re = CreateObject("VBScript.RegExp")
re.Pattern = "\d+"
GetNum = re.Execute(sText)(0)
Set re = Nothing
End Function