Извлечь данные из всех пар круглых скобок в ячейке.
танбраун
Дата: Понедельник, 22.04.2019, 13:11 |
Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Добрый день! Прошу помочь в данном вопросе: нужно извлечь данные из всех пар круглых скобок в ячейке.
Добрый день! Прошу помочь в данном вопросе: нужно извлечь данные из всех пар круглых скобок в ячейке. танбраун
Ответить
Сообщение Добрый день! Прошу помочь в данном вопросе: нужно извлечь данные из всех пар круглых скобок в ячейке. Автор - танбраун Дата добавления - 22.04.2019 в 13:11
Nic70y
Дата: Понедельник, 22.04.2019, 13:59 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация:
2273
±
Замечаний:
0% ±
Excel 2010
Ctrl + H 1) Найти: )*( Заменить на: ; (с пробелом) Заменить все 2) Найти: *( Заменить на: (здесь ни чего) Заменить все 3) Найти: )* Заменить на: (здесь ни чего) Заменить все
Ctrl + H 1) Найти: )*( Заменить на: ; (с пробелом) Заменить все 2) Найти: *( Заменить на: (здесь ни чего) Заменить все 3) Найти: )* Заменить на: (здесь ни чего) Заменить все Nic70y
ЮMoney 41001841029809
Ответить
Сообщение Ctrl + H 1) Найти: )*( Заменить на: ; (с пробелом) Заменить все 2) Найти: *( Заменить на: (здесь ни чего) Заменить все 3) Найти: )* Заменить на: (здесь ни чего) Заменить все Автор - Nic70y Дата добавления - 22.04.2019 в 13:59
танбраун
Дата: Понедельник, 22.04.2019, 14:36 |
Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Nic70y, спасибо, но мне нужно с помощью формулы.
Nic70y, спасибо, но мне нужно с помощью формулы. танбраун
Ответить
Сообщение Nic70y, спасибо, но мне нужно с помощью формулы. Автор - танбраун Дата добавления - 22.04.2019 в 14:36
Nic70y
Дата: Понедельник, 22.04.2019, 15:29 |
Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация:
2273
±
Замечаний:
0% ±
Excel 2010
это проблематично. кол-во всех нам же не известно.
это проблематично. кол-во всех нам же не известно.Nic70y
ЮMoney 41001841029809
Ответить
Сообщение это проблематично. кол-во всех нам же не известно.Автор - Nic70y Дата добавления - 22.04.2019 в 15:29
танбраун
Дата: Понедельник, 22.04.2019, 15:38 |
Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
если до 5 пар, это проще?
Ответить
Сообщение если до 5 пар, это проще? Автор - танбраун Дата добавления - 22.04.2019 в 15:38
sboy
Дата: Понедельник, 22.04.2019, 16:08 |
Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Добрый день. Вариант пользовательской функцией [vba]Код
Function танбраун(t As String) As String With CreateObject("VBScript.RegExp") .Global = True .Pattern = "\(([^)]+)" If .test(t) Then For i = 0 To .Execute(t).Count - 1 танбраун = танбраун & .Execute(t)(i).Submatches(0) & "; " Next танбраун = Left(танбраун, Len(танбраун) - 2) End If End With End Function
[/vba]
Добрый день. Вариант пользовательской функцией [vba]Код
Function танбраун(t As String) As String With CreateObject("VBScript.RegExp") .Global = True .Pattern = "\(([^)]+)" If .test(t) Then For i = 0 To .Execute(t).Count - 1 танбраун = танбраун & .Execute(t)(i).Submatches(0) & "; " Next танбраун = Left(танбраун, Len(танбраун) - 2) End If End With End Function
[/vba] sboy
Яндекс: 410016850021169
Ответить
Сообщение Добрый день. Вариант пользовательской функцией [vba]Код
Function танбраун(t As String) As String With CreateObject("VBScript.RegExp") .Global = True .Pattern = "\(([^)]+)" If .test(t) Then For i = 0 To .Execute(t).Count - 1 танбраун = танбраун & .Execute(t)(i).Submatches(0) & "; " Next танбраун = Left(танбраун, Len(танбраун) - 2) End If End With End Function
[/vba] Автор - sboy Дата добавления - 22.04.2019 в 16:08
танбраун
Дата: Понедельник, 22.04.2019, 16:35 |
Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
sboy, спасибо за вариант, но хотелось бы формулой.
sboy, спасибо за вариант, но хотелось бы формулой. танбраун
Ответить
Сообщение sboy, спасибо за вариант, но хотелось бы формулой. Автор - танбраун Дата добавления - 22.04.2019 в 16:35
Nic70y
Дата: Понедельник, 22.04.2019, 16:37 |
Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация:
2273
±
Замечаний:
0% ±
Excel 2010
как-то так, примерноКод
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("(";A3)+1;999);")";ПОВТОР(" ";999));999))&"; "&ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";2))+1;999);")";ПОВТОР(" ";999));999))&"; ";"")&ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";3))+1;999);")";ПОВТОР(" ";999));999))&"; ";"")&ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";4))+1;999);")";ПОВТОР(" ";999));999))&"; ";"")&ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";5))+1;999);")";ПОВТОР(" ";999));999))&"; ";"");"; ";;ДЛСТР(A3)-ДЛСТР(ПОДСТАВИТЬ(A3;"(";)))
как-то так, примерноКод
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("(";A3)+1;999);")";ПОВТОР(" ";999));999))&"; "&ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";2))+1;999);")";ПОВТОР(" ";999));999))&"; ";"")&ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";3))+1;999);")";ПОВТОР(" ";999));999))&"; ";"")&ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";4))+1;999);")";ПОВТОР(" ";999));999))&"; ";"")&ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";5))+1;999);")";ПОВТОР(" ";999));999))&"; ";"");"; ";;ДЛСТР(A3)-ДЛСТР(ПОДСТАВИТЬ(A3;"(";)))
Nic70y
ЮMoney 41001841029809
Ответить
Сообщение как-то так, примерноКод
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("(";A3)+1;999);")";ПОВТОР(" ";999));999))&"; "&ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";2))+1;999);")";ПОВТОР(" ";999));999))&"; ";"")&ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";3))+1;999);")";ПОВТОР(" ";999));999))&"; ";"")&ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";4))+1;999);")";ПОВТОР(" ";999));999))&"; ";"")&ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";5))+1;999);")";ПОВТОР(" ";999));999))&"; ";"");"; ";;ДЛСТР(A3)-ДЛСТР(ПОДСТАВИТЬ(A3;"(";)))
Автор - Nic70y Дата добавления - 22.04.2019 в 16:37
bmv98rus
Дата: Понедельник, 22.04.2019, 16:50 |
Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4106
Репутация:
768
±
Замечаний:
0% ±
Excel 2013/2016
Код
=SUBSTITUTE(TRIM(MID(SUBSTITUTE(SUBSTITUTE(A3;"(";REPT(" ";999));")";REPT(" ";999));999*1;999))&"; "& TRIM(MID(SUBSTITUTE(SUBSTITUTE(A3;"(";REPT(" ";999));")";REPT(" ";999));999*3;999))&"; "& TRIM(MID(SUBSTITUTE(SUBSTITUTE(A3;"(";REPT(" ";999));")";REPT(" ";999));999*5;999))&"; "& TRIM(MID(SUBSTITUTE(SUBSTITUTE(A3;"(";REPT(" ";999));")";REPT(" ";999));999*7;999))&"; "& TRIM(MID(SUBSTITUTE(SUBSTITUTE(A3;"(";REPT(" ";999));")";REPT(" ";999));999*9;999));"; ; ";"")
Код
=SUBSTITUTE(TRIM(MID(SUBSTITUTE(SUBSTITUTE(A3;"(";REPT(" ";999));")";REPT(" ";999));999*1;999))&"; "& TRIM(MID(SUBSTITUTE(SUBSTITUTE(A3;"(";REPT(" ";999));")";REPT(" ";999));999*3;999))&"; "& TRIM(MID(SUBSTITUTE(SUBSTITUTE(A3;"(";REPT(" ";999));")";REPT(" ";999));999*5;999))&"; "& TRIM(MID(SUBSTITUTE(SUBSTITUTE(A3;"(";REPT(" ";999));")";REPT(" ";999));999*7;999))&"; "& TRIM(MID(SUBSTITUTE(SUBSTITUTE(A3;"(";REPT(" ";999));")";REPT(" ";999));999*9;999));"; ; ";"")
bmv98rus
Замечательный Временно просто медведь , процентов на 20 .
Сообщение отредактировал bmv98rus - Понедельник, 22.04.2019, 16:58
Ответить
Сообщение Код
=SUBSTITUTE(TRIM(MID(SUBSTITUTE(SUBSTITUTE(A3;"(";REPT(" ";999));")";REPT(" ";999));999*1;999))&"; "& TRIM(MID(SUBSTITUTE(SUBSTITUTE(A3;"(";REPT(" ";999));")";REPT(" ";999));999*3;999))&"; "& TRIM(MID(SUBSTITUTE(SUBSTITUTE(A3;"(";REPT(" ";999));")";REPT(" ";999));999*5;999))&"; "& TRIM(MID(SUBSTITUTE(SUBSTITUTE(A3;"(";REPT(" ";999));")";REPT(" ";999));999*7;999))&"; "& TRIM(MID(SUBSTITUTE(SUBSTITUTE(A3;"(";REPT(" ";999));")";REPT(" ";999));999*9;999));"; ; ";"")
Автор - bmv98rus Дата добавления - 22.04.2019 в 16:50
Samaretz
Дата: Вторник, 23.04.2019, 07:56 |
Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 223
Репутация:
63
±
Замечаний:
0% ±
Excel 2010; 2013; 2016
С доп.ячейками, но количество скобок в исходном выражении никак не лимитируется - формулы в колонках А, В и С можно протягивать вниз сколь угодно далеко; при этом формула в ячейке D3 в любом случае выдаст корректный результат (если количество строк в первых трех колонках достаточно).
С доп.ячейками, но количество скобок в исходном выражении никак не лимитируется - формулы в колонках А, В и С можно протягивать вниз сколь угодно далеко; при этом формула в ячейке D3 в любом случае выдаст корректный результат (если количество строк в первых трех колонках достаточно). Samaretz
Ответить
Сообщение С доп.ячейками, но количество скобок в исходном выражении никак не лимитируется - формулы в колонках А, В и С можно протягивать вниз сколь угодно далеко; при этом формула в ячейке D3 в любом случае выдаст корректный результат (если количество строк в первых трех колонках достаточно). Автор - Samaretz Дата добавления - 23.04.2019 в 07:56
танбраун
Дата: Вторник, 23.04.2019, 08:17 |
Сообщение № 11
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Всем ответившим большое спасибо.
Всем ответившим большое спасибо. танбраун
Ответить
Сообщение Всем ответившим большое спасибо. Автор - танбраун Дата добавления - 23.04.2019 в 08:17
Светлый
Дата: Среда, 24.04.2019, 06:50 |
Сообщение № 12
Группа: Друзья
Ранг: Старожил
Сообщений: 1829
Репутация:
510
±
Замечаний:
0% ±
Excel 2013, 2016
Всё крутилось в голове и родилось. СЖПРОБЕЛЫ только один раз, нет ЕСЛИОШИБКА и хвостик убирает аккуратно:Код
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("!";ПОДСТАВИТЬ(A3&"!)";"(";"!";1))+1;999);")";";"&ПОВТОР(" ";999));999)&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("!";ПОДСТАВИТЬ(A3&"!)";"(";"!";2))+1;999);")";";"&ПОВТОР(" ";999));999)&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("!";ПОДСТАВИТЬ(A3&"!)";"(";"!";3))+1;999);")";";"&ПОВТОР(" ";999));999)&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("!";ПОДСТАВИТЬ(A3&"!)";"(";"!";4))+1;999);")";";"&ПОВТОР(" ";999));999)&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("!";ПОДСТАВИТЬ(A3&"!)";"(";"!";5))+1;999);")";";"&ПОВТОР(" ";999));999))&-1;";-1";)
Nic70y , Извините, что правлю Вашу формулу. "; " лучше ставить в начало под ЕСЛИОШИБКА и тогда хвосты не надо рубить:Код
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("(";A3)+1;999);")";ПОВТОР(" ";999));999)&ЕСЛИОШИБКА("; "&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";2))+1;999);")";ПОВТОР(" ";999));999);"")&ЕСЛИОШИБКА("; "&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";3))+1;999);")";ПОВТОР(" ";999));999);"")&ЕСЛИОШИБКА("; "&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";4))+1;999);")";ПОВТОР(" ";999));999);"")&ЕСЛИОШИБКА("; "&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";5))+1;999);")";ПОВТОР(" ";999));999);""));" ;";";")
Всё крутилось в голове и родилось. СЖПРОБЕЛЫ только один раз, нет ЕСЛИОШИБКА и хвостик убирает аккуратно:Код
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("!";ПОДСТАВИТЬ(A3&"!)";"(";"!";1))+1;999);")";";"&ПОВТОР(" ";999));999)&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("!";ПОДСТАВИТЬ(A3&"!)";"(";"!";2))+1;999);")";";"&ПОВТОР(" ";999));999)&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("!";ПОДСТАВИТЬ(A3&"!)";"(";"!";3))+1;999);")";";"&ПОВТОР(" ";999));999)&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("!";ПОДСТАВИТЬ(A3&"!)";"(";"!";4))+1;999);")";";"&ПОВТОР(" ";999));999)&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("!";ПОДСТАВИТЬ(A3&"!)";"(";"!";5))+1;999);")";";"&ПОВТОР(" ";999));999))&-1;";-1";)
Nic70y , Извините, что правлю Вашу формулу. "; " лучше ставить в начало под ЕСЛИОШИБКА и тогда хвосты не надо рубить:Код
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("(";A3)+1;999);")";ПОВТОР(" ";999));999)&ЕСЛИОШИБКА("; "&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";2))+1;999);")";ПОВТОР(" ";999));999);"")&ЕСЛИОШИБКА("; "&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";3))+1;999);")";ПОВТОР(" ";999));999);"")&ЕСЛИОШИБКА("; "&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";4))+1;999);")";ПОВТОР(" ";999));999);"")&ЕСЛИОШИБКА("; "&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";5))+1;999);")";ПОВТОР(" ";999));999);""));" ;";";")
Светлый
Программировать проще, чем писать стихи.
Сообщение отредактировал Светлый - Среда, 24.04.2019, 06:53
Ответить
Сообщение Всё крутилось в голове и родилось. СЖПРОБЕЛЫ только один раз, нет ЕСЛИОШИБКА и хвостик убирает аккуратно:Код
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("!";ПОДСТАВИТЬ(A3&"!)";"(";"!";1))+1;999);")";";"&ПОВТОР(" ";999));999)&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("!";ПОДСТАВИТЬ(A3&"!)";"(";"!";2))+1;999);")";";"&ПОВТОР(" ";999));999)&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("!";ПОДСТАВИТЬ(A3&"!)";"(";"!";3))+1;999);")";";"&ПОВТОР(" ";999));999)&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("!";ПОДСТАВИТЬ(A3&"!)";"(";"!";4))+1;999);")";";"&ПОВТОР(" ";999));999)&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("!";ПОДСТАВИТЬ(A3&"!)";"(";"!";5))+1;999);")";";"&ПОВТОР(" ";999));999))&-1;";-1";)
Nic70y , Извините, что правлю Вашу формулу. "; " лучше ставить в начало под ЕСЛИОШИБКА и тогда хвосты не надо рубить:Код
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("(";A3)+1;999);")";ПОВТОР(" ";999));999)&ЕСЛИОШИБКА("; "&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";2))+1;999);")";ПОВТОР(" ";999));999);"")&ЕСЛИОШИБКА("; "&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";3))+1;999);")";ПОВТОР(" ";999));999);"")&ЕСЛИОШИБКА("; "&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";4))+1;999);")";ПОВТОР(" ";999));999);"")&ЕСЛИОШИБКА("; "&ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A3;ПОИСК("\";ПОДСТАВИТЬ(A3;"(";"\";5))+1;999);")";ПОВТОР(" ";999));999);""));" ;";";")
Автор - Светлый Дата добавления - 24.04.2019 в 06:50
bmv98rus
Дата: Среда, 24.04.2019, 07:55 |
Сообщение № 13
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4106
Репутация:
768
±
Замечаний:
0% ±
Excel 2013/2016
ну если хвосты мешают, то Код
=SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(TRIM( MID(SUBSTITUTE(SUBSTITUTE(A4;"(";REPT(" ";999));")";REPT(" ";999));999*1;999)&";"& MID(SUBSTITUTE(SUBSTITUTE(A4;"(";REPT(" ";999));")";REPT(" ";999));999*3;999)&";"& MID(SUBSTITUTE(SUBSTITUTE(A4;"(";REPT(" ";999));")";REPT(" ";999));999*5;999)&";"& MID(SUBSTITUTE(SUBSTITUTE(A4;"(";REPT(" ";999));")";REPT(" ";999));999*7;999)&";"& MID(SUBSTITUTE(SUBSTITUTE(A4;"(";REPT(" ";999));")";REPT(" ";999));999*9;999)); " ";"/");";";" "));" ";";");"/";" ")
ну если хвосты мешают, то Код
=SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(TRIM( MID(SUBSTITUTE(SUBSTITUTE(A4;"(";REPT(" ";999));")";REPT(" ";999));999*1;999)&";"& MID(SUBSTITUTE(SUBSTITUTE(A4;"(";REPT(" ";999));")";REPT(" ";999));999*3;999)&";"& MID(SUBSTITUTE(SUBSTITUTE(A4;"(";REPT(" ";999));")";REPT(" ";999));999*5;999)&";"& MID(SUBSTITUTE(SUBSTITUTE(A4;"(";REPT(" ";999));")";REPT(" ";999));999*7;999)&";"& MID(SUBSTITUTE(SUBSTITUTE(A4;"(";REPT(" ";999));")";REPT(" ";999));999*9;999)); " ";"/");";";" "));" ";";");"/";" ")
bmv98rus
Замечательный Временно просто медведь , процентов на 20 .
Ответить
Сообщение ну если хвосты мешают, то Код
=SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(TRIM( MID(SUBSTITUTE(SUBSTITUTE(A4;"(";REPT(" ";999));")";REPT(" ";999));999*1;999)&";"& MID(SUBSTITUTE(SUBSTITUTE(A4;"(";REPT(" ";999));")";REPT(" ";999));999*3;999)&";"& MID(SUBSTITUTE(SUBSTITUTE(A4;"(";REPT(" ";999));")";REPT(" ";999));999*5;999)&";"& MID(SUBSTITUTE(SUBSTITUTE(A4;"(";REPT(" ";999));")";REPT(" ";999));999*7;999)&";"& MID(SUBSTITUTE(SUBSTITUTE(A4;"(";REPT(" ";999));")";REPT(" ";999));999*9;999)); " ";"/");";";" "));" ";";");"/";" ")
Автор - bmv98rus Дата добавления - 24.04.2019 в 07:55
Светлый
Дата: Среда, 24.04.2019, 09:18 |
Сообщение № 14
Группа: Друзья
Ранг: Старожил
Сообщений: 1829
Репутация:
510
±
Замечаний:
0% ±
Excel 2013, 2016
Совместная с bmv98rus формула:Код
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";ПОВТОР(" ";999));")";";"&ПОВТОР(" ";999));999*1;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";ПОВТОР(" ";999));")";";"&ПОВТОР(" ";999));999*3;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";ПОВТОР(" ";999));")";";"&ПОВТОР(" ";999));999*5;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";ПОВТОР(" ";999));")";";"&ПОВТОР(" ";999));999*7;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";ПОВТОР(" ";999));")";ПОВТОР(" ";999));999*9;999))&-1;";-1";)
Совместная с bmv98rus формула:Код
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";ПОВТОР(" ";999));")";";"&ПОВТОР(" ";999));999*1;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";ПОВТОР(" ";999));")";";"&ПОВТОР(" ";999));999*3;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";ПОВТОР(" ";999));")";";"&ПОВТОР(" ";999));999*5;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";ПОВТОР(" ";999));")";";"&ПОВТОР(" ";999));999*7;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";ПОВТОР(" ";999));")";ПОВТОР(" ";999));999*9;999))&-1;";-1";)
Светлый
Программировать проще, чем писать стихи.
Ответить
Сообщение Совместная с bmv98rus формула:Код
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";ПОВТОР(" ";999));")";";"&ПОВТОР(" ";999));999*1;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";ПОВТОР(" ";999));")";";"&ПОВТОР(" ";999));999*3;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";ПОВТОР(" ";999));")";";"&ПОВТОР(" ";999));999*5;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";ПОВТОР(" ";999));")";";"&ПОВТОР(" ";999));999*7;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";ПОВТОР(" ";999));")";ПОВТОР(" ";999));999*9;999))&-1;";-1";)
Автор - Светлый Дата добавления - 24.04.2019 в 09:18
Светлый
Дата: Среда, 24.04.2019, 10:51 |
Сообщение № 15
Группа: Друзья
Ранг: Старожил
Сообщений: 1829
Репутация:
510
±
Замечаний:
0% ±
Excel 2013, 2016
А ещё лучше вот так:Код
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";")");")";";"&ПОВТОР(" ";999));999*1;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";")");")";";"&ПОВТОР(" ";999));999*3;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";")");")";";"&ПОВТОР(" ";999));999*5;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";")");")";";"&ПОВТОР(" ";999));999*7;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";")");")";";"&ПОВТОР(" ";999));999*9;999))&"#";";#";)
*В формуле была небольшая ошибка. Исправил. И ещё формула:Код
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";")");")";ПОВТОР(" ";999));999*1;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";"); ");")";ПОВТОР(" ";999));999*3;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";"); ");")";ПОВТОР(" ";999));999*5;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";"); ");")";ПОВТОР(" ";999));999*7;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";"); ");")";ПОВТОР(" ";999));999*9;999));" ;";";")
Первый элемент отличается от остальных.
А ещё лучше вот так:Код
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";")");")";";"&ПОВТОР(" ";999));999*1;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";")");")";";"&ПОВТОР(" ";999));999*3;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";")");")";";"&ПОВТОР(" ";999));999*5;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";")");")";";"&ПОВТОР(" ";999));999*7;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";")");")";";"&ПОВТОР(" ";999));999*9;999))&"#";";#";)
*В формуле была небольшая ошибка. Исправил. И ещё формула:Код
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";")");")";ПОВТОР(" ";999));999*1;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";"); ");")";ПОВТОР(" ";999));999*3;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";"); ");")";ПОВТОР(" ";999));999*5;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";"); ");")";ПОВТОР(" ";999));999*7;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";"); ");")";ПОВТОР(" ";999));999*9;999));" ;";";")
Первый элемент отличается от остальных. Светлый
Программировать проще, чем писать стихи.
Сообщение отредактировал Светлый - Среда, 24.04.2019, 13:31
Ответить
Сообщение А ещё лучше вот так:Код
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";")");")";";"&ПОВТОР(" ";999));999*1;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";")");")";";"&ПОВТОР(" ";999));999*3;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";")");")";";"&ПОВТОР(" ";999));999*5;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";")");")";";"&ПОВТОР(" ";999));999*7;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";")");")";";"&ПОВТОР(" ";999));999*9;999))&"#";";#";)
*В формуле была небольшая ошибка. Исправил. И ещё формула:Код
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";")");")";ПОВТОР(" ";999));999*1;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";"); ");")";ПОВТОР(" ";999));999*3;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";"); ");")";ПОВТОР(" ";999));999*5;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";"); ");")";ПОВТОР(" ";999));999*7;999)&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;"(";"); ");")";ПОВТОР(" ";999));999*9;999));" ;";";")
Первый элемент отличается от остальных. Автор - Светлый Дата добавления - 24.04.2019 в 10:51
bmv98rus
Дата: Среда, 24.04.2019, 15:09 |
Сообщение № 16
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4106
Репутация:
768
±
Замечаний:
0% ±
Excel 2013/2016
Код
=MID(TRIM(MID(SUBSTITUTE(SUBSTITUTE(A3;"(";"); ");")";REPT(" ";999));999*1;999)& MID(SUBSTITUTE(SUBSTITUTE(A3;"(";"); ");")";REPT(" ";999));999*3;999)& MID(SUBSTITUTE(SUBSTITUTE(A3;"(";"); ");")";REPT(" ";999));999*5;999)& MID(SUBSTITUTE(SUBSTITUTE(A3;"(";"); ");")";REPT(" ";999));999*7;999)& MID(SUBSTITUTE(SUBSTITUTE(A3;"(";"); ");")";REPT(" ";999));999*9;999));3;2^15)
Но разделитель с лишним пробелом
Код
=MID(TRIM(MID(SUBSTITUTE(SUBSTITUTE(A3;"(";"); ");")";REPT(" ";999));999*1;999)& MID(SUBSTITUTE(SUBSTITUTE(A3;"(";"); ");")";REPT(" ";999));999*3;999)& MID(SUBSTITUTE(SUBSTITUTE(A3;"(";"); ");")";REPT(" ";999));999*5;999)& MID(SUBSTITUTE(SUBSTITUTE(A3;"(";"); ");")";REPT(" ";999));999*7;999)& MID(SUBSTITUTE(SUBSTITUTE(A3;"(";"); ");")";REPT(" ";999));999*9;999));3;2^15)
Но разделитель с лишним пробеломbmv98rus
Замечательный Временно просто медведь , процентов на 20 .
Сообщение отредактировал bmv98rus - Среда, 24.04.2019, 15:26
Ответить
Сообщение Код
=MID(TRIM(MID(SUBSTITUTE(SUBSTITUTE(A3;"(";"); ");")";REPT(" ";999));999*1;999)& MID(SUBSTITUTE(SUBSTITUTE(A3;"(";"); ");")";REPT(" ";999));999*3;999)& MID(SUBSTITUTE(SUBSTITUTE(A3;"(";"); ");")";REPT(" ";999));999*5;999)& MID(SUBSTITUTE(SUBSTITUTE(A3;"(";"); ");")";REPT(" ";999));999*7;999)& MID(SUBSTITUTE(SUBSTITUTE(A3;"(";"); ");")";REPT(" ";999));999*9;999));3;2^15)
Но разделитель с лишним пробеломАвтор - bmv98rus Дата добавления - 24.04.2019 в 15:09
танбраун
Дата: Понедельник, 20.05.2019, 09:41 |
Сообщение № 17
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Еще раз спасибо за формулы, очень пригодились. А можно сделать так, чтобы каждый текст в скобках писался с новой строки?
Еще раз спасибо за формулы, очень пригодились. А можно сделать так, чтобы каждый текст в скобках писался с новой строки? танбраун
Ответить
Сообщение Еще раз спасибо за формулы, очень пригодились. А можно сделать так, чтобы каждый текст в скобках писался с новой строки? Автор - танбраун Дата добавления - 20.05.2019 в 09:41
Светлый
Дата: Понедельник, 20.05.2019, 09:53 |
Сообщение № 18
Группа: Друзья
Ранг: Старожил
Сообщений: 1829
Репутация:
510
±
Замечаний:
0% ±
Excel 2013, 2016
Надо в формулы добавить в нужные места:и в формате ячейки поставить галочку "Переносить по словам".
Надо в формулы добавить в нужные места:и в формате ячейки поставить галочку "Переносить по словам". Светлый
Программировать проще, чем писать стихи.
Ответить
Сообщение Надо в формулы добавить в нужные места:и в формате ячейки поставить галочку "Переносить по словам". Автор - Светлый Дата добавления - 20.05.2019 в 09:53