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

• #16086 Delila_1 veterán BenJoe80 #16081

  Új Válasz 2013-01-10 08:47:10 #16086

  Ú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 BenJoe80 #16081 üzenetére

  A makró az A oszlopod összevont celláit szedi kétfelé. Az Alt+Enterrel egymás alá bevitt két adatot az összevonás első, és második sorába írja.

  Sub Szetvalaszt()
  Dim sor As Integer, usor As Integer, WF As WorksheetFunction
  Dim kezd$, veg$
  Set WF = Application.WorksheetFunction
  usor = Cells(Rows.Count, "A").End(xlUp).Row
  For sor = usor To 2 Step -2
  If WF.Search(Chr(10), Cells(sor, "A")) Then
  kezd$ = Left(Cells(sor, "A"), WF.Search(Chr(10), Cells(sor, "A")) - 1)
  veg$ = Right(Cells(sor, "A"), Len(Cells(sor, "A")) - WF.Search(Chr(10), Cells(sor, "A")))
  Range(Cells(sor, "A"), Cells(sor + 1, "A")).UnMerge
  Cells(sor, "A") = kezd$: Cells(sor + 1, "A") = veg$
  End If
  Next
  End Sub

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