-
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
-
Delila_1
veterán
válasz
lacko81
#3377
üzenetére
Tegnap a D oszlopba került az utca és a házszám.
Van itt egy kis makró, ami az E oszlopba írja az utcát, az F-be a házszámot.Sub hazszam()
sor = 1
Do While Cells(sor, 4) <> ""
nev = Cells(sor, 4)
For b = Len(nev) To 1 Step -1
If Mid(nev, b, 1) = Chr(32) Then
Cells(sor, 5) = Left(nev, b - 1)
Cells(sor, 6) = Right(nev, Len(nev) - b)
Exit For
End If
Next
sor = sor + 1
Loop
End Sub -
Gh0sT
addikt
válasz
lacko81
#3371
üzenetére
Ez már egy kicsit okosabb, többféle címformátumot is kezel.
=HA(HIBÁS(SZÖVEG.KERES(" ";A1));A1;HA(HIBÁS(JOBB(A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1;SZÖVEG.KERES(" ";A1)+1)));JOBB(A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1;SZÖVEG.KERES(" ";A1)));HA(HIBÁS(SZÖVEG.KERES(" ";JOBB(A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1;SZÖVEG.KERES(" ";A1)+1))));JOBB(A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1;SZÖVEG.KERES(" ";A1)+1));JOBB(A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1))))))
MOD: remélem látszik az egész, én tudom scrollozni a teljes kódot.
-
Delila_1
veterán
válasz
lacko81
#3366
üzenetére
Adatok szétszedése:
Vegyük, hogy A1-ben van a címed.B1-> =bal(a1;4)
C1-> =közép(a1;5;szöveg.talál(" ";a1;6)-5)
D1-> =jobb(a1;hossz(a1)-szöveg.talál(" ";a1;6))Ezeket végigmásolod, utána érdemes a B
oszlopokat másolni, és ugyanoda irányítottan az értékeket beilleszteni.Adatok összemásolása:
=A1&" "&B1&" "&C1... stb.
Új hozzászólás Aktív témák
- A fociról könnyedén, egy baráti társaságban
- Lexus, Toyota topik
- sziku69: Szólánc.
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Google Pixel 9 Pro XL - hét szűk esztendő
- Alkoholista nevelde
- Motoros topic
- Spórolós topik
- sziku69: Fűzzük össze a szavakat :)
- WoW avagy World of Warcraft -=MMORPG=-
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Eladó Steam kulcsok kedvező áron!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- AKCIÓ! Apple Studio Display 27 5K Nanotexturált üveg monitor garanciával hibátlan működéssel
- Astro A50 4th Gen wireless + base station fejhallgató
- Lenovo ThinkPad P14s Gen 1 i7-10510U 32GB 1000GB Nvidia Quadro P520 14" FHD Gar.: 1 év
- GYÖNYÖRŰ iPhone 13 128GB Midnight - 1 ÉV GARANCIA -Kártyafüggetlen, MS4250, 100% Akksi
- Eladó egy oneplus 9 pro 256/12
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest

oszlopokat másolni, és ugyanoda irányítottan az értékeket beilleszteni.
Fferi50
