- Samsung Galaxy S20 és S20+ duplateszt
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- iPhone topik
- Motorola Razr 60 Ultra - ez a kagyló könnyen megfő
- Nem lett arányos a fogyókúra
- Xiaomi 14T - nem baj, hogy nem Pro
- Apple iPhone 16 Pro - rutinvizsga
- Az Oppo Find X8 Ultra lett a legvékonyabb kameramobil
- Apple Watch
- Honor Magic7 Pro - kifinomult, költséges képalkotás
-
Mobilarena
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
Hirdetés
- A fociról könnyedén, egy baráti társaságban
- PlayStation 5
- Autós topik
- Samsung Galaxy S20 és S20+ duplateszt
- Óvodások homokozója
- Kevesebb dolgozó kell az Amazonnak, AI veszi át a rutinfeladatokat
- Radeon RX 9060 XT: Ezt aztán jól meghúzták
- Melyik tápegységet vegyem?
- Linux kezdőknek
- Synology NAS
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Sea of Thieves Premium Edition és Egyéb Játékkulcsok.
- Assassin's Creed Shadows Collector's Edition PC
- Bomba ár! Lenovo ThinkPad X390: i5-G8 I 16GB I 256GB SSD I 13,3" FHD Touch I Cam I W11 I Gari!
- Amazon Kindle 10th Generation ébresztős tok
- REFURBISHED és ÚJ - HP Thunderbolt Dock G2 230W docking station (3TR87AA)
- 12.000 ft tól elvihető ELITRO Bankmentes , kamatmentes vásárlás .Cooler Master GM2711S Monitor
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9800X3D 32/64GB RAM RX 9070 XT 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged