-
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
-
Nowitzki
csendes tag
válasz
Kalandor
#31181
üzenetére
Mindenféle utómunka nélkül szerintem sem lehetséges szétválasztani a szöveget (csak ha tabulátorral vannak elválasztva az egyes értékek). Szerintem a legegyszerűbb ha a fenti makrót bemásolod a "PERSONAL.XLSB" fájlba és akkor az összes excel fájlban működni fog egy klikkre.
-
föccer
nagyúr
válasz
Kalandor
#31181
üzenetére
Az excel magától nem fogja tudni, hogy a beszúrandó szöveget szét kell szednie-e vagy sem. Az adat importtal tudod utasítani erre.
Ha mindenképpen csak beszúrással akarod rendezni a dolgot, akkor vagy makrót kell mögő tenni, vagy szöveg tördelő függvénnyel kell szétszedned a beszúrt szöveget. Szerintem mind a kettő bonyolultabb, mint exportálni.
A függvényeset össze3dobtam neked, átküldöm e-mailen.
-
Nowitzki
csendes tag
válasz
Kalandor
#31179
üzenetére
Importálás nélkül tabulátorral kell elválasztva lenniük az értékeknek hogy másolás-beillesztéskor külön cellába kerüljenek az értékek. Minden más esetben csak importálással működik, vagy beillesztés után "text to columns", mindkettőre lehet makrót írni. Például ha ezzel "¿" legyen elálasztva akkor csak bemásolod az "A1" cellába a "¿"-vel elválasztott értékeket (pl.: adat1¿adat2¿adat3¿adat4¿adat5) és futtatod ezt:
Sub Macro1()
Range("A1").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Other:=True, OtherChar:="¿"
End Sub
akkor szétszedi cellákba. -
Új hozzászólás Aktív témák
Fferi50- AliExpress tapasztalatok
- Autós topik
- Android programozás, Android alkalmazások készítése
- iPhone topik
- Második villámcsapás: teszteltük a ROG Raikiri II Xbox kontrollert
- Milyen külső akkumulátort mobileszközökhöz?
- gban: Ingyen kellene, de tegnapra
- BestBuy topik
- Formula-1
- Eredeti játékok OFF topik
- További aktív témák...
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- PC Game Pass előfizetés
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Dell Pro Plus 14 Core Ultra 5 238V 32GB 512GB FHD+ TouchScreen ProSupport Plus gar: 2028.10.07
- GYÁRI TÖLTŐK Macbook Magsafe 1 és 2 Budapest,/MPL/Foxpost
- Dell Precision 5530 15,6" UHD touch, i7 8850H, 16GB RAM, 4GB VGA, 512GB SSD, jó akku, számla, gar
- Bomba ár! Lenovo ThinkPad X280 - i7-8550U I 16GB I 512SSD I 12,5" I HDMI I Cam I W11 I Gari!
- Fujitsu LifeBook 7U14A2 netbook / 12 hónap jótállás
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest