Function iDate(cell As String) As Date Dim Temp As String Temp = Split(Split(cell, "от ")(1), " г.")(0) iDate = CDate(Temp) End Function
=DATEVALUE(SUBSTITUTE(LEFT(MID(A2;FIND("от ";A2)+3;7);FIND(" ";MID(A2;FIND("от ";A2)+3;7))+3)&MID(RIGHT(A2;8);1;5);"ая";"ай"))