- Kaspersky Antivirus és Internet Security Fórum
- Windows 11
- Cisco vizsgák (CCNA, CCNP, CCIE)
- Hamarosan elképesztő mennyiségű áramot fogyasztanak el az adatközpontok és az AI
- Milyen routert?
- Otthoni hálózat és internet megosztás
- Synology NAS
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Mozilla Firefox
- Adobe Photoshop
-
IT café
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
-
lcdtv
aktív tag
válasz Delila_1 #38032 üzenetére
Igen azt néztem de az egymás mellé oszlopokba teszi, nekem meg egymás alá kellene. Találtam egy megoldást lehet másnak is jó lehet
Sub ChickatAH()
Dim rng As Range, Lstrw As Long, c As Range
Dim SpltRng As Range
Dim i As Integer
Dim Orig As Variant
Dim txt As String
Lstrw = Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Range("A2:A" & Lstrw)
For Each c In rng.Cells
Set SpltRng = c.Offset(, 1)
txt = SpltRng.Value
Orig = Split(txt, " ")
For i = 0 To UBound(Orig)
Cells(Rows.Count, "D").End(xlUp).Offset(1) = c
Cells(Rows.Count, "D").End(xlUp).Offset(, 1) = Orig(i)
Next i
Next c
End Sub
csak egy hiányzik hogy külön fülre tegye az eredményt.
Új hozzászólás Aktív témák
- A Z Flip6 jókora, a Galaxy Ring parányi akkumulátort kap
- Politika
- AMD GPU-k jövője - amit tudni vélünk
- Samsung Galaxy Z Fold3 5G - foldi evolúció
- Asztalos klub
- Assetto Corsa Competizione
- Kínai, és egyéb olcsó órák topikja
- Kaspersky Antivirus és Internet Security Fórum
- Kerékpárosok, bringások ide!
- LG LCD és LED TV-k
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen