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

Вход

Регистрация

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

 

= Мир MS Excel/Подстановка нескольких значений через точку с запятой к данн - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Подстановка нескольких значений через точку с запятой к данн
tarasova@altkadastrru Дата: Четверг, 11.05.2023, 09:54 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте, помогите.Есть два столбца, в столбце кадастровый номер ЗУ есть повторяющиеся значения, как через формулу подставить значения из столбца - Кадастровый номер ОКС через ";" к кадастровому номеру ЗУ. Должно получиться как в таблице 2
К сообщению приложен файл: kadastrovye_nomera_on.xlsx (12.3 Kb)


Сообщение отредактировал tarasova@altkadastrru - Четверг, 11.05.2023, 10:54
 
Ответить
СообщениеЗдравствуйте, помогите.Есть два столбца, в столбце кадастровый номер ЗУ есть повторяющиеся значения, как через формулу подставить значения из столбца - Кадастровый номер ОКС через ";" к кадастровому номеру ЗУ. Должно получиться как в таблице 2

Автор - tarasova@altkadastrru
Дата добавления - 11.05.2023 в 09:54
elovkov Дата: Четверг, 11.05.2023, 10:15 | Сообщение № 2
Группа: Друзья
Ранг: Обитатель
Сообщений: 412
Репутация: 73 ±
Замечаний: 0% ±

Excel 2013
Код
=ЕСЛИ(B2<>0;A2&"; "&B2;A2)


Умное лицо это еще не признак ума. Все глупости на земле делаются именно с этим выражением лица

Сообщение отредактировал elovkov - Четверг, 11.05.2023, 10:17
 
Ответить
Сообщение
Код
=ЕСЛИ(B2<>0;A2&"; "&B2;A2)

Автор - elovkov
Дата добавления - 11.05.2023 в 10:15
DrMini Дата: Четверг, 11.05.2023, 10:19 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1877
Репутация: 269 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Или так:
Код
=СЦЕПИТЬ(A2;";";B2)

ну и тогда на "все случаи жизни":
Код
=ЕСЛИ(B2="";A2;ЕСЛИ(A2="";B2;СЦЕПИТЬ(A2;";";B2)))

:D


Сообщение отредактировал DrMini - Четверг, 11.05.2023, 10:32
 
Ответить
СообщениеИли так:
Код
=СЦЕПИТЬ(A2;";";B2)

ну и тогда на "все случаи жизни":
Код
=ЕСЛИ(B2="";A2;ЕСЛИ(A2="";B2;СЦЕПИТЬ(A2;";";B2)))

:D

Автор - DrMini
Дата добавления - 11.05.2023 в 10:19
jakim Дата: Четверг, 11.05.2023, 10:19 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1216
Репутация: 316 ±
Замечаний: 0% ±

Excel 2010
Формула

Код
=IF(B2="";A2;A2&";"&B2)
 
Ответить
Сообщение
Формула

Код
=IF(B2="";A2;A2&";"&B2)

Автор - jakim
Дата добавления - 11.05.2023 в 10:19
tarasova@altkadastrru Дата: Четверг, 11.05.2023, 10:30 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Немного не так выразилась, я имела ввиду так как в таблице 2


Сообщение отредактировал tarasova@altkadastrru - Четверг, 11.05.2023, 10:38
 
Ответить
СообщениеНемного не так выразилась, я имела ввиду так как в таблице 2

Автор - tarasova@altkadastrru
Дата добавления - 11.05.2023 в 10:30
elovkov Дата: Четверг, 11.05.2023, 10:40 | Сообщение № 6
Группа: Друзья
Ранг: Обитатель
Сообщений: 412
Репутация: 73 ±
Замечаний: 0% ±

Excel 2013
Что-то я в примере не вижу таблицу 2)
Напишите как результат должен выглядеть

а, файл заменили)


Умное лицо это еще не признак ума. Все глупости на земле делаются именно с этим выражением лица

Сообщение отредактировал elovkov - Четверг, 11.05.2023, 10:54
 
Ответить
СообщениеЧто-то я в примере не вижу таблицу 2)
Напишите как результат должен выглядеть

а, файл заменили)

Автор - elovkov
Дата добавления - 11.05.2023 в 10:40
jakim Дата: Четверг, 11.05.2023, 10:46 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1216
Репутация: 316 ±
Замечаний: 0% ±

Excel 2010
Power Query

