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

Вход

Регистрация

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

 

= Мир MS Excel/Свести данные в одну таблицу - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Свести данные в одну таблицу
alex24 Дата: Пятница, 15.09.2023, 01:39 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

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

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

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

К сообщению приложен файл: 1834149.png (261.7 Kb) · 4764495.xlsx (10.8 Kb)
 
Ответить
СообщениеВсех приветствую. Уже обращался к Вам, мой вопрос очень оперативно решили.
Но есть еще один вопрос.

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

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


Автор - alex24
Дата добавления - 15.09.2023 в 01:39
прохожий2019 Дата: Пятница, 15.09.2023, 06:49 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1287
Репутация: 322 ±
Замечаний: 0% ±

365 Beta Channel
[vba]
Код
=LET(x;ВСТОЛБИК(B3:C24;E3:F24);СОРТ(ФИЛЬТР(x;ИНДЕКС(x;;2))))
[/vba]
К сообщению приложен файл: 3753676.xlsx (18.0 Kb)
 
Ответить
Сообщение[vba]
Код
=LET(x;ВСТОЛБИК(B3:C24;E3:F24);СОРТ(ФИЛЬТР(x;ИНДЕКС(x;;2))))
[/vba]

Автор - прохожий2019
Дата добавления - 15.09.2023 в 06:49
китин Дата: Пятница, 15.09.2023, 09:44 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 7027
Репутация: 1076 ±
Замечаний: 0% ±

Excel 2007;2010;2016
PQ всемогущий
К сообщению приложен файл: alex24.xlsx (22.3 Kb)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеPQ всемогущий

Автор - китин
Дата добавления - 15.09.2023 в 09:44
Светлый Дата: Пятница, 15.09.2023, 09:45 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1844
Репутация: 522 ±
Замечаний: 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)));"")


Программировать проще, чем писать стихи.
 
Ответить
СообщениеЕсли не последними офисами, но без сортировки. Формула массива для названия:
Код
=ЕСЛИОШИБКА(ИНДЕКС(Т(СМЕЩ(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)));"")

Автор - Светлый
Дата добавления - 15.09.2023 в 09:45
alex24 Дата: Суббота, 16.09.2023, 11:02 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

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

Автор - alex24
Дата добавления - 16.09.2023 в 11:02
Egyptian Дата: Суббота, 16.09.2023, 11:42 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 521
Репутация: 187 ±
Замечаний: 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");)
 
Ответить
СообщениеЕще формульный вариант, без сортировки. Есть возможность оптимизации.
Текст
Код
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");)

Автор - Egyptian
Дата добавления - 16.09.2023 в 11:42
jakim Дата: Суббота, 16.09.2023, 15:37 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1210
Репутация: 314 ±
Замечаний: 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)
 
Ответить
Сообщение
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]

Автор - jakim
Дата добавления - 16.09.2023 в 15:37
  • Страница 1 из 1
  • 1
Поиск:

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