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

• #27603 azopi74 addikt Carasc0 #27601

  Új Válasz 2015-07-04 07:39:35 #27603

  Ú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

  

  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