-
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
- Ritkaság! Kékséges Nothing Phone 3A 12GB/256GB - 1 év garancia
- Új Kipsta agility 100 focicipő (43-as)
- Kezdő Gamer PC-Számítógép! Csere-Beszámítás! I7 6700 / 16GB DDR4 / GTX 1650 Super / 500 SSD
- 5G Lenovo ThinkPad P14s Gen 3 Intel Core i7-1280P Nvidia T550 32GB 512GB 1 év teljeskörű garancia
- Samsung Galaxy A33 5G / 6/128GB / Kártyafüggetlen / 12Hó Garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50