Переставить буквы в обратном порядке

[Julia2707]

требуется переставить буквы в слове в обратном порядке в excel с помощью какой-то функции, например в ячейке А1 вводится слово "город", в ячейке А2 с помощью функции "дорог"

[Вадим Мошев]

Ну, сам алгоритм перевёртывания на Делфи выглядит так

n:=length(st);

for i:=1 to (n div 2) do
	st[i]:=st[n-i+1];

Добавлено: в этом коде ошибка. Вместо st[i]:=st[n-i+1] следует обменивать st[n-i+1] и s[i] значениями.

[Mad_Cat]

Способ стандартными функциями:

Но можно такое сделать и стандартными формулами. Сразу оговорюсь — стандартными формулами сделать это можно, но не совсем просто. Но можно. И для этого потребуется гораздо больше манипуляций, чем через VBA. Хотя для кого-то, возможно, способ формулами будет более прост, чем через VBA. Для начала необходимо будет включить интеративные вычисления в функциях:

Excel 2003: Сервис-Параметры-Вычисления-ставим галочку Интерации
Excel 2007: Меню-Параметры Excel-Формулы-Включить интеративные вычисления
Excel 2010: Файл-Параметры-Формулы-Включить интеративные вычисления
Устанавливаем предельное число интераций — 1. Допустим само слово у нас в ячейке А1. Тогда формула будет выглядеть следующим образом:

=ЕСЛИ(ДЛСТР(B1)>=ДЛСТР(A1);B1;ЕСЛИ( ДЛСТР(B1)=1;ПСТР(A1;ДЛСТР(A1);1);B1 )&ПСТР(A1;ДЛСТР(A1)-ДЛСТР(B1);1))

Но это не все. При внесении формулы в ячейку она сразу не выдаст необходимый результат. Необходимо пересчитывать формулу до тех пор, пока все слово не перевернется(я просто нажал и удерживал клавишу F9). Лично я сделал формулу, как говорится, «из спортивного интереса». Но кому-то, возможно, будет гораздо проще так, чем через VBA. В приложенном файле помимо рассмотренных примеров есть еще один, котрый лично мне не нравиться тем, что он «растягивается» на несколько ячеек. Это не очень удобно, но избавляет от необходимости включать интерации. Но это, пожалуй, единственный положительный момент в данном способе. Сама формула такова:

=ЕСЛИ(СТОЛБЕЦ(A:A)>ДЛСТР($A1);»";B1 &ПСТР($A1;ДЛСТР($A1)+1-СТОЛБЕЦ(A:A);1))

Слово в ячейке A1, B1 должна быть пустой, а уже с B3 начинается формула.

http://www.excel-vba.ru/tag/rabota-s-tekstom/
код для VBA там же

[Poma][a]

Вадим, ты слегка не прав
Наверное, всё-таки надо так :
Swap написать, думаю, не составит труда..

n:=length(st);

for i:=1 to (n div 2) do
	Swap(st[i],st[n-i+1]);

[Вадим Мошев]

Роман
Блин, точно, Swap. И чего это меня дёрнуло написать присваивание...?
Вот что бывает, когда не пользуешься компиляторами.

да, а если воспользоваться тем кодом с ошибкой, то мы получим на выходе симметричную строку:
На входе: 12345
На выходе будем иметь: 54345

[Poma][a]

Вадим, а мне что-то сразу не понравился один оператор присваивания.. Решил я всё это загнать в компилятор. Лень было напистаь 12345 или abсd, и я взял пример ТС : город - дорог.. Твоя программа выдавала 'дород'. Потом я пять минут плясал с +1 и -1, пока до меня не дошло

[gaw4]

еще вариант (Ексель)
модуль

Function rvs$(s$)
rvs = StrReverse(s)
End Function

Лист формула А2 =rvs(A1)