Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Формула перестановки слов в ячейке - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Формула перестановки слов в ячейке (Формулы/Formulas)
Формула перестановки слов в ячейке
Lavr Дата: Воскресенье, 08.10.2017, 09:56 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте.
Мне нужно переставить слова в ячейке например:
стиральную машину купить
С помощью какой команды можно переставить слово "купить" в начало предложения?
Спасибо.


Сообщение отредактировал Lavr - Воскресенье, 08.10.2017, 09:56
 
Ответить
СообщениеЗдравствуйте.
Мне нужно переставить слова в ячейке например:
стиральную машину купить
С помощью какой команды можно переставить слово "купить" в начало предложения?
Спасибо.
Автор - Lavr
Дата добавления - 08.10.2017 в 09:56
_Igor_61 Дата: Воскресенье, 08.10.2017, 10:07 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация: 90 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте! Вариант:
К сообщению приложен файл: 4545605.xls (13.5 Kb)
 
Ответить
СообщениеЗдравствуйте! Вариант:
Автор - _Igor_61
Дата добавления - 08.10.2017 в 10:07
vikttur Дата: Воскресенье, 08.10.2017, 10:53 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

Код
=СЖПРОБЕЛЫ(B1&" "&ПОДСТАВИТЬ(A2;B1;))

Если ячейка выбора не нужна, замените ссылку на слово


Сообщение отредактировал vikttur - Воскресенье, 08.10.2017, 10:53
 
Ответить
Сообщение
Код
=СЖПРОБЕЛЫ(B1&" "&ПОДСТАВИТЬ(A2;B1;))

Если ячейка выбора не нужна, замените ссылку на слово
Автор - vikttur
Дата добавления - 08.10.2017 в 10:53
Lavr Дата: Воскресенье, 08.10.2017, 10:55 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Igor_61,
Не знаю, сумею ли я ее применить , но я попробую)
Спасибо!
 
Ответить
Сообщение_Igor_61,
Не знаю, сумею ли я ее применить , но я попробую)
Спасибо!
Автор - Lavr
Дата добавления - 08.10.2017 в 10:55
Lavr Дата: Воскресенье, 08.10.2017, 12:21 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Цитата vikttur, 08.10.2017 в 10:53, в сообщении № 3 ()

Если ячейка выбора не нужна, замените ссылку на слово

vikttur, Можно наглядно, как именно... ? )

Мне нужно в определенном столбце, слова "купить" переставить в начало заголовка. (прикпрепил скрин)


Сообщение отредактировал Lavr - Воскресенье, 08.10.2017, 12:22
 
Ответить
Сообщение
Цитата vikttur, 08.10.2017 в 10:53, в сообщении № 3 ()

Если ячейка выбора не нужна, замените ссылку на слово

vikttur, Можно наглядно, как именно... ? )

Мне нужно в определенном столбце, слова "купить" переставить в начало заголовка. (прикпрепил скрин)
Автор - Lavr
Дата добавления - 08.10.2017 в 12:21
Pelena Дата: Воскресенье, 08.10.2017, 12:24 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19409
Репутация: 4558 ±
Замечаний: ±

Excel 365 & Mac Excel
Код
=СЖПРОБЕЛЫ("купить "&ПОДСТАВИТЬ(A2;"купить";))

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Код
=СЖПРОБЕЛЫ("купить "&ПОДСТАВИТЬ(A2;"купить";))
Автор - Pelena
Дата добавления - 08.10.2017 в 12:24
Lavr Дата: Воскресенье, 08.10.2017, 14:27 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Цитата Pelena, 08.10.2017 в 12:24, в сообщении № 6 ()
=СЖПРОБЕЛЫ("купить "&ПОДСТАВИТЬ(A2;"купить";))

Pelena,
эта формула слово "купить" добавила в каждую ячейку в начало каждой строки.
Мне же нужно слова "купить" переставить с конца заголовков в начало только от туда где оно есть в конце, а не добавлять его в каждой строке)
Вполне возможно что, я не так сформулировал.

