Új hozzászólás Aktív témák

• #53390 Mutt senior tag szürke #53373

  Új Válasz 2024-10-09 16:00:03 #53390

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz szürke #53373 üzenetére

  Szia,

  Delila adott egy makrót, ami az előfordulásokat listázza az összegzés munkalapra.
  Hasonlót lehet Power Query-vel is csinálni, de vannak megkötések:
  1. Előbb mented kell a fájlt, a nem mentett adatokat nem fogja látni (kivétel ha a fájlban táblázatokban vannak az adatok).
  2. A lekérdezést kézzel kell frissíteni (lehet automatikus frissítést is beállítani adott percenként).
  3. Nem fog szinezni, csak a listát adja vissza.
  
  A teljes M-kód:
  let
    Forrás = Excel.Workbook(File.Contents("C:\Users\szila\OneDrive\Desktop\53373.xlsm"), null, true),
    #"Sorok szűrve" = Table.SelectRows(Forrás, each [Kind] = "Sheet" and [Item] <> "Összegzés"),
    #"Egyéni oszlop hozzáadva" = Table.AddColumn(#"Sorok szűrve", "Adatok", each Table.AddIndexColumn([Data], "Sor", 1, 1)),
    #"Többi oszlop eltávolítva" = Table.SelectColumns(#"Egyéni oszlop hozzáadva",{"Name", "Adatok"}),
    Fejlécek = Table.ColumnNames(Table.Combine(#"Többi oszlop eltávolítva"[Adatok])),
    ÚjFejlécek = List.Transform(Fejlécek, each Text.Replace(_, "Column", "")),
    #"Kibontott Adatok" = Table.ExpandTableColumn(#"Többi oszlop eltávolítva", "Adatok", Fejlécek, ÚjFejlécek),
    #"Oszlopok egyesítve" = Table.CombineColumns(Table.TransformColumnTypes(#"Kibontott Adatok", {{"Sor", type text}}, "hu-HU"),{"Name", "Sor"},Combiner.CombineTextByDelimiter(":Sor", QuoteStyle.None),"CellaID"),
    #"Többi oszlop elemi értékekre bontva" = Table.UnpivotOtherColumns(#"Oszlopok egyesítve", {"CellaID"}, "Oszlop", "Érték"),
    #"Egyéni oszlop hozzáadva2" = Table.AddColumn(#"Többi oszlop elemi értékekre bontva", "FormázottÉrték", each try Text.Lower(Text.Clean(Text.Trim([Érték]))) otherwise [Érték]),
    #"Oszlopok egyesítve1" = Table.CombineColumns(#"Egyéni oszlop hozzáadva2",{"CellaID", "Oszlop"},Combiner.CombineTextByDelimiter(":Oszlop", QuoteStyle.None),"Cella"),
    #"Sorok csoportosítva" = Table.Group(#"Oszlopok egyesítve1", {"FormázottÉrték"}, {{"Előfordulás", each Table.RowCount(_), Int64.Type}, {"Adatok", each _, type table [Cella=text, Érték=text]}}),
    #"Sorok rendezve" = Table.Sort(#"Sorok csoportosítva",{{"Előfordulás", Order.Descending}}),
    #"Egyéni oszlop hozzáadva1" = Table.AddColumn(#"Sorok rendezve", "Hely", each Text.Combine([Adatok][Cella], ", "), type text)
in
    #"Egyéni oszlop hozzáadva1"

  Ahol a fájl elérhetőségét a Forrás sorban meg kell adnod. Legegyszerűbb a PQ szerkesztőben a Kezdőlap -> Adatforrás beállításai alatt.

  A kis és nagybetűket azonosnak vettem, ha ez nem kell akkor a "Sorok csoportosítva" sorban a "FormázottÉrtéket" cseréld le "Érték"-re.

  üdv

Új hozzászólás Aktív témák