Function извл$(t$)
Application.Volatile
With CreateObject("VBScript.RegExp")
.Pattern = "[^А-Яа-яЁё]+"
извл = Trim(.Execute(t)(0))
End With
End Function
Function iRusDel(cell$)
With CreateObject("VBScript.RegExp")
.Global = True
.IgnoreCase = True
.Pattern = "[\sА-ЯЁ]+"
iRusDel = .Replace(cell, "")
End With
End Function