stas8892
Дата: Четверг, 19.10.2023, 12:43 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация:
0
±
Замечаний:
20% ±
Microsoft Office Standart 2019
Доброго времени суток! Подскажите пожалуйста как осуществить в Exel с помощью формул преобразование одной таблицы в другую, как в приложенном примере.
Доброго времени суток! Подскажите пожалуйста как осуществить в Exel с помощью формул преобразование одной таблицы в другую, как в приложенном примере. stas8892
Ответить
Сообщение Доброго времени суток! Подскажите пожалуйста как осуществить в Exel с помощью формул преобразование одной таблицы в другую, как в приложенном примере. Автор - stas8892 Дата добавления - 19.10.2023 в 12:43
Nic70y
Дата: Четверг, 19.10.2023, 13:02 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8984
Репутация:
2359
±
Замечаний:
0% ±
Excel 2010
см. файл
К сообщению приложен файл:
7230.xlsx
(9.5 Kb)
ЮMoney 41001841029809
Ответить
Сообщение см. файл Автор - Nic70y Дата добавления - 19.10.2023 в 13:02
cmivadwot
Дата: Четверг, 19.10.2023, 13:05 |
Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 531
Репутация:
96
±
Замечаний:
0% ±
365
stas8892 , оу.. а из чего куда?
Сообщение отредактировал cmivadwot - Четверг, 19.10.2023, 13:09
Ответить
Сообщение stas8892 , оу.. а из чего куда? Автор - cmivadwot Дата добавления - 19.10.2023 в 13:05
jakim
Дата: Четверг, 19.10.2023, 15:36 |
Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1214
Репутация:
314
±
Замечаний:
0% ±
Excel 2010
Ответить
Сообщение Смотрите приложение
Автор - jakim Дата добавления - 19.10.2023 в 15:36
jakim
Дата: Четверг, 19.10.2023, 15:46 |
Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1214
Репутация:
314
±
Замечаний:
0% ±
Excel 2010
Power Query
[vba]Код
let Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content], #"Changed Type" = Table.TransformColumnTypes(Source,{{"Column1", type text}, {"зеленый", Int64.Type}, {"красный", Int64.Type}, {"желтый", Int64.Type}, {"черный", Int64.Type}, {"оранжевый", Int64.Type}, {"фиолетовый", Int64.Type}}), #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Changed Type", {"Column1"}, "Attribute", "Value") in #"Unpivoted Other Columns"
[/vba]
Power Query
[vba]Код
let Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content], #"Changed Type" = Table.TransformColumnTypes(Source,{{"Column1", type text}, {"зеленый", Int64.Type}, {"красный", Int64.Type}, {"желтый", Int64.Type}, {"черный", Int64.Type}, {"оранжевый", Int64.Type}, {"фиолетовый", Int64.Type}}), #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Changed Type", {"Column1"}, "Attribute", "Value") in #"Unpivoted Other Columns"
[/vba]jakim
Ответить
Сообщение Power Query
[vba]Код
let Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content], #"Changed Type" = Table.TransformColumnTypes(Source,{{"Column1", type text}, {"зеленый", Int64.Type}, {"красный", Int64.Type}, {"желтый", Int64.Type}, {"черный", Int64.Type}, {"оранжевый", Int64.Type}, {"фиолетовый", Int64.Type}}), #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Changed Type", {"Column1"}, "Attribute", "Value") in #"Unpivoted Other Columns"
[/vba]Автор - jakim Дата добавления - 19.10.2023 в 15:46
jakim
Дата: Пятница, 20.10.2023, 18:16 |
Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1214
Репутация:
314
±
Замечаний:
0% ±
Excel 2010
Вам просто надо было увеличить диапазон вычислений.
Вам просто надо было увеличить диапазон вычислений. jakim
Ответить
Сообщение Вам просто надо было увеличить диапазон вычислений. Автор - jakim Дата добавления - 20.10.2023 в 18:16
Gustav
Дата: Пятница, 20.10.2023, 23:53 |
Сообщение № 7
Группа: Админы
Ранг: Участник клуба
Сообщений: 2790
Репутация:
1154
±
Замечаний:
±
начинал с Excel 4.0, видел 2.1
Очередная хорошая возможность поупражняться в использовании новых функций. Для версий Excel 365/2021+ формула для ячейки A7: [vba]Код
=LET( еда; A2:A4; цвет; B1:G1; поле; B2:G4; n; СЧЁТЗ(еда); m; СЧЁТЗ(цвет); ii; ПОСТОЛБЦ(MAKEARRAY(n; m; LAMBDA(стр;кол; стр))); jj; ПОСТОЛБЦ(MAKEARRAY(n; m; LAMBDA(стр;кол; кол))); усл; ИНДЕКС(поле;ii;jj) > 0; i; ФИЛЬТР(ii;усл); j; ФИЛЬТР(jj;усл); ГСТОЛБИК(MAP(i; LAMBDA(r; ИНДЕКС(еда; r ))); MAP(j; LAMBDA(c; ИНДЕКС(цвет;c ))); MAP(i;j;LAMBDA(r;c;ИНДЕКС(поле;r;c)))) )
[/vba]
Очередная хорошая возможность поупражняться в использовании новых функций. Для версий Excel 365/2021+ формула для ячейки A7: [vba]Код
=LET( еда; A2:A4; цвет; B1:G1; поле; B2:G4; n; СЧЁТЗ(еда); m; СЧЁТЗ(цвет); ii; ПОСТОЛБЦ(MAKEARRAY(n; m; LAMBDA(стр;кол; стр))); jj; ПОСТОЛБЦ(MAKEARRAY(n; m; LAMBDA(стр;кол; кол))); усл; ИНДЕКС(поле;ii;jj) > 0; i; ФИЛЬТР(ii;усл); j; ФИЛЬТР(jj;усл); ГСТОЛБИК(MAP(i; LAMBDA(r; ИНДЕКС(еда; r ))); MAP(j; LAMBDA(c; ИНДЕКС(цвет;c ))); MAP(i;j;LAMBDA(r;c;ИНДЕКС(поле;r;c)))) )
[/vba] Gustav
МОИ: Ник , Tip box: 41001663842605
Ответить
Сообщение Очередная хорошая возможность поупражняться в использовании новых функций. Для версий Excel 365/2021+ формула для ячейки A7: [vba]Код
=LET( еда; A2:A4; цвет; B1:G1; поле; B2:G4; n; СЧЁТЗ(еда); m; СЧЁТЗ(цвет); ii; ПОСТОЛБЦ(MAKEARRAY(n; m; LAMBDA(стр;кол; стр))); jj; ПОСТОЛБЦ(MAKEARRAY(n; m; LAMBDA(стр;кол; кол))); усл; ИНДЕКС(поле;ii;jj) > 0; i; ФИЛЬТР(ii;усл); j; ФИЛЬТР(jj;усл); ГСТОЛБИК(MAP(i; LAMBDA(r; ИНДЕКС(еда; r ))); MAP(j; LAMBDA(c; ИНДЕКС(цвет;c ))); MAP(i;j;LAMBDA(r;c;ИНДЕКС(поле;r;c)))) )
[/vba] Автор - Gustav Дата добавления - 20.10.2023 в 23:53
stas8892
Дата: Понедельник, 23.10.2023, 06:35 |
Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация:
0
±
Замечаний:
20% ±
Microsoft Office Standart 2019
Премного благодарен всем! Формулы работают! репутацию поднял каждому
Премного благодарен всем! Формулы работают! репутацию поднял каждому stas8892
Сообщение отредактировал stas8892 - Понедельник, 23.10.2023, 06:35
Ответить
Сообщение Премного благодарен всем! Формулы работают! репутацию поднял каждому Автор - stas8892 Дата добавления - 23.10.2023 в 06:35