Самый простой способ - открыть редактор VBA Alt+F11, вставить новый модуль и ввести этот UDF.
Function SplitDate(ByVal strTemp As String, _
ByVal strDelimiter As String, _
ByVal lngElement As Long)
SplitDate = Split(strTemp, strDelimiter)(lngElement)
End Function
Затем в Excel вы можете использовать формулу UDF как = SplitDate(INPUTTEXT, DELIMITER, ELEMENTTORETURN)
Например, скажем, у вас есть текст Fri Mar 11
в ячейке A1
то
= SplitDate(A1, "", 0) вернет "Пт"
= SplitDate(A1, "", 1) вернет "Mar"
= SplitDate(A1, "", 2) вернет "11"
Затем вы можете объединить их в формулу для перестановки вашей строки.
В качестве альтернативы используйте =DATE(YEAR(RIGHT(A1,LEN(A1)-FIND(" ",A1,1))),MONTH(RIGHT(A1,LEN(A1)-FIND(" ",A1,1))),1)
преобразовать текст в ячейке A1 в дату. Поскольку нет Дня, я предположил 1-е число месяца (измените последний, 1, чтобы изменить ДЕНЬ).