Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 62 След.
Подстановка уникальных значений в таблицу из других двух таблиц, Версия Excel 2016, функции УНИК нет.
 
Ещё вариант с PQ.
Код
let
    Source = Excel.Workbook(File.Contents("C:\Users\User\Documents\Documents\Уник.xlsx"), null, true),
    #"Removed Top Rows" = Table.Skip(Source,1),
    #"Removed Other Columns" = Table.SelectColumns(#"Removed Top Rows",{"Data"}),
    #"Expanded Data" = Table.ExpandTableColumn(#"Removed Other Columns", "Data", {"Продукты ", "Вид", "Кол-во"}, {"Data.Продукты ", "Data.Вид", "Data.Кол-во"}),
    #"Grouped Rows" = Table.Group(#"Expanded Data", {"Data.Продукты ", "Data.Вид"}, {{"Сумма", each List.Sum([#"Data.Кол-во"]), type number}}),
    #"Renamed Columns" = Table.RenameColumns(#"Grouped Rows",{{"Data.Продукты ", "Продукты"}, {"Data.Вид", "Вид"}})
in
    #"Renamed Columns"
График испытаний и осмотров, Автоматическое изменение даты
 
Так?
Power Query в версиях Office, наличие PQ в Excel в различных версиях Office
 
В 2010 офисе анологично как и 2013.
Разница между максимальным и минимальным значением в диапазоне ячеек
 
Power Query
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(Source, {"Column1"}, "Attribute", "Value"),
    #"Removed Columns" = Table.RemoveColumns(#"Unpivoted Other Columns",{"Attribute"}),
    #"Grouped Rows" = Table.Group(#"Removed Columns", {"Column1"}, {{"max", each List.Max([Value]), type number}, {"min", each List.Min([Value]), type number}}),
    #"Added Custom" = Table.AddColumn(#"Grouped Rows", "Custom", each [max]-[min]),
    #"Removed Other Columns" = Table.SelectColumns(#"Added Custom",{"Custom"})
in
    #"Removed Other Columns"
Отображение каждой 10й строки из тысяч
 
Смотрите
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Added Index" = Table.AddIndexColumn(Source, "Index", 1, 1, Int64.Type),
    #"Inserted Modulo" = Table.AddColumn(#"Added Index", "Modulo", each Number.Mod([Index], 10), type number)
in
    #"Inserted Modulo"
Изменено: jakim - 06.09.2022 16:16:27
Power Query Перечислить атрибуты из нескольких строк в одну через запятую
 
Я думаю, что так понятливее будет
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],
    #"Grouped Rows" = Table.Group(Source, {"Month", " Contract Number", "End Date", "Status "}, {{"Net", each List.Sum([Net]), type number}, {"Sum", each List.Sum([Sum]), type number}, {"Count", each _, type table [Month=datetime, #" Contract Number"=text, Start Date=datetime, End Date=datetime, #"Status "=text, Net=number, Sum=number, Details=text]}}),
    #"Added Custom" = Table.AddColumn(#"Grouped Rows", "Custom", each [Count][Details]),
    #"Removed Columns" = Table.RemoveColumns(#"Added Custom",{"Count"}),
    #"Extracted Values" = Table.TransformColumns(#"Removed Columns", {"Custom", each Text.Combine(List.Transform(_, Text.From), ", "), type text})
in
    #"Extracted Values"
Отображение каждой 10й строки из тысяч
 
Введите столбец индекса и промодулируйте его по значению 10.
Поиск данных в таблице и вывод их значений
 
Формула
Код
=IFERROR(INDEX(Данные!B$3:B$400;AGGREGATE(15;6;ROW($1:$400)/(Данные!$C$3:$C$100=TODAY());ROWS($6:6)));"")
Поиск максимального значения, Найти категорию соответвующую максимальному значению по сумме
 
Power Query
[ Закрыто] Excel power query, В power query загружаются два файла с разными форматами времени
 
Установите время согласно "Lokale".
PQ. Преобразовать список списков в таблицу
 
