-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Mutt
senior tag
válasz
ny.janos
#53237
üzenetére
Szia,
Tegnap küldtem hibajelentést a Microsoftnak, hogy Excel Power Query-ben nem műkődik jól a sorbarendezés ékezetes betűk esetén. Meglátjuk, hogy mikor lesz belőle vmi.
Amivel próbálkoztam és háthat segítség neked:
1. Power BI Desktop-ban jó a rendezés, M-kód teljesen azonos. Pár perc alatt megvagy ott vele.
2. Ha átmenetileg lecseréljük az ékezetes betűket az ékezetesmentes változatukkal és úgy rendezünk, akkor jobb eredményünk lesz, de ez sem tökéletes.
Ezt simán a GUI-val is meg lehet csinálni többlépéssel, de itt egy list-et tartalmazó változat.
Van két segédlistám, ABCIn és ABCOut tartalmazza az ékezetes betüket és azok ékezetmentes változatát. Az M-kódjuk:= {"á", "é", "í", "ó", "ö", "ő", "ú", "ü", "ű"}= {"a", "e", "i", "o", "o", "o", "u", "u", "u"}Az Excel lapról jön a lista, amihez egy új oszlopot adtam amelynek a képlete:
=Text.Combine(List.Transform(Text.ToList(Text.Lower([Nevek])),each try ABCOut{List.PositionOf(ABCIn, _)} otherwise _))
A képlet legelőször kisbetűsre alakítja az eredeti szöveget, majd betűnként felszabdalva listába teszi. Ezen a listán végigmegyünk és ott ahol ékezetes betűt találunk lecseréljük a megfelelőre, a többi értéket nem változtatjuk. A végén az egészet összefűzzük.Az új oszlop alapján sorbarendezünk, utána törölhető az oszlop.
A teljes M-kód:
let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Added Custom" = Table.AddColumn(Source, "Sorrendhez", each Text.Combine(
List.Transform(Text.ToList(Text.Lower([Nevek])),
each try ABCOut{List.PositionOf(ABCIn, _)} otherwise _)
)
),
#"Sorted Rows" = Table.Sort(#"Added Custom",{{"Sorrendhez", Order.Ascending}}),
#"Removed Columns" = Table.RemoveColumns(#"Sorted Rows",{"Sorrendhez"})
in
#"Removed Columns"üdv
Új hozzászólás Aktív témák
- Torrent meghívó kunyeráló
- CASIO órák kedvelők topicja!
- Megérkeztek a Xiaomi 15T sorozatának telefonjai Magyarországra
- Bambu Lab 3D nyomtatók
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- Autós topik
- sziku69: Fűzzük össze a szavakat :)
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Milyen notebookot vegyek?
- További aktív témák...
- GYÖNYÖRŰ iPhone 13 Pro 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3356
- Minden szoftver mellé teljesen audit és NIS2 biztos, jogilag hiteles licencigazolást adunk át!
- Eredeti Lenovo 300W töltők - ADL300SDC3A
- Xbox Series S 512 GB + kontroller 6 hó garancia, számlával!
- Bomba Ár! Lenovo ThinkPad L14 G2i - i5-1135G7 I 16GB I 256SSD I 14" FHD I Cam I W11 I Gar
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest
Fferi50