Тем не менее спасибо вам, возможно это мне тоже пригодится.


Сообщение отредактировал Lavr - Воскресенье, 08.10.2017, 14:55
 
Ответить
Сообщение
Цитата Pelena, 08.10.2017 в 12:24, в сообщении № 6 ()
=СЖПРОБЕЛЫ("купить "&ПОДСТАВИТЬ(A2;"купить";))

Pelena,
эта формула слово "купить" добавила в каждую ячейку в начало каждой строки.
Мне же нужно слова "купить" переставить с конца заголовков в начало только от туда где оно есть в конце, а не добавлять его в каждой строке)
Вполне возможно что, я не так сформулировал.

Тем не менее спасибо вам, возможно это мне тоже пригодится.
Автор - Lavr
Дата добавления - 08.10.2017 в 14:27
vikttur Дата: Воскресенье, 08.10.2017, 20:57 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

Цитата
только от туда где оно есть в конце

Так Вы же об этом не пиисали...
Код
=ЕСЛИ(ЕЧИСЛО(ПОИСК("слово";A2));СЖПРОБЕЛЫ(B1&" "&ПОДСТАВИТЬ(A2;"слово";));A2)
 
Ответить
Сообщение
Цитата
только от туда где оно есть в конце

Так Вы же об этом не пиисали...
Код
=ЕСЛИ(ЕЧИСЛО(ПОИСК("слово";A2));СЖПРОБЕЛЫ(B1&" "&ПОДСТАВИТЬ(A2;"слово";));A2)
Автор - vikttur
Дата добавления - 08.10.2017 в 20:57
Pelena Дата: Воскресенье, 08.10.2017, 22:01 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 19409
Репутация: 4558 ±
Замечаний: ±

Excel 365 & Mac Excel
Или так
Код
=ЕСЛИ(ПРАВСИМВ(A2;6)="купить";СЖПРОБЕЛЫ("купить "&ПОДСТАВИТЬ(A2;"купить";));A2)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеИли так
Код
=ЕСЛИ(ПРАВСИМВ(A2;6)="купить";СЖПРОБЕЛЫ("купить "&ПОДСТАВИТЬ(A2;"купить";));A2)
Автор - Pelena
Дата добавления - 08.10.2017 в 22:01
_Boroda_ Дата: Понедельник, 09.10.2017, 09:16 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 16734
Репутация: 6534 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Еще вариант
Код
=ЕСЛИ(ПРАВБ(A1;6)="купить";"купить "&ЛЕВБ(A1;ДЛСТР(A1)-7);A1)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЕще вариант
Код
=ЕСЛИ(ПРАВБ(A1;6)="купить";"купить "&ЛЕВБ(A1;ДЛСТР(A1)-7);A1)
Автор - _Boroda_
Дата добавления - 09.10.2017 в 09:16
igor-parhomov Дата: Воскресенье, 24.09.2023, 08:20 | Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

2003
У меня аналогичная, но немного сложная задача. Во вложении исходные столбцы A и B должны принять правильный вид, как в столбцах C и D (закрасил желтым). Нужна формула, вставив которую в ячейку С1, я мог потянуть вниз.

Фактически, заключенные в двойные кавычки значения нужно поменять местами.

#EXTINF:-1 tvg-id="*" tvg-name="*" tvg-logo="*" group-title="*",SVT1 HD SE

должно принять вид

#EXTINF:-1 group-title="*" tvg-name="*" tvg-id="*" tvg-logo="*" ,SVT1 HD SE
К сообщению приложен файл: kniga2.xls (24.5 Kb)

.xls
 
Ответить
СообщениеУ меня аналогичная, но немного сложная задача. Во вложении исходные столбцы A и B должны принять правильный вид, как в столбцах C и D (закрасил желтым). Нужна формула, вставив которую в ячейку С1, я мог потянуть вниз.

Фактически, заключенные в двойные кавычки значения нужно поменять местами.