Может так?
Код
let
    Источник =     {
        {{"Тверь", "Тула", 50},
        {"Москва", "Сибирь", 90},
        {"Ростов", "Самара", 60}}
    },
    Источник1 = Источник{0},
    #"Converted to Table" = Table.FromList(Источник1, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    #"Extracted Values" = Table.TransformColumns(#"Converted to Table", {"Column1", each Text.Combine(List.Transform(_, Text.From), " "), type text}),
    #"Split Column by Delimiter" = Table.SplitColumn(#"Extracted Values", "Column1", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), {"Column1.1", "Column1.2", "Column1.3"}),
    #"Changed Type" = Table.TransformColumnTypes(#"Split Column by Delimiter",{{"Column1.1", type text}, {"Column1.2", type text}, {"Column1.3", Int64.Type}})
in
    #"Changed Type"
Транспонирование с группировкой
 
Power Query
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Sorted Rows" = Table.Sort(Source,{{"Column2", Order.Ascending}}),
    #"Grouped Rows" = Table.Group(#"Sorted Rows", {"Column1"}, {{"Count", each _, type table}}),
    #"Added Custom" = Table.AddColumn(#"Grouped Rows", "Custom", each [Count][Column2]),
    #"Removed Columns" = Table.RemoveColumns(#"Added Custom",{"Count"}),
    #"Extracted Values" = Table.TransformColumns(#"Removed Columns", {"Custom", each Text.Combine(List.Transform(_, Text.From), " "), type text}),
    #"Reversed Rows" = Table.ReverseRows(#"Extracted Values"),
    #"Split Column by Delimiter" = Table.SplitColumn(#"Reversed Rows","Custom",Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv),{"Custom.1", "Custom.2", "Custom.3"}),
    #"Sorted Rows1" = Table.Sort(#"Split Column by Delimiter",{{"Column1", Order.Ascending}})
in
    #"Sorted Rows1"
Изменить даты вида "MonthYear", "Month-Year" на формат dd.mm.yyyy
 
И ещё Power Query
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Split Column by Position" = Table.SplitColumn(Source,"Column1",Splitter.SplitTextByPositions({0, 3}, false),{"Column1.1", "Column1.2"}),
    #"Split Column by Position1" = Table.SplitColumn(Table.TransformColumnTypes(#"Split Column by Position", {{"Column1.2", type text}}, "lt-LT"),"Column1.2",Splitter.SplitTextByPositions({0, 2}, true),{"Column1.2.1", "Column1.2.2"}),
    #"Removed Columns" = Table.RemoveColumns(#"Split Column by Position1",{"Column1.2.1"}),
    #"Changed Type" = Table.TransformColumnTypes(#"Removed Columns",{{"Column1.2.2", Int64.Type}}),
    #"Added Custom" = Table.AddColumn(#"Changed Type", "Custom", each 1),
    #"Added Custom1" = Table.AddColumn(#"Added Custom", "Custom.1", each [Column1.2.2]+2000),
    #"Removed Columns1" = Table.RemoveColumns(#"Added Custom1",{"Column1.2.2"}),
    #"Merged Columns" = Table.CombineColumns(Table.TransformColumnTypes(#"Removed Columns1", {{"Custom.1", type text}, {"Custom", type text}}, "lt-LT"),{"Custom.1", "Column1.1", "Custom"},Combiner.CombineTextByDelimiter(".", QuoteStyle.None),"Merged"),
    #"Changed Type1" = Table.TransformColumnTypes(#"Merged Columns",{{"Merged", type date}})
in
    #"Changed Type1"
Изменить даты вида "MonthYear", "Month-Year" на формат dd.mm.yyyy
 
Формула
Код
=DATE(RIGHT(A1;2)+2000;ROUNDDOWN(SEARCH(MID(F1;2;2);"anebarprayunulugepctovec")/2+1;0);1)
Общая сумма за месяц по поставщикам, суммирование в диапазоне дат с условием
 
Power Query
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Removed Columns" = Table.RemoveColumns(Source,{"Сумма факт"}),
    #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Removed Columns", {"Поставщики"}, "Attribute", "Value"),
    #"Changed Type1" = Table.TransformColumnTypes(#"Unpivoted Other Columns",{{"Attribute", type date}}),
    #"Extracted Month Name" = Table.TransformColumns(#"Changed Type1", {{"Attribute", each Date.MonthName(_), type text}}),
    #"Grouped Rows" = Table.Group(#"Extracted Month Name", {"Поставщики", "Attribute"}, {{"Сумма", each List.Sum([Value]), type number}}),
    #"Pivoted Column" = Table.Pivot(#"Grouped Rows", List.Distinct(#"Grouped Rows"[Attribute]), "Attribute", "Сумма")
