Страницы: 1
RSS
Строки в столбец "пришить", PQ?
 
Добрый день, дорогие форумчане!

Помогите пожалуйста мне сделать это как-нибудь, пока что из идей только как-то через PowerQuery побаловаться, но скилла не хватает...
 
Код
let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица13"]}[Content],
    #"Замененное значение" = Table.ReplaceValue(Источник,null,"пустое значение",Replacer.ReplaceValue,{"представитель клиента по типу 22"}),
    #"Другие столбцы с отмененным свертыванием" = Table.UnpivotOtherColumns(#"Замененное значение", {"номер клиента", "наименование клиента"}, "Атрибут", "Значение"),
    #"Замененное значение1" = Table.ReplaceValue(#"Другие столбцы с отмененным свертыванием","пустое значение",null,Replacer.ReplaceValue,{"Значение"})
in
    #"Замененное значение1"
 
mechanix 85, есть, кстати, функция (не моя :) ) для анпивота с сохранением null:
Код
 * instead.
 * 
 * @categories table, pivot
 * @author https://github.com/ImkeF
 * @source https://github.com/ImkeF/M
 * @license MIT (c) 2017 Imke Feldmann
 * @version 2021-02-09-1
 */
let
  func = (Table_ as table, Columns as list, optional Others as any) =>
    let
      NonSelectedColumns = List.Difference(Table.ColumnNames(Table_), Columns),
      Unpivot = if Others <> null then NonSelectedColumns else Columns,
      AddColumn = Table.AddColumn(
        Table_,
        "Custom",
        each Record.ToTable(Record.SelectFields(_, Unpivot))
      ),
      Cleanup = Table.RemoveColumns(AddColumn, Unpivot),
      Expand = Table.ExpandTableColumn(Cleanup, "Custom", {"Name", "Value"}, {"Name", "Value"})
    in
      Expand,
  documentation = [
    Documentation.Name = " Table.UnpivotKeepNulls#(cr,lf)",
    Documentation.Description
      = " Unpivots columns (or optional other columns) while keeping empty fields (with null). #(cr,lf)",
    Documentation.LongDescription
      = " Unpivots columns (or optional other columns) while keeping empty fields (with null). Any entry to the 3rd parameter will set to ""Unpivot Other Columns"" instead. #(cr,lf)",
    Documentation.Category = " Table Transformation#(cr,lf)",
    Documentation.Source = " local#(cr,lf)",
    Documentation.Author = " Imke Feldmann: www.TheBIccountant.com .#(cr,lf)",
    Documentation.Examples = {[Description = " #(cr,lf)", Code = " #(cr,lf) ", Result = " #(cr,lf)"]}
  ]
in
  Value.ReplaceType(func, Value.ReplaceMetadata(Value.Type(func), documentation))
Страницы: 1
Наверх