kilundik
Дата: Понедельник, 26.12.2022, 16:14 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 27
Репутация:
0
±
Замечаний:
20% ±
2016
Всем Привет Подскажите, как разбить ссылки из одной ячейки по разным ячейкам, чтобы каждая была в своей ячейке. Прикладываю файл пример что есть и что нужно.
Всем Привет Подскажите, как разбить ссылки из одной ячейки по разным ячейкам, чтобы каждая была в своей ячейке. Прикладываю файл пример что есть и что нужно. kilundik
WBR, K.
Ответить
Сообщение Всем Привет Подскажите, как разбить ссылки из одной ячейки по разным ячейкам, чтобы каждая была в своей ячейке. Прикладываю файл пример что есть и что нужно. Автор - kilundik Дата добавления - 26.12.2022 в 16:14
_Boroda_
Дата: Понедельник, 26.12.2022, 16:30 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация:
6505
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($A4;"http";ПОВТОР(" ";999)&"http");999*B$2;999))
Точнее, такКод
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($A4;"http";ПОВТОР(" ";999)&"http");999*B$2;999));СИМВОЛ(13);)
Или даже такКод
=ГИПЕРССЫЛКА(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($A4;"http";ПОВТОР(" ";999)&"http");999*B$2;999));СИМВОЛ(13);))
Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($A4;"http";ПОВТОР(" ";999)&"http");999*B$2;999))
Точнее, такКод
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($A4;"http";ПОВТОР(" ";999)&"http");999*B$2;999));СИМВОЛ(13);)
Или даже такКод
=ГИПЕРССЫЛКА(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($A4;"http";ПОВТОР(" ";999)&"http");999*B$2;999));СИМВОЛ(13);))
_Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($A4;"http";ПОВТОР(" ";999)&"http");999*B$2;999))
Точнее, такКод
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($A4;"http";ПОВТОР(" ";999)&"http");999*B$2;999));СИМВОЛ(13);)
Или даже такКод
=ГИПЕРССЫЛКА(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($A4;"http";ПОВТОР(" ";999)&"http");999*B$2;999));СИМВОЛ(13);))
Автор - _Boroda_ Дата добавления - 26.12.2022 в 16:30
kilundik
Дата: Понедельник, 26.12.2022, 19:27 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 27
Репутация:
0
±
Замечаний:
20% ±
2016
Большое спасибо, буду пробовать)
Большое спасибо, буду пробовать) kilundik
WBR, K.
Ответить
Сообщение Большое спасибо, буду пробовать) Автор - kilundik Дата добавления - 26.12.2022 в 19:27
китин
Дата: Вторник, 27.12.2022, 10:25 |
Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7029
Репутация:
1078
±
Замечаний:
0% ±
Excel 2007;2010;2016
PQ всемогущий [vba]Код
let Источник = Excel.Workbook(File.Contents("C:\Users\i.rakitin\Downloads\4018444.xlsx"), null, true), Лист1_Sheet = Источник{[Item="Лист1",Kind="Sheet"]}[Data], #"Удаленные верхние строки" = Table.Skip(Лист1_Sheet,1), #"Другие удаленные столбцы" = Table.SelectColumns(#"Удаленные верхние строки",{"Column1"}), #"Удаленные верхние строки1" = Table.Skip(#"Другие удаленные столбцы",1), #"Разделить столбец по разделителю" = Table.SplitColumn(#"Удаленные верхние строки1", "Column1", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), {"Column1.1", "Column1.2", "Column1.3", "Column1.4", "Column1.5", "Column1.6", "Column1.7"}) in #"Разделить столбец по разделителю"
[/vba]
PQ всемогущий [vba]Код
let Источник = Excel.Workbook(File.Contents("C:\Users\i.rakitin\Downloads\4018444.xlsx"), null, true), Лист1_Sheet = Источник{[Item="Лист1",Kind="Sheet"]}[Data], #"Удаленные верхние строки" = Table.Skip(Лист1_Sheet,1), #"Другие удаленные столбцы" = Table.SelectColumns(#"Удаленные верхние строки",{"Column1"}), #"Удаленные верхние строки1" = Table.Skip(#"Другие удаленные столбцы",1), #"Разделить столбец по разделителю" = Table.SplitColumn(#"Удаленные верхние строки1", "Column1", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), {"Column1.1", "Column1.2", "Column1.3", "Column1.4", "Column1.5", "Column1.6", "Column1.7"}) in #"Разделить столбец по разделителю"
[/vba] китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение PQ всемогущий [vba]Код
let Источник = Excel.Workbook(File.Contents("C:\Users\i.rakitin\Downloads\4018444.xlsx"), null, true), Лист1_Sheet = Источник{[Item="Лист1",Kind="Sheet"]}[Data], #"Удаленные верхние строки" = Table.Skip(Лист1_Sheet,1), #"Другие удаленные столбцы" = Table.SelectColumns(#"Удаленные верхние строки",{"Column1"}), #"Удаленные верхние строки1" = Table.Skip(#"Другие удаленные столбцы",1), #"Разделить столбец по разделителю" = Table.SplitColumn(#"Удаленные верхние строки1", "Column1", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), {"Column1.1", "Column1.2", "Column1.3", "Column1.4", "Column1.5", "Column1.6", "Column1.7"}) in #"Разделить столбец по разделителю"
[/vba] Автор - китин Дата добавления - 27.12.2022 в 10:25