как в ячейке поменять местами фразы разделенные запятой - Microsoft Office Excel

evdss · 12.10.2010, 04:49

например. 671700 Республика Бурятия,г.Северобайкальск,пр Юности 34 кв 8. Нужно расположить сначала пр Юности 34 кв 8, г.Северобайкальск, 671700 Республика Бурятия

kipish_lp · 12.10.2010, 05:40

Вот тут посмотри:
http://www.planetaexcel.ru/tip.php?aid=33
http://www.planetaexcel.ru/tip.php?aid=54
А дальше: =СЦЕПИТЬ(и в том порядке, как надо)

alex77755 · 12.10.2010, 08:13

Ещё можно функцией (но в другую ячейку)

Код:

Public Function Поменять(Строка As String) As String
s = Split(Строка, ",")
Поменять = s(2) & "," & s(1) & "," & s(0)
End Function

или макросом(непосредственно в ячейке) с использованием этой функции

Код:

 Public Sub MEN()
 For i = 1 To Columns(1).Rows(65536).End(xlUp).Row
 Cells(i, 1) = Поменять(Cells(i, 1))
 Next i
 End Sub

kim2 · 12.10.2010, 20:45

Если запятых только две, можно формулой:
=ПСТР(ПСТР(A1;ПОИСК(",";A1)+1;999)& ", "&ПСТР(A1;ПОИСК(",";A1)+1;999);ПОИС К(",";ПСТР(A1;ПОИСК(",";A1)+1;999)) +1;ДЛСТР(ПСТР(A1;ПОИСК(",";A1)+1;99 9))+1)&", "&ПСТР(A1;1;ПОИСК(",";A1)-1)

vikttur · 13.10.2010, 10:01

=ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ("/";ПОДСТАВИТЬ(A1;",";"/";2)))&ПСТР(A1;НАЙТИ(",";A1);НАЙТИ( "/";ПОДСТАВИТЬ(A1;",";"/";2))-НАЙТИ(",";A1)+1)&ЛЕВСИМВ(A1;НАЙТИ(" ,";A1)-1)

12.10.2010, 04:49	#1
evdss Пользователь Регистрация: 12.10.2010 Сообщений: 66	как в ячейке поменять местами фразы разделенные запятой например. 671700 Республика Бурятия,г.Северобайкальск,пр Юности 34 кв 8. Нужно расположить сначала пр Юности 34 кв 8, г.Северобайкальск, 671700 Республика Бурятия

12.10.2010, 08:13	#3
alex77755 Форумчанин Регистрация: 14.02.2009 Сообщений: 753	Ещё можно функцией (но в другую ячейку) Код: `Public Function Поменять(Строка As String) As String s = Split(Строка, ",") Поменять = s(2) & "," & s(1) & "," & s(0) End Function` или макросом(непосредственно в ячейке) с использованием этой функции Код: `Public Sub MEN() For i = 1 To Columns(1).Rows(65536).End(xlUp).Row Cells(i, 1) = Поменять(Cells(i, 1)) Next i End Sub` помогу решить контрольные VB6, VBA (недорого) Alex77755@mail.ru

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Поменять местами слова в ячейке	Нюни	Microsoft Office Excel	28	05.12.2017 11:28
как поменять местами данные в строке	fize	Помощь студентам	19	27.11.2009 00:19
как поменять местами слова в файле?	r-tem	Общие вопросы C/C++	6	01.12.2008 22:17
Как поменять строки местами?	ar.	Microsoft Office Word	1	05.09.2008 11:36
Как поменять строки в текстовом файле местами	_ares_	Помощь студентам	8	13.11.2007 02:14

12.10.2010, 05:40	#2
kipish_lp Форумчанин Регистрация: 25.11.2009 Сообщений: 113	Вот тут посмотри: http://www.planetaexcel.ru/tip.php?aid=33 http://www.planetaexcel.ru/tip.php?aid=54 А дальше: =СЦЕПИТЬ(и в том порядке, как надо)

12.10.2010, 20:45	#4
kim2 Форумчанин Регистрация: 23.03.2010 Сообщений: 101	Если запятых только две, можно формулой: =ПСТР(ПСТР(A1;ПОИСК(",";A1)+1;999)& ", "&ПСТР(A1;ПОИСК(",";A1)+1;999);ПОИС К(",";ПСТР(A1;ПОИСК(",";A1)+1;999)) +1;ДЛСТР(ПСТР(A1;ПОИСК(",";A1)+1;99 9))+1)&", "&ПСТР(A1;1;ПОИСК(",";A1)-1)

13.10.2010, 10:01	#5
vikttur Участник клуба Регистрация: 16.05.2010 Сообщений: 1,249	=ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ("/";ПОДСТАВИТЬ(A1;",";"/";2)))&ПСТР(A1;НАЙТИ(",";A1);НАЙТИ( "/";ПОДСТАВИТЬ(A1;",";"/";2))-НАЙТИ(",";A1)+1)&ЛЕВСИМВ(A1;НАЙТИ(" ,";A1)-1)