in
    #"Pivoted Column"
Формула для вычленения из текста значений для последующего перемножения, Нужно из текстовой ячейки вычленить числовые значения для их последующего перемножения
 
Power Query
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Split Column by Delimiter" = Table.SplitColumn(Source,"Column1",Splitter.SplitTextByEachDelimiter({" "}, QuoteStyle.Csv, false),{"Column1.1", "Column1.2"}),
    #"Split Column by Delimiter1" = Table.SplitColumn(#"Split Column by Delimiter","Column1.2",Splitter.SplitTextByEachDelimiter({" "}, QuoteStyle.Csv, true),{"Column1.2.1", "Column1.2.2"}),
    #"Removed Columns" = Table.RemoveColumns(#"Split Column by Delimiter1",{"Column1.2.2"}),
    #"Trimmed Text" = Table.TransformColumns(#"Removed Columns",{{"Column1.2.1", Text.Trim}}),
    #"Split Column by Delimiter2" = Table.SplitColumn(#"Trimmed Text","Column1.2.1",Splitter.SplitTextByDelimiter("*", QuoteStyle.Csv),{"Column1.2.1.1", "Column1.2.1.2", "Column1.2.1.3"}),
    #"Changed Type" = Table.TransformColumnTypes(#"Split Column by Delimiter2",{{"Column1.2.1.1", type number}, {"Column1.2.1.2", type number}, {"Column1.2.1.3", type number}}),
    #"Added Custom" = Table.AddColumn(#"Changed Type", "Custom", each [Column1.2.1.1]*[Column1.2.1.2]*[Column1.2.1.3]/1000000000),
    #"Removed Other Columns" = Table.SelectColumns(#"Added Custom",{"Custom"})
in
    #"Removed Other Columns"
Разделение текста в ячейке, умножение числа из ячейки и обратный сбор в 1 ячейку
 
Power Query
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Split Column by Delimiter" = Table.SplitColumn(Source,"Column1",Splitter.SplitTextByEachDelimiter({"-"}, QuoteStyle.Csv, true),{"Column1.1", "Column1.2"}),
    #"Changed Type" = Table.TransformColumnTypes(#"Split Column by Delimiter",{{"Column1.2", type number}}),
    #"Added Custom" = Table.AddColumn(#"Changed Type", "Custom", each [Column1.2]*1.25),
    #"Removed Columns3" = Table.RemoveColumns(#"Added Custom",{"Column1.2"}),
    #"Changed Type1" = Table.TransformColumnTypes(#"Removed Columns3",{{"Custom", type text}}),
    #"Added Custom1" = Table.AddColumn(#"Changed Type1", "Custom.1", each [Custom]&"₽"),
    #"Removed Columns" = Table.RemoveColumns(#"Added Custom1",{"Custom"}),
    #"Inserted Merged Column" = Table.AddColumn(#"Removed Columns", "Merged", each Text.Combine({Text.From([Column1.1], "lt-LT"), [Custom.1]}, "-"), type text),
    #"Removed Other Columns" = Table.SelectColumns(#"Inserted Merged Column",{"Merged"})
in
    #"Removed Other Column
s"
Формула округление времени, Округление времени до часа от 15 минут
 
Формула
Код
=IF(MOD(A2;1)>=0,25;ROUNDUP(A2;0);ROUNDDOWN(A2;0))
Как перевести ячейки с цифрами в числовые значения ?, Есть ячейки с цифрами, но Эксель их не воспринимает как числа. Как это исправить ?
 
Можно и формулами. В моем варианте преобразует и четвёртый столбец.
Изменено: jakim - 22.08.2022 17:47:33
Как перевести ячейки с цифрами в числовые значения ?, Есть ячейки с цифрами, но Эксель их не воспринимает как числа. Как это исправить ?
 
Это не макрос, а Power Query, поэтому Вам необходимо только вводить данные и обновлять (Данные--Обновить всё).
Как перевести ячейки с цифрами в числовые значения ?, Есть ячейки с цифрами, но Эксель их не воспринимает как числа. Как это исправить ?
 
