Поменять местами слова в ячейке

[IgorGO]

Function ExchngFirstLast(s As String) As String
  ExchngFirstLast = Right(s, Len(s) - InStrRev(s, " ")) & Mid(s, InStr(s, " "), InStrRev(s, " ") - InStr(s, " ")) & " " & Left(s, InStr(s, " ") - 1)
End Function

[svsh2016]

добрый вечер,вариант функции uuu в E1

Function uuu$(t$)
 With CreateObject("VBScript.RegExp"): .IgnoreCase = True
 .Pattern = "([а-яё\w]+)\s([а-яё\w]+)\s([а-яё\w]+)\s([а-яё\w]+)"
    uuu = .Replace(t, "$4 $2 $3 $1")
 End With
End Function

[IgorGO]

svsh2016,
а где в вопросе было сказано, что в фразе будет 4 слова, а не 2 или 14?

[ildarado87]

Здравствуйте!

Очень нужна помощь, надеюсь на помощь опытных пользователей VBA.

Необходимо местами поменять значения в ячейке excel:

2017.11.29 ЧТОБЫ ВЫВОДИЛО 29.11.2017 и так по всему массиву (всем строкам)

[Hugo121]

Это обычно делается сменой формата ячейки, можно и макросом - включите запись, измените вручную, выключите запись - макрос готов.

Sub Macro1()
'
' Macro2 Macro
'

'
    Selection.NumberFormat = "m/d/yyyy"
End Sub

[IgorGO]

=ЗНАЧЕН(ПСТР(Ваша_Дата;9;2) & "." & ПСТР(Ваша_Дата;6;2) & "." & ПСТР(Ваша_Дата;1;4))

где
Ваша_Дата - ссылка на ячейку с Вашей датой

потом тянете ячейку с этой формулой вниз за правый нижний уголок, потом копируете все и вставляете специальной вставкой "как значения" на место Ваших дат

[VictorK]

IgorGO, а почему не так:

=ТЕКСТ(Ваша_дата;"ДД.ММ.ГГГГ")

[Aleksandr H.]

потому что он художник, он так видит

[ildarado87]

Сообщение от IgorGO

=ЗНАЧЕН(ПСТР(Ваша_Дата;9;2) & "." & ПСТР(Ваша_Дата;6;2) & "." & ПСТР(Ваша_Дата;1;4))

где
Ваша_Дата - ссылка на ячейку с Вашей датой

потом тянете ячейку с этой формулой вниз за правый нижний уголок, потом копируете все и вставляете специальной вставкой "как значения" на место Ваших дат

Сообщение от IgorGO

=ЗНАЧЕН(ПСТР(Ваша_Дата;9;2) & "." & ПСТР(Ваша_Дата;6;2) & "." & ПСТР(Ваша_Дата;1;4))

где
Ваша_Дата - ссылка на ячейку с Вашей датой

потом тянете ячейку с этой формулой вниз за правый нижний уголок, потом копируете все и вставляете специальной вставкой "как значения" на место Ваших дат

IgorGO, VictorK большое Вам спасибо! Вы меня очень выручили!