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

  • azopi74

    addikt

    válasz Carasc0 #27601 üzenetére

    Bár írtad, hogy Excel 2010, azért beteszek egy Excel 2016-os, makró mentes megoldást is , mert imádom :)
    (Excel 2010-ben is működőképes, csak fel kell tenned a PowerQuery add-in-t.)

    ALakítsd táblává (Table1) a forrás oszlopot. és B1-be szúrd be ezt a query-t (Advanced Editor):

    let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],

    #"Added Custom" = Table.AddColumn(Source, "Custom", each List.Random(1)),
    #"Expanded Custom" = Table.ExpandListColumn(#"Added Custom", "Custom"),
    #"Sorted Rows" = Table.Sort(#"Expanded Custom",{{"Custom", Order.Ascending}}),
    #"Removed Columns" = Table.RemoveColumns(#"Sorted Rows",{"Custom"})
    in
    #"Removed Columns"

    Természetesen a fenti a sima query editorban előállítható négy egérkattintással ;)

    [link]

    Ja, azt elfelejtettem írni: refresh-re kalkulálja újra a kevert oszlopot. (jobb egér - refresh, vagy magyarban frissítés)

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