китин
Дата: Пятница, 27.01.2023, 10:55 |
Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 7029
Репутация:
1078
±
Замечаний:
0% ±
Excel 2007;2010;2016
Я побаловался. PQ всемогущий
[vba]
Код
let Источник = Excel.Workbook(File.Contents("C:\Users\i.rakitin\Downloads\8675997.xlsx"), null, true), #"таблица работника_Sheet" = Источник{[Item="таблица работника",Kind="Sheet"]}[Data], #"Измененный тип" = Table.TransformColumnTypes(#"таблица работника_Sheet",{{"Column1", type text}, {"Column2", type text}}), #"Повышенные заголовки" = Table.PromoteHeaders(#"Измененный тип", [PromoteAllScalars=true]), #"Измененный тип1" = Table.TransformColumnTypes(#"Повышенные заголовки",{{"На сборку", type text}, {"Доступно", type text}}), #"Удаленные нижние строки" = Table.RemoveLastN(#"Измененный тип1",1), #"Измененный тип2" = Table.TransformColumnTypes(#"Удаленные нижние строки",{{"Доступно", Int64.Type}}), #"Добавлен пользовательский объект" = Table.AddColumn(#"Измененный тип2", "код цехха", each Text.Remove([На сборку], {"$", " ", "/", "А".."я", "A".."z"})), #"Переупорядоченные столбцы" = Table.ReorderColumns(#"Добавлен пользовательский объект",{"код цехха", "На сборку", "Доступно"}), #"Переименованные столбцы" = Table.RenameColumns(#"Переупорядоченные столбцы",{{"код цехха", "код цеха"}}), #"Удаленные столбцы" = Table.RemoveColumns(#"Переименованные столбцы",{"Доступно"}), #"Обрезанный текст" = Table.TransformColumns(#"Удаленные столбцы",{{"код цеха", Text.Trim, type text}}), #"Объединенные запросы" = Table.NestedJoin(#"Обрезанный текст", {"код цеха"}, #"данные склада", {"код"}, "данные склада", JoinKind.LeftOuter), #"Развернутый элемент данные склада" = Table.ExpandTableColumn(#"Объединенные запросы", "данные склада", {"кол-во"}, {"кол-во"}), #"Добавлен пользовательский объект1" = Table.AddColumn(#"Развернутый элемент данные склада", "количество", each if [#"кол-во"]=null then "Нет на складе" else [#"кол-во"]), #"Удаленные столбцы1" = Table.RemoveColumns(#"Добавлен пользовательский объект1",{"кол-во", "код цеха", "На сборку"}) in #"Удаленные столбцы1
[/vba]
Я побаловался. PQ всемогущий
[vba]
Код
let Источник = Excel.Workbook(File.Contents("C:\Users\i.rakitin\Downloads\8675997.xlsx"), null, true), #"таблица работника_Sheet" = Источник{[Item="таблица работника",Kind="Sheet"]}[Data], #"Измененный тип" = Table.TransformColumnTypes(#"таблица работника_Sheet",{{"Column1", type text}, {"Column2", type text}}), #"Повышенные заголовки" = Table.PromoteHeaders(#"Измененный тип", [PromoteAllScalars=true]), #"Измененный тип1" = Table.TransformColumnTypes(#"Повышенные заголовки",{{"На сборку", type text}, {"Доступно", type text}}), #"Удаленные нижние строки" = Table.RemoveLastN(#"Измененный тип1",1), #"Измененный тип2" = Table.TransformColumnTypes(#"Удаленные нижние строки",{{"Доступно", Int64.Type}}), #"Добавлен пользовательский объект" = Table.AddColumn(#"Измененный тип2", "код цехха", each Text.Remove([На сборку], {"$", " ", "/", "А".."я", "A".."z"})), #"Переупорядоченные столбцы" = Table.ReorderColumns(#"Добавлен пользовательский объект",{"код цехха", "На сборку", "Доступно"}), #"Переименованные столбцы" = Table.RenameColumns(#"Переупорядоченные столбцы",{{"код цехха", "код цеха"}}), #"Удаленные столбцы" = Table.RemoveColumns(#"Переименованные столбцы",{"Доступно"}), #"Обрезанный текст" = Table.TransformColumns(#"Удаленные столбцы",{{"код цеха", Text.Trim, type text}}), #"Объединенные запросы" = Table.NestedJoin(#"Обрезанный текст", {"код цеха"}, #"данные склада", {"код"}, "данные склада", JoinKind.LeftOuter), #"Развернутый элемент данные склада" = Table.ExpandTableColumn(#"Объединенные запросы", "данные склада", {"кол-во"}, {"кол-во"}), #"Добавлен пользовательский объект1" = Table.AddColumn(#"Развернутый элемент данные склада", "количество", each if [#"кол-во"]=null then "Нет на складе" else [#"кол-во"]), #"Удаленные столбцы1" = Table.RemoveColumns(#"Добавлен пользовательский объект1",{"кол-во", "код цеха", "На сборку"}) in #"Удаленные столбцы1
[/vba]
китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение Я побаловался. PQ всемогущий
[vba]
Код
let Источник = Excel.Workbook(File.Contents("C:\Users\i.rakitin\Downloads\8675997.xlsx"), null, true), #"таблица работника_Sheet" = Источник{[Item="таблица работника",Kind="Sheet"]}[Data], #"Измененный тип" = Table.TransformColumnTypes(#"таблица работника_Sheet",{{"Column1", type text}, {"Column2", type text}}), #"Повышенные заголовки" = Table.PromoteHeaders(#"Измененный тип", [PromoteAllScalars=true]), #"Измененный тип1" = Table.TransformColumnTypes(#"Повышенные заголовки",{{"На сборку", type text}, {"Доступно", type text}}), #"Удаленные нижние строки" = Table.RemoveLastN(#"Измененный тип1",1), #"Измененный тип2" = Table.TransformColumnTypes(#"Удаленные нижние строки",{{"Доступно", Int64.Type}}), #"Добавлен пользовательский объект" = Table.AddColumn(#"Измененный тип2", "код цехха", each Text.Remove([На сборку], {"$", " ", "/", "А".."я", "A".."z"})), #"Переупорядоченные столбцы" = Table.ReorderColumns(#"Добавлен пользовательский объект",{"код цехха", "На сборку", "Доступно"}), #"Переименованные столбцы" = Table.RenameColumns(#"Переупорядоченные столбцы",{{"код цехха", "код цеха"}}), #"Удаленные столбцы" = Table.RemoveColumns(#"Переименованные столбцы",{"Доступно"}), #"Обрезанный текст" = Table.TransformColumns(#"Удаленные столбцы",{{"код цеха", Text.Trim, type text}}), #"Объединенные запросы" = Table.NestedJoin(#"Обрезанный текст", {"код цеха"}, #"данные склада", {"код"}, "данные склада", JoinKind.LeftOuter), #"Развернутый элемент данные склада" = Table.ExpandTableColumn(#"Объединенные запросы", "данные склада", {"кол-во"}, {"кол-во"}), #"Добавлен пользовательский объект1" = Table.AddColumn(#"Развернутый элемент данные склада", "количество", each if [#"кол-во"]=null then "Нет на складе" else [#"кол-во"]), #"Удаленные столбцы1" = Table.RemoveColumns(#"Добавлен пользовательский объект1",{"кол-во", "код цеха", "На сборку"}) in #"Удаленные столбцы1
[/vba]
Автор - китин Дата добавления - 27.01.2023 в 10:55