Új hozzászólás Aktív témák

• #38306 Delila_1 veterán ztoldy #38305

  Új Válasz 2018-06-11 10:35:11 #38306

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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