#EXTINF:-1 tvg-id="*" tvg-name="*" tvg-logo="*" group-title="*",SVT1 HD SE

должно принять вид

#EXTINF:-1 group-title="*" tvg-name="*" tvg-id="*" tvg-logo="*" ,SVT1 HD SE
Автор - igor-parhomov
Дата добавления - 24.09.2023 в 08:20
bmv98rus Дата: Понедельник, 25.09.2023, 19:59 | Сообщение № 12
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4120
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
Код
="#EXTINF:-1 "  & TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("group-title";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" "  &
TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("tvg-name";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" " &
TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("tvg-id";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" "  &
TRIM(LEFT(SUBSTITUTE(MID(A1;FIND(" tvg-logo";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" "

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение
Код
="#EXTINF:-1 "  & TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("group-title";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" "  &
TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("tvg-name";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" " &
TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("tvg-id";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" "  &
TRIM(LEFT(SUBSTITUTE(MID(A1;FIND(" tvg-logo";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" "
Автор - bmv98rus
Дата добавления - 25.09.2023 в 19:59
Eclan Дата: Среда, 20.11.2024, 08:47 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Цитата bmv98rus, 25.09.2023 в 19:59, в сообщении № 12 ()
="#EXTINF:-1 " & СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("group-title";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" " &СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("tvg-name";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" " &СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("tvg-id";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" " &СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ(" tvg-logo";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" "

Проверил вашу формулу. Она почти правильная, но не доработана. Она удаляет после последней запятой название канала. Так,
#EXTINF:-1 tvg-id="a2tv.tr" tvg-name="A2 HD" tvg-logo="http://logo.apk-red.com/news/a2-hd.png" group-title="TR • Ulusal",A2 HD
у вас приняло вид
#EXTINF:-1 group-title="TR • Ulusal" tvg-name="A2 HD" tvg-id="a2tv.tr" tvg-logo="http://logo.apk-red.com/news/a2-hd.png"
т.е. пропущено ,A2 HD
Можно подредактировать формулу?


Сообщение отредактировал Eclan - Среда, 20.11.2024, 09:05
 
Ответить
Сообщение
Цитата bmv98rus, 25.09.2023 в 19:59, в сообщении № 12 ()
="#EXTINF:-1 " & СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("group-title";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" " &СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("tvg-name";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" " &СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("tvg-id";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" " &СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ(" tvg-logo";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" "

Проверил вашу формулу. Она почти правильная, но не доработана. Она удаляет после последней запятой название канала. Так,
#EXTINF:-1 tvg-id="a2tv.tr" tvg-name="A2 HD" tvg-logo="http://logo.apk-red.com/news/a2-hd.png" group-title="TR • Ulusal",A2 HD
у вас приняло вид
#EXTINF:-1 group-title="TR • Ulusal" tvg-name="A2 HD" tvg-id="a2tv.tr" tvg-logo="http://logo.apk-red.com/news/a2-hd.png"
т.е. пропущено ,A2 HD
Можно подредактировать формулу?
Автор - Eclan
Дата добавления - 20.11.2024 в 08:47
bmv98rus Дата: Пятница, 22.11.2024, 21:31 | Сообщение № 14
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4120
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
Eclan, все верно, если кроме перемещения тэгов нужно сохранить что за их пределами, то нужно чуть подпраить
Код
="#EXTINF:-1 "  & TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("group-title";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" "  &TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("tvg-name";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" " &TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("tvg-id";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" "  &TRIM(LEFT(SUBSTITUTE(MID(A1;FIND(" tvg-logo";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""","&TRIM(RIGHT(SUBSTITUTE(A1;",";REPT(" ";LEN(A1)));LEN( A1)))

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеEclan, все верно, если кроме перемещения тэгов нужно сохранить что за их пределами, то нужно чуть подпраить
Код
="#EXTINF:-1 "  & TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("group-title";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" "  &TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("tvg-name";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" " &TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("tvg-id";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" "  &TRIM(LEFT(SUBSTITUTE(MID(A1;FIND(" tvg-logo";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""","&TRIM(RIGHT(SUBSTITUTE(A1;",";REPT(" ";LEN(A1)));LEN( A1)))
Автор - bmv98rus
Дата добавления - 22.11.2024 в 21:31
Eclan Дата: Суббота, 23.11.2024, 07:28 | Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Цитата bmv98rus, 22.11.2024 в 21:31, в сообщении № 14 ()
="#EXTINF:-1 " & СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("group-title";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" " &СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("tvg-name";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" " &СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("tvg-id";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" " &СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ(" tvg-logo";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""","&СЖПРОБЕЛЫ(ПРАВСИМВ(ПОДСТАВИТЬ(A1;",";ПОВТОР(" ";ДЛСТР(A1)));ДЛСТР( A1)))

Благодарю, проверю, отпишусь.
 
Ответить
Сообщение
Цитата bmv98rus, 22.11.2024 в 21:31, в сообщении № 14 ()
="#EXTINF:-1 " & СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("group-title";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" " &СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("tvg-name";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" " &СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("tvg-id";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" " &СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ(" tvg-logo";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""","&СЖПРОБЕЛЫ(ПРАВСИМВ(ПОДСТАВИТЬ(A1;",";ПОВТОР(" ";ДЛСТР(A1)));ДЛСТР( A1)))

Благодарю, проверю, отпишусь.
Автор - Eclan
Дата добавления - 23.11.2024 в 07:28
Eclan Дата: Пятница, 29.11.2024, 08:41 | Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Проверил, всё классно.
Иногда возникает такая проблема - как удалить огромное количество знаков (около 8000) в ячейке (и заменить их на условные из 100 знаков). Например, то, что в кавычках после tvg-logo="data:..."


Сообщение отредактировал Eclan - Суббота, 30.11.2024, 06:37
 
Ответить
СообщениеПроверил, всё классно.
Иногда возникает такая проблема - как удалить огромное количество знаков (около 8000) в ячейке (и заменить их на условные из 100 знаков). Например, то, что в кавычках после tvg-logo="data:..."
Автор - Eclan
Дата добавления - 29.11.2024 в 08:41
bmv98rus Дата: Пятница, 29.11.2024, 18:45 | Сообщение № 17
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4120
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
Eclan, это другая история, хотя добавить контроль этого в часть
Код
&TRIM(LEFT(SUBSTITUTE(MID(A1;FIND(" tvg-logo";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &
не сильно сложно.

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеEclan, это другая история, хотя добавить контроль этого в часть
Код
&TRIM(LEFT(SUBSTITUTE(MID(A1;FIND(" tvg-logo";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &
не сильно сложно.
Автор - bmv98rus
Дата добавления - 29.11.2024 в 18:45
Eclan Дата: Суббота, 30.11.2024, 05:58 | Сообщение № 18
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Цитата bmv98rus, 29.11.2024 в 18:45, в сообщении № 17 ()
&СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ(" tvg-logo";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &

Нет, не работает. Видимо, 8000 знаков в ячейке Эксель не осиливает.
 
Ответить
Сообщение
Цитата bmv98rus, 29.11.2024 в 18:45, в сообщении № 17 ()
&СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ(" tvg-logo";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &

Нет, не работает. Видимо, 8000 знаков в ячейке Эксель не осиливает.
Автор - Eclan
Дата добавления - 30.11.2024 в 05:58
bmv98rus Дата: Суббота, 30.11.2024, 21:59 | Сообщение № 19
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4120
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
что не работает, ну то что у 2003 есть ограничения по вложенности функций - факт, но тут не много.
Код
="#EXTINF:-1 "  &
TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("group-title";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" "  &
TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("tvg-name";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" " &
TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("tvg-id";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" "  &
IF(ISNUMBER(FIND("tvg-logo=""data:image";A1));"logo=""data:image/jpeg;base64,/";TRIM(LEFT(SUBSTITUTE(MID(A1;FIND(" tvg-logo";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))))
&""","&TRIM(RIGHT(SUBSTITUTE(A1;",";REPT(" ";LEN(A1)));LEN( A1)))

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщениечто не работает, ну то что у 2003 есть ограничения по вложенности функций - факт, но тут не много.
Код
="#EXTINF:-1 "  &
TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("group-title";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" "  &
TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("tvg-name";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" " &
TRIM(LEFT(SUBSTITUTE(MID(A1;FIND("tvg-id";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))) &""" "  &
IF(ISNUMBER(FIND("tvg-logo=""data:image";A1));"logo=""data:image/jpeg;base64,/";TRIM(LEFT(SUBSTITUTE(MID(A1;FIND(" tvg-logo";A1);LEN(A1));"""";REPT(" ";LEN(A1));2);LEN(A1))))
&""","&TRIM(RIGHT(SUBSTITUTE(A1;",";REPT(" ";LEN(A1)));LEN( A1)))
Автор - bmv98rus
Дата добавления - 30.11.2024 в 21:59
Eclan Дата: Воскресенье, 01.12.2024, 07:14 | Сообщение № 20
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Цитата bmv98rus, 30.11.2024 в 21:59, в сообщении № 19 ()
="#EXTINF:-1 " &СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("group-title";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" " &СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("tvg-name";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" " &СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("tvg-id";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" " &ЕСЛИ(ЕЧИСЛО(НАЙТИ("tvg-logo=""data:image";A1));"logo=""data:image/jpeg;base64,/";СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ(" tvg-logo";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))))&""","&СЖПРОБЕЛЫ(ПРАВСИМВ(ПОДСТАВИТЬ(A1;",";ПОВТОР(" ";ДЛСТР(A1)));ДЛСТР( A1)))

В этот раз сработало. Формула правильная, но не совсем. То, что заключено в кавычках tvg-logo="data:image...", можно либо вообще убрать либо заменить на tvg-logo="" (вообще, это ерунда, я и сам справлюсь). Я вам дал пример одной ячейки. А если таких ячеек в столбце А с 8000 знаков в каждой будет 10000, мой Эксель справиться с задачей? Вообще, интересно, сколько знаков в одной ячейке под силу Эксель-2003 (чтобы не выдало ошибку). Так или иначе, благодарю. Будем тестировать (пока то, что есть).


Сообщение отредактировал Eclan - Воскресенье, 01.12.2024, 07:18
 
Ответить
Сообщение
Цитата bmv98rus, 30.11.2024 в 21:59, в сообщении № 19 ()
="#EXTINF:-1 " &СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("group-title";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" " &СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("tvg-name";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" " &СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("tvg-id";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))) &""" " &ЕСЛИ(ЕЧИСЛО(НАЙТИ("tvg-logo=""data:image";A1));"logo=""data:image/jpeg;base64,/";СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ(" tvg-logo";A1);ДЛСТР(A1));"""";ПОВТОР(" ";ДЛСТР(A1));2);ДЛСТР(A1))))&""","&СЖПРОБЕЛЫ(ПРАВСИМВ(ПОДСТАВИТЬ(A1;",";ПОВТОР(" ";ДЛСТР(A1)));ДЛСТР( A1)))

В этот раз сработало. Формула правильная, но не совсем. То, что заключено в кавычках tvg-logo="data:image...", можно либо вообще убрать либо заменить на tvg-logo="" (вообще, это ерунда, я и сам справлюсь). Я вам дал пример одной ячейки. А если таких ячеек в столбце А с 8000 знаков в каждой будет 10000, мой Эксель справиться с задачей? Вообще, интересно, сколько знаков в одной ячейке под силу Эксель-2003 (чтобы не выдало ошибку). Так или иначе, благодарю. Будем тестировать (пока то, что есть).
Автор - Eclan
Дата добавления - 01.12.2024 в 07:14
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Формула перестановки слов в ячейке (Формулы/Formulas)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!