l[vba]
Код
et
    Source = Excel.CurrentWorkbook(){[Name="Table2"]}[Content],
    #"Grouped Rows" = Table.Group(Source, {"Кадастровый номер ЗУ"}, {{"Count", each _, type table [Кадастровый номер ЗУ=text, Кадастровый номер ОКС=text]}}),
    #"Added Custom" = Table.AddColumn(#"Grouped Rows", "Custom", each [Count][Кадастровый номер ОКС]),
    #"Extracted Values" = Table.TransformColumns(#"Added Custom", {"Custom", each Text.Combine(List.Transform(_, Text.From), "; "), type text}),
    #"Removed Columns" = Table.RemoveColumns(#"Extracted Values",{"Count"}),
    #"Renamed Columns" = Table.RenameColumns(#"Removed Columns",{{"Custom", "Кадастровый номер ОКС"}})
in
    #"Renamed Columns"
[/vba]
К сообщению приложен файл: 4575996.xlsx (21.1 Kb)
 
Ответить
Сообщение
Power Query

l[vba]
Код
et
    Source = Excel.CurrentWorkbook(){[Name="Table2"]}[Content],
    #"Grouped Rows" = Table.Group(Source, {"Кадастровый номер ЗУ"}, {{"Count", each _, type table [Кадастровый номер ЗУ=text, Кадастровый номер ОКС=text]}}),
    #"Added Custom" = Table.AddColumn(#"Grouped Rows", "Custom", each [Count][Кадастровый номер ОКС]),
    #"Extracted Values" = Table.TransformColumns(#"Added Custom", {"Custom", each Text.Combine(List.Transform(_, Text.From), "; "), type text}),
    #"Removed Columns" = Table.RemoveColumns(#"Extracted Values",{"Count"}),
    #"Renamed Columns" = Table.RenameColumns(#"Removed Columns",{{"Custom", "Кадастровый номер ОКС"}})
in
    #"Renamed Columns"
[/vba]

Автор - jakim
Дата добавления - 11.05.2023 в 10:46
DrMini Дата: Четверг, 11.05.2023, 11:37 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 1877
Репутация: 269 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Цитата tarasova@altkadastrru, 11.05.2023 в 10:30, в сообщении № 5 ()
как в таблице 2

Вариант формулами.
Второй вариант содержит массивную формулу.
К сообщению приложен файл: 1859784.xlsx (14.5 Kb)


Сообщение отредактировал DrMini - Четверг, 11.05.2023, 11:38
 
Ответить
Сообщение
Цитата tarasova@altkadastrru, 11.05.2023 в 10:30, в сообщении № 5 ()
как в таблице 2

Вариант формулами.
Второй вариант содержит массивную формулу.

Автор - DrMini
Дата добавления - 11.05.2023 в 11:37
tarasova@altkadastrru Дата: Четверг, 11.05.2023, 11:40 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
DrMini, спасибо :)


Ученик
 
Ответить
СообщениеDrMini, спасибо :)

Автор - tarasova@altkadastrru
Дата добавления - 11.05.2023 в 11:40
прохожий2019 Дата: Четверг, 11.05.2023, 15:06 | Сообщение № 10
Группа: Проверенные
Ранг: Старожил
Сообщений: 1298
Репутация: 327 ±
Замечаний: 0% ±

365 Beta Channel
Power Query

[vba]
Код
let
    from = Excel.CurrentWorkbook(){[Name="Table2"]}[Content],
    to = Table.Group(from, "Кадастровый номер ЗУ", {"Кадастровый номер ОКС", (t)=>Text.Combine(t[Кадастровый номер ОКС],"; ")})
in
    to
[/vba]

до кучи 365:
[vba]
Код
=LET(x;УНИК(Table2[Кадастровый номер ЗУ]);y;MAP(x;LAMBDA(z;ОБЪЕДИНИТЬ("; ";;ФИЛЬТР(Table2[Кадастровый номер ОКС];Table2[Кадастровый номер ЗУ]=z))));ГСТОЛБИК(x;y))
[/vba]
К сообщению приложен файл: 5311244.xlsx (25.1 Kb)


Сообщение отредактировал прохожий2019 - Четверг, 11.05.2023, 20:15
 
Ответить
Сообщение
Power Query

[vba]
Код
let
    from = Excel.CurrentWorkbook(){[Name="Table2"]}[Content],
    to = Table.Group(from, "Кадастровый номер ЗУ", {"Кадастровый номер ОКС", (t)=>Text.Combine(t[Кадастровый номер ОКС],"; ")})
in
    to
[/vba]

до кучи 365:
[vba]
Код
=LET(x;УНИК(Table2[Кадастровый номер ЗУ]);y;MAP(x;LAMBDA(z;ОБЪЕДИНИТЬ("; ";;ФИЛЬТР(Table2[Кадастровый номер ОКС];Table2[Кадастровый номер ЗУ]=z))));ГСТОЛБИК(x;y))
[/vba]

Автор - прохожий2019
Дата добавления - 11.05.2023 в 15:06
  • Страница 1 из 1
  • 1
Поиск:

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