UPD: Если данные только в таком виде, как в примере, то можно обойтись штатными функциями =--ПСТР(A2;ПОИСК(" от ";A2)+4;10) или, если разделитель даты не может быть точкой: =--ПОДСТАВИТЬ(ПСТР(A2;ПОИСК(" от ";A2)+4;10);".";"/")
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Ну и оперативность)) Не успел выложить уже столько примеров. Всем спасибо, а подскажите как можно сделать, чтобы в полученной дате число дня проставлялась 1. Т.е. дата 02.03.2020 становилась 01.02.2020 25.04.2020 соответственно 01.04.2020 Я понимаю что это можно сделать формулой
Код
=ДАТА(ГОД(ТЕКСТ(ПСТР(A2;ПОИСК(" от ";A2;1)+4;10);"ДД.ММ.ГГГГ"));МЕСЯЦ(ТЕКСТ(ПСТР(A2;ПОИСК(" от ";A2;1)+4;10);"ДД.ММ.ГГГГ"));1)
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Function iDate(cell As String)
Dim re As Object
Set re = CreateObject("vbscript.regexp")
re.Pattern = "\d\d\.\d\d\.\d\d\d\d"
If re.test(cell) Then
iDate = "01" & Mid(re.Execute(cell)(0), 3)
iDate = Format(iDate, "MMM YY")
End If
End Function
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