Hirdetés
- Luck Dragon: Asszociációs játék. :)
- Szevam: Csányi Vilmos - Az elveszett ember
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- potyautas: Idővándor
- Brogyi: CTEK akkumulátor töltő és másolatai
- laskr99: DFI és DFI Lanparty gyűjteményem
- sziku69: Szólánc.
- sellerbuyer: Az RGB LED TV leváltja az OLED-et?
- sziku69: Fűzzük össze a szavakat :)
- GoodSpeed: Pillangóhatás: F billentyű meghibásodása -új gamer számítógépasztal
-
LOGOUT
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
gborisz #53117 üzenetére
Szia,
Power Query-hez az M-kód ennyi:
let
Forrás = Csv.Document(File.Contents("D:\a.txt"),[Delimiter="#(tab)", Columns=4, Encoding=1250, QuoteStyle=QuoteStyle.None]),
#"Típus módosítva" = Table.TransformColumnTypes(Forrás,{{"Column1", Int64.Type}, {"Column2", type number}, {"Column3", type number}, {"Column4", type number}}),
#"Oszlopok átnevezve" = Table.RenameColumns(#"Típus módosítva",{{"Column1", "Pontszám"}, {"Column2", "Koord1"}, {"Column3", "Koord2"}, {"Column4", "Magasság"}})
in
#"Oszlopok átnevezve"Az első sorban látható hogy a D: meghajtóról olvassa be az a.txt-t ezt kell átirni a kódban (újabb PQ változatokban ezt máshogy is lehet módosítani.
A munkafüzetben egy új lapot hoz létre az adatokkal (esetemben az új lap neve "a"), amiket az INDEX függvénnyel lehet a végső munkalap celláiba írni.
A2-ben a képlet:
=INDEX(a!$A:$A;SOR())
C2-ben=INDEX(a!$B:$B;SOR())
és igy tovább.A 12-es sortól pedig jönnek a lehetséges többi adatok.
A12-ben a képlet:=HA(SOR()-6>DARAB2(a!$A:$A);"";INDEX(a!$A:$A;SOR()-6))
Itt figyeljük, hogy van-e a másik lapon még adat és az elcsúszott sorszámot is módosítjuk.
A képletek lemásoljuk az első száz sorig és meg is van.Ha van új adat, akkor az a.txt fájlt felülírjuk és a Power Query menüben található frissítést megnyomjuk.
üdv
Új hozzászólás Aktív témák
- ROG Xbox Ally X: Összefogás
- Total Commander
- Apple iPhone 17 - alap
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- A Vivo bemutatta az OriginOS 6-ot, ezekre a telefonokra lesz telepíthető
- PlayStation 4
- PlayStation 5
- Anglia - élmények, tapasztalatok
- AI-ra cserélte a concierge szolgáltatást a Vertu
- Robotporszívók
- További aktív témák...
- HP TPN-C125 15.6" Asztali laptop, Ezüst/Fekete színű - CSAK TÁPRÓL MŰKÖDIK
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Gamer PC-Számítógép! Csere-Beszámítás! R7 2700X / GTX 1080Ti / 16GB DDR4 / 512 SSD!
- Gamer PC-Számítógép! Csere-Beszámítás! R5 5500 / RTX 3060 12GB / 32GB DDR4 / 500GB SSD!
- LG 38WN95C - 38" Ívelt NANO IPS - 3840x1600 - 144hz 1ms - Nvidia G-Sync - AMD FreeSync - ThunderBolt
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő