Страницы: 1
RSS
Переставить слова местами в ячейке
 
Ребята подскажите пожалуйста, какой штатной возможностью можно воспользоваться чтобы переставить местами определенные слова в одной ячейке? Вариант разбить по столбцам а потом изощряться переставляя столбцы не совсем подходит.    
 
Например в ячейке написано: красный, желтый, зеленый  
а надо зеленый, красный, желтый  
 
Спасибо заранее!
 
Если слова всегда разделены запятыми то можно так :  
 
Function Repl(s As String) As String  
Dim arr, i As Long  
arr = Split(s, ",")  
Repl = ""  
For i = UBound(arr) To LBound(arr) Step -1  
Repl = Repl & Trim(arr(i)) & ", "  
Next i  
Repl = Left(Repl, Len(Repl) - 2)  
End Function
Редко но метко ...
 
Интересно, для чего поиск сделан?  
http://www.planetaexcel.ru/forum.php?thread_id=28717
 
По моему не правильно понял условие )  
Вам нужно последнее слово поставить первым или расставить слова сзаду на перед ?
Редко но метко ...
 
{quote}{login=Казанский}{date=07.10.2011 04:32}{thema=}{post}Интересно, для чего поиск сделан?  
http://www.planetaexcel.ru/forum.php?thread_id=28717{/post}{/quote}  
 
Канечно, там денюжку предлагали (
Редко но метко ...
 
GIG_ant, девушке хочется другого :)  
В смысле - штатными средствами. А штатное только одно - повернуть монитор на 180 градусов :)  
 
Переставить два слова просто:  
=ПСТР(A1&", "&A1;ПОИСК(",";A1)+2;ДЛСТР(A1))  
 
Для трех тоже решалось, где-то в закромах форума есть.
 
{quote}{login=vikttur}{date=07.10.2011 04:37}{thema=}{post} А штатное только одно - повернуть монитор на 180 градусов :)  
{/post}{/quote}  
 
;0))
Редко но метко ...
 
Для Вашей "хотелки" (последнее слово первым):  
=ПСТР(A1&", "&A1;ПОИСК("/";ПОДСТАВИТЬ(A1;",";"/";2))+2;ДЛСТР(A1))
 
Посмотрите может так?
Страницы: 1
Читают тему
Наверх