выборочная замена местами слов в ячейке

[Vladimir_2016]

Добрый день!
Помогите, плиз.
В ячейках слова записаны в следущих последовательностях:
Фамилия Имя Отчество
Фамилия Имя
Имя Фамилия
Имя
Анонимный

Можно ли перегруппировать слова в ячейках, чтобы все привести к форматам: Имя Отчество Фамилия (если три слова), Имя Фамилия (если два), Имя (если одно)?
т.е. на первом месте всегда имя, на втором отчество, на тртьем фамилия (если есть).

Либо, если я хочу невозможного, то переместить только в тех ячейках, где три слова (ФИО) фамилию с первого места на последнее в ячейке.

Спасибо!

[EducatedFool]

макросу будет очень сложно различить эти 2 варианта:

Фамилия Имя
Имя Фамилия

Например, в ячейке будет написано Батька Махно (или Брюс Ли)
Как тут программа отличит, где имя, а где фамилия...
А ведь есть и посложнее варианты ФИО

Японцы: сyтенеp Комyхаpи Комyсиси, вpач Комyто Хеpовато, гонщик Тояма Токанава, снайпер Томимо Токосо, композитор Толисику Толикаку, пианистка Херанука Пороялю.
Китайцы: Сyнь Вынь, Сyй Вынь, Сyй Уй, Жyй Уй, Жyй Сам, Встань Сyнь
Болгаpы: Стояна Ракова, Лежана Раздвиногова
Тypки: мyзыкант Обстyл Задом-бей
Чеченцы: полевые командиры Поджог Сараев, Ушат Помоев, Камаз Отходов, Рекорд Надоев, Погром Евреев, Гарем Плейбоев, Ушат Помоев, Рулон Обоев, Улов Налимов, Букет Левкоев, Отряд Ковбоев, Подрыв Устоев, Захват Покоев, Исход Изгоев, Обвал Забоев, Угон Харлеев, Удел Плебеев, Камаз Отходов, Развод Супругов, Забег Дебилов, Парад Уродов
Чехи: ветеринар Мацал Кошек, писатель Мацал Курочек
Итальянцы: секретарша Бладовина Ди Курваджио, порнозвезда Минето Вротоберучи
Немцы: поpноактёp Ганс Тpахенбюpгеp и актpиса Фpаy Шлюхеp
Поляки: Просто добрый поляк - Бздашек Западловский, боксер Вынька Мелоч
Армяне: Ереванский садовник Газон Засеян
Румыны: посол Сри Безтреску, футболист Вжопу Стамэску

переместить только в тех ячейках, где три слова

а это уже проще
можно сделать формулой в дополнительном столбце
(если забыть про варианты, где ФИО может состоять из 4 и более слов)

[svsh2016]

добрый день,не нашел файл-примера,вариант функций uuu1 и uuu2 в B
uuu3 и uuu4 в C,то есть просто замена

Function uuu1$(t$)
   Dim x, t1: x = Split(t): t1 = x(0)
   x(0) = x(1): x(1) = x(UBound(x)): x(UBound(x)) = t1
     uuu1 = Join(x)
End Function

Function uuu3$(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "(?:[^а-яё]|^)[а-яё]+(?=[^а-яё]|$)": .Global = True: .Ignorecase = True
    uuu3 = .Execute(t)(1) & Chr(32) & .Execute(t)(2) & Chr(32) & .Execute(t)(0)
 End With
End Function

[IgorGO]

svsh2016,

загляните в личные сообщения)

[svsh2016]

добрый день,как вариант для #4, функция vvv в C1

Function vvv$(t$)
   Dim z, x: x = Split(t, ","): ReDim z(0 To UBound(x))
 With CreateObject("VBScript.RegExp"): .Pattern = "\d+": .Global = True
 For i = 0 To .Execute(t).Count - 1
    z(i) = .Execute(t)(i) & ":" & .Execute(t)(i)
    Next
 End With
 vvv = Join(z, ",")
End Function

[svsh2016]

еще вариант функций uuu5 и uuu6 для #1 в столбце D

Function uuu5$(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "([а-яё]+) ([а-яё]+) ([а-яё]+)": .Global = True: .Ignorecase = True
    uuu5 = .Replace(t, "$2 $3 $1")
 End With
End Function