Kuzmich,в ответ на #10 подкорректировал функцию в столбце C,кстати в предложенном Вашем варианте #10 не работает и формула в столбце B .
Паттернов на все случаи жизни не бывает,нужен файл-пример создателя темы в окончательном варианте ,
иначе можно бесконечно придумывать варианты файл-примера опытными пользователями
Код |
---|
Function ccc$(t$)
Dim txt$, t1$
t1 = Replace(Replace(t, " ", ""), Chr(160), "")
With CreateObject("VBScript.RegExp"): .Pattern = "\+7\d{10}"
If .test(t1) Then ccc = .Execute(t1)(0): Exit Function
.Pattern = "^(?:8 |tel: 8 |\(?": txt = .Replace(t, "")
.Pattern = "[-\(\) ]": .Global = True: ccc = "+7" & .Replace(txt, "")
End With
End Function |