- HTPC (házimozi PC) topik
- Sony MILC fényképezőgépcsalád
- Autós kamerák
- Projektor topic
- Milyen monitort vegyek?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Intel Core i3 / i5 / i7 / i9 10xxx "Comet Lake" és i3 / i5 / i7 / i9 11xxx "Rocket Lake" (LGA1200)
- Milyen házat vegyek?
- Azonnali informatikai kérdések órája
- 3D nyomtatás
Hirdetés
-
Retro Kocka Kuckó 2024
lo Megint eltelt egy esztendő, ezért mögyünk retrokockulni Vásárhelyre! Gyere velünk gyereknapon!
-
Kibővítik a várost az ASML kedvéért
it Eindhoven városi tanácsa az ASML-féle bővítés mellett szavazott. Alaposan megváltozhat a lakók élete.
-
Már elstartolt az AMD nyári játékpromóciója
ph Ezúttal a Navi 32 XL és XT GPU-val szerelt videokártyákhoz kaphatunk két, tavaly megjelent programot, amiket egy négyes listából válogathatunk ki.
-
PROHARDVER!
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
Topikgazda
válasz Teejay83 #39033 üzenetére
Ha csak 1 ilyen sorod van, az Adatok | Szövegből oszlopok menüponttal egymás mellé írathatod az egyes tagokat, majd a másolás, irányított beillesztés, transzformálva menüponttal egymás alá rendezheted a szétválasztott adatokat.
Több sornál futtathatod a lenti makrót.
Sub trans()
Dim sor As Long, usor As Long, ide As Long
Dim szoveg As String, hossz As Integer
usor = Range("A" & Rows.Count).End(xlUp).Row
ide = 1
For sor = 1 To usor
szoveg = Cells(sor, 1)
Do While InStr(szoveg, ",") > 0
hossz = InStr(szoveg, ",")
Cells(ide, "B") = Left(szoveg, hossz - 1)
szoveg = Mid(szoveg, hossz + 1, 100)
ide = ide + 1
Loop
Cells(ide, "B") = szoveg
ide = ide + 1
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Eladó Steam kulcsok kedvező áron!