- Vivo X200 Pro - a kétszázát!
- Yettel topik
- Samsung Galaxy Watch7 - kötelező kör
- Android alkalmazások - szoftver kibeszélő topik
- Megérkezett a Google Pixel 7 és 7 Pro
- Honor Magic V5 - méret a kamera mögött
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Samsung Galaxy A56 - megbízható középszerűség
- Milyen okostelefont vegyek?
- Új Trónok Harca telefon érkezik
-
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
- Vivo X200 Pro - a kétszázát!
- Milyen videókártyát?
- Windows 10
- Építő/felújító topik
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Yettel topik
- Garmin Edge 1050 kerékpáros óra: mindenből a legtöbbet
- Vírusirtó topic
- A lemondást javasolja az Intel vezetőjének Donald Trump
- Alkoholista nevelde
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- PC Game Pass előfizetés
- Eladó Steam kulcsok kedvező áron!
- AKCIÓ! MSI B365M i5 8600 16GB DDR4 512GB SSD RX 5700XT 8GB CM MASTERBOX Q300L Zalman 600W
- Update 08.11. - Bomba árak 2025-ben is! Üzleti - Consumer laptopok DELL FUJITSU HP LENOVO
- Panasonic TX-L47E5Y 47" LED TV eladó
- Telefon felvásárlás!! Samsung Galaxy A13/Samsung Galaxy A33/Samsung Galaxy A53
- Medion Erazer Beast X40-hez vízhűtés (MD 60961)
Állásajánlatok
Cég: FOTC
Város: Budapest