Обратный порядок слов в ячейке

Дата: Воскресенье, 31.01.2016, 12:29 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Доброго времени суток! Подскажите каким образом можно сделать обратный порядок слов в ячейке. Пример прилагаю.

К сообщению приложен файл: 7903981.xls (34.0 Kb)

Дата: Воскресенье, 31.01.2016, 12:33 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

disub, не могу открыть Ваш файл - пишет, что поврежден.

ЯД: 410013299366744 WM: R193491431804

Дата: Воскресенье, 31.01.2016, 12:38 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Manyasha, перезалил

К сообщению приложен файл: __1.xls (26.0 Kb)

Дата: Воскресенье, 31.01.2016, 12:48 | Сообщение № 4

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

хм...у меня все равно не открывается. Скачайте свой файл, у Вас открывается?
По теме, UDF подойдет?[vba]

Код

Function строка_наоборот(cell As Range)
    Dim arr, res$, i&
    arr = Split(cell, " ")
    For i = UBound(arr) To 0 Step -1
        res = res & arr(i) & " "
    Next i
    строка_наоборот = Mid(res, 1, Len(res) - 1)
End Function

[/vba]

К сообщению приложен файл: qwer123.xls (31.0 Kb)

ЯД: 410013299366744 WM: R193491431804

CREATER

Дата: Воскресенье, 31.01.2016, 12:52 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата Manyasha, 31.01.2016 в 12:48, в сообщении № 4

хм...у меня все равно не открывается. Скачайте свой файл, у Вас открывается?

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

Творим, что хотим!

Дата: Воскресенье, 31.01.2016, 12:55 | Сообщение № 6

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

Цитата CREATER, 31.01.2016 в 12:52, в сообщении № 5

не пробел, а дефис

[vba]

Код

Function строка_наоборот(cell As Range)
Dim arr, res$, i&
arr = Split(cell, " ")
For i = UBound(arr) To 0 Step -1
res = res & arr(i) & "-"'Вот здесь менять разделитель
Next i
строка_наоборот = Mid(res, 1, Len(res) - 1)
End Function

[/vba]
[offtop]

Цитата CREATER, 31.01.2016 в 12:52, в сообщении № 5

У меня открываются

значит у меня что-то с офисом

[/offtop]

ЯД: 410013299366744 WM: R193491431804

Дата: Воскресенье, 31.01.2016, 14:07 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Manyasha, Спасибо, UDF подойдет, но прописываю данную функцию, и порядок слов нарушается, то есть, кроме дефисов есть еще и пробелы, например у меня в файле названия городов -Черный Яр- и получается при применении функции Яр Черный, а так не должно быть т. д. В этом случае как должна выглядеть функция?

krosav4ig

Дата: Воскресенье, 31.01.2016, 14:18 | Сообщение № 8

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

disub, Марина (Manyasha) просто забыла еще в 1 строке поменять разделитель[vba]

Код

Function строка_наоборот(cell As Range)
Dim arr, res$, i&
arr = Split(cell, "-")'Вот тут тоже менять разделитель
For i = UBound(arr) To 0 Step -1
res = res & arr(i) & "-"'Вот здесь менять разделитель
Next i
строка_наоборот = Mid(res, 1, Len(res) - 1)
End Function

[/vba]

еще 1 вариант UDF
[vba]

Код

Function ReverseWords$(s$, Optional delim$ = "-")
    Dim arr$(), i&
    arr = Split(StrReverse(s), delim)
    For i = 0 To UBound(arr)
        arr(i) = StrReverse(arr(i))
    Next
    ReverseWords = Join(arr, delim)
End Function

[/vba]

К сообщению приложен файл: 2687109.xls (41.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Дата: Воскресенье, 31.01.2016, 14:42 | Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

krosav4ig, Спасибо за помощь!

Дата: Вторник, 02.02.2016, 15:21 | Сообщение № 10

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

krosav4ig, Доброго времени суток! В продолжении этой темы. Подскажите, можно ли избежать изменения порядка слов в названии города, который имеет дефис, например, получается при применении этой функции название Спас-Клепики переходит в Клепики-Спас, а такого не должно быть.

Сообщение отредактировал disub - Вторник, 02.02.2016, 15:22

Дата: Вторник, 02.02.2016, 21:25 | Сообщение № 11

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

disub, для этого придется задать список городов с дефисом. У меня в файле смотрите имя "города" (ctrl + f3).
На основе кода от krosav4ig:
[vba]

Код

Function ReverseWords$(s$, Optional delim$ = "-")
    Dim arr$(), i&
    For Each cell In Range("города")
        s = Replace(s, cell.Value, Replace(cell.Value, delim, "|||"))
    Next cell
    arr = Split(StrReverse(s), delim)
    For i = 0 To UBound(arr)
        arr(i) = StrReverse(arr(i))
    Next
    ReverseWords = Replace(Join(arr, delim), "|||", "-")
End Function

[/vba]

К сообщению приложен файл: 2687109-1.xls (44.5 Kb)

ЯД: 410013299366744 WM: R193491431804

Дата: Среда, 03.02.2016, 10:28 | Сообщение № 12

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Manyasha, огромное спасибо!!!!