Свести данные в одну таблицу

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Свести данные в одну таблицу (Формулы/Formulas)

alex24

Дата: Пятница, 15.09.2023, 01:39 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 20% ±

2021

Всех приветствую. Уже обращался к Вам, мой вопрос очень оперативно решили.
Но есть еще один вопрос.

Имею несколько таблиц, которые по формулах считают данные (второе значение в таблице).
Нужно составить сводную таблицу, которая отобразит наименование с значениями, в алфавитном порядке, без пропусков.
Тоесть, наименования, в которых нет второго значения выводить не нужно.

Пример предоставляю в виде скрина и книги.

К сообщению приложен файл: 1834149.png (261.7 Kb) · 4764495.xlsx (10.8 Kb)

Ответить

прохожий2019

Дата: Пятница, 15.09.2023, 06:49 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1298

Репутация: 327 ±

Замечаний: 0% ±

365 Beta Channel

[vba]

Код

=LET(x;ВСТОЛБИК(B3:C24;E3:F24);СОРТ(ФИЛЬТР(x;ИНДЕКС(x;;2))))

[/vba]

К сообщению приложен файл: 3753676.xlsx (18.0 Kb)

Ответить

китин

Дата: Пятница, 15.09.2023, 09:44 | Сообщение № 3

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

PQ всемогущий

К сообщению приложен файл: alex24.xlsx (22.3 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Светлый

Дата: Пятница, 15.09.2023, 09:45 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1851

Репутация: 523 ±

Замечаний: 0% ±

Excel 2013, 2016

Если не последними офисами, но без сортировки. Формула массива для названия:

Код

=ЕСЛИОШИБКА(ИНДЕКС(Т(СМЕЩ(B$3;ОСТАТ(СТРОКА(A$1:A$99)-1;50);(ОТБР(СТРОКА(A$1:A$99)-1)/50)*3));НАИМЕНЬШИЙ(ЕСЛИ(ИНДЕКС(Ч(СМЕЩ(C$3;ОСТАТ(СТРОКА(A$1:A$99)-1;50);(ОТБР(СТРОКА(A$1:A$99)-1)/50)*3));)>0;СТРОКА(A$1:A$99));СТРОКА(I1)));"")

и для значения:

Код

=ЕСЛИОШИБКА(ИНДЕКС(Ч(СМЕЩ(C$3;ОСТАТ(СТРОКА(A$1:A$99)-1;50);(ОТБР(СТРОКА(A$1:A$99)-1)/50)*3));НАИМЕНЬШИЙ(ЕСЛИ(ИНДЕКС(Ч(СМЕЩ(C$3;ОСТАТ(СТРОКА(A$1:A$99)-1;50);(ОТБР(СТРОКА(A$1:A$99)-1)/50)*3));)>0;СТРОКА(A$1:A$99));СТРОКА(I1)));"")

Программировать проще, чем писать стихи.

Ответить

alex24

Дата: Суббота, 16.09.2023, 11:02 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 20% ±

2021

А можно сделать так, что бы при смене данных в таблице №1 или №2, менялся результат согласно требований в итоговой таблице?

Ответить

Egyptian

Дата: Суббота, 16.09.2023, 11:42 | Сообщение № 6

Группа: Проверенные

Ранг: Ветеран

Сообщений: 526

Репутация: 193 ±

Замечаний: 0% ±

Excel 2013/2016

Еще формульный вариант, без сортировки. Есть возможность оптимизации.
Текст

Код

INDIRECT(TEXT(MOD(SMALL(IFNA(IF(ISTEXT($B$3:$E$24)*ISNUMBER($C$3:$F$24);ROW($B$3:$F$24)*1000+COLUMN($B$3:$F$24)*1000001;99999999);99999999);ROW(A1));1000000);"R0C000");)

Значения

Код

=INDIRECT(TEXT(MOD(SMALL(IFNA(IF(ISNUMBER($B$3:$F$24);ROW($B$3:$F$24)*1000+COLUMN($B$3:$F$24)*1000001;99999999);99999999);ROW(A1));1000000);"R0C000");)

Ответить

jakim

Дата: Суббота, 16.09.2023, 15:37 | Сообщение № 7

Группа: Друзья

Ранг: Старожил

Сообщений: 1216

Репутация: 316 ±

Замечаний: 0% ±

Excel 2010

Power Query

l[vba]

Код

et
    Source = Excel.CurrentWorkbook(){[Name="Table2"]}[Content],
    #"Renamed Columns" = Table.RenameColumns(Source,{{"ТАБЛИЦА 2", "ТАБЛИЦА"}}),
    #"Appended Query" = Table.Combine({#"Renamed Columns", Table1}),
    #"Filtered Rows" = Table.SelectRows(#"Appended Query", each ([Column1] <> null)),
    #"Sorted Rows" = Table.Sort(#"Filtered Rows",{{"ТАБЛИЦА", Order.Ascending}})
in
    #"Sorted Rows"

[/vba]

К сообщению приложен файл: 4764495_1.xlsx (20.1 Kb)

Ответить

Свести данные в одну таблицу (Формулы/Formulas)

Страница 1 из 1
1