Hirdetés
- Dobja a némítókapcsolót a OnePlus
- Google Pixel topik
- OneSport OT07 - szevasztok, hollandok!
- Google Pixel 8 Pro - mestersége(s) az intelligencia
- Stabil pályára állt az Android 16
- Apple iPhone 16 Pro - rutinvizsga
- Redmi Note 11 és 11S - biztos alapra jobb építeni
- Szívós, szép és kitartó az új OnePlus óra
- Kapcsolja ki, kapcsolja be!
- Poco X6 Pro - ötös alá
-
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
ztoldy #38305 üzenetére
A
Range("D" & sor & ":E" & sor).MergeCells = True
sor fölé írd be:
Cells(sor, "D") = Cells(sor, "D") & " " & Cells(sor, "E")
Ha az összefűzés után nincs szükséged az E oszlop tartalmára, akkor
Sub Osszevonas()
Dim sor As Long
Application.DisplayAlerts = False
Application.ScreenUpdating = False
sor = 2
Do While Cells(sor, "D") <> ""
Cells(sor, "D") = Cells(sor, "D") & " " & Cells(sor, "E")
Cells(sor, "E") = ""
sor = sor + 1
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Új hozzászólás Aktív témák
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest