-
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
- Sorozatok
- Nagyon nem szokványos módon ment tönkre egy ASML gép Kínában…
- Luck Dragon: Asszociációs játék. :)
- Android alkalmazások - szoftver kibeszélő topik
- Battlefield 6
- Autós topik
- Kerékpárosok, bringások ide!
- Brogyi: CTEK akkumulátor töltő és másolatai
- Poco F7 – bajnokesélyes
- Path of Exile (ARPG)
- További aktív témák...
- HIBÁTLAN iPhone 12 Mini 64GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3453
- LG 27GP850P-B - 27" NANO IPS - 2560x1440 - 180Hz 1ms - NVIDIA G-Sync - AMD FreeSync - HDR 400
- SanDisk Extreme Portable 8TB (SDSSDE61-8T00-G25)
- GYÖNYÖRŰ iPhone 12 Pro 256GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3438, 94% Akkumulátor
- Gamer PC-Számítógép! Csere-Beszámítás! R5 3600 / RX 5700 / 16GB DDR4 / 512GB SSD
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest

Fferi50