Power Query
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Split Column by Delimiter" = Table.SplitColumn(Source,"Средняя цена",Splitter.SplitTextByEachDelimiter({" "}, QuoteStyle.Csv, true),{"Средняя цена.1", "Средняя цена.2"}),
    #"Removed Columns" = Table.RemoveColumns(#"Split Column by Delimiter",{"Средняя цена.2"}),
    #"Replaced Value" = Table.ReplaceValue(#"Removed Columns"," ","",Replacer.ReplaceText,{"кол-во ордеров", "количество", "Средняя цена.1"}),
    #"Changed Type2" = Table.TransformColumnTypes(#"Replaced Value",{{"кол-во ордеров", type number}, {"количество", type number}, {"Средняя цена.1", type number}, {"Дата", type date}})
in
    #"Changed Type2"
Развернуть дату
 
Power Query
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Дата", type datetime}}),
    #"Split Column by Delimiter" = Table.SplitColumn(Table.TransformColumnTypes(#"Changed Type", {{"Дата", type text}}, "lt-LT"), "Дата", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), {"Дата.1", "Дата.2"}),
    #"Removed Columns" = Table.RemoveColumns(#"Split Column by Delimiter",{"Дата.2"}),
    #"Changed Type2" = Table.TransformColumnTypes(#"Removed Columns",{{"Column2", type date}, {"Дата.1", type date}})
in
    #"Changed Type2"
Изменено: jakim - 18.08.2022 12:30:16
Подсчет дублей по диапазону дат
 
Вариант
Код
=SUMPRODUCT((MONTH((B$2:B$85)-6)<=MONTH(B2))*(YEAR(B$2:B$85)>=YEAR(B2))*(A$2:A$85=A2))
Простановка номера в ячейке по условию, Автоматизация заполнения столбцов №п.п. и идентификационный номер
 
Формула
Код
=LEFT(20220000000;LEN(20220000000)-LEN(A4))&A4
Десятичное число в POWER QUERY, Некорректно применяется тип изменения к десятичным числам в POWER QUERY
 
Установите числовой формат в выгружноой таблице.
Изменено: jakim - 14.08.2022 13:32:05
Десятичное число в POWER QUERY, Некорректно применяется тип изменения к десятичным числам в POWER QUERY
 
Смотрите.
как в найти значение в таблице, если 1 условие по строке, и 2 условия по столбцам:одно равно, другое меньше или равно
 
Формула
Код
=INDEX(B3:U9;MATCH(B21;A3:A9;0);AGGREGATE(14;6;COLUMN(A:V)/(B2:U2=B22)/(B1:U1<=B20);1))
Выбрать уникальные значения из нескольких столбцов, Выбрать уникальные значения из нескольких столбцов
 
Power Query
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Table3"]}[Content],
    #"Added Custom" = Table.AddColumn(Source, "Custom", each 1),
    #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Added Custom", {"Custom"}, "Attribute", "Value"),
    #"Removed Columns" = Table.RemoveColumns(#"Unpivoted Other Columns",{"Custom", "Attribute"}),
    #"Removed Duplicates" = Table.Distinct(#"Removed Columns"),
    #"Filtered Rows" = Table.SelectRows(#"Removed Duplicates", each ([Value] <> ""))
in
    #"Filtered Rows"
Посчитать кол-во символов в диапазоне, Посчитать кол-во символов в диапазоне
 
Power Query
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Added Custom" = Table.AddColumn(Source, "Custom", each 1),
    #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Added Custom", {"Custom"}, "Attribute", "Value"),
    #"Replaced Value" = Table.ReplaceValue(#"Unpivoted Other Columns"," ","",Replacer.ReplaceText,{"Value"}),
    #"Calculated Text Length" = Table.TransformColumns(#"Replaced Value",{{"Value", Text.Length, Int64.Type}}),
    #"Removed Columns" = Table.RemoveColumns(#"Calculated Text Length",{"Attribute"}),
    #"Calculated Sum" = List.Sum(#"Removed Columns"[Value])
in
    #"Calculated Sum"
Замена если в если, когда превышено количество вложенных функций
 
Ещё одна формула без именованных диапазонов
Код
=IFERROR(AGGREGATE(15;6;COLUMN($A:$S)/(INDEX($H$3:$S$10;MATCH(A2;G$3:G$10;0);0)>=B2);1);12)
Изменено: jakim - 07.08.2022 18:40:04
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 62 След.
Наверх