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

• #15369 Delila_1 veterán Sziszmisz #15367

  Új Válasz 2012-11-01 21:01:41 #15369

  Ú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 Sziszmisz #15367 üzenetére

  Egy rövid makróval megoldhatod.

  Sub Szetvalaszt()
  Dim sor%, szin$, vesszo%
  sor% = 2
  Do While Cells(sor%, 1) > ""
  szin$ = Cells(sor%, 4)
  vesszo = InStr(szin$, ",")
  If vesszo Then
  Range("A" & sor% + 1).EntireRow.Insert
  Range(Cells(sor%, 1), Cells(sor%, 3)).Copy Cells(sor% + 1, 1)
  Cells(sor%, 4) = Left(szin$, vesszo - 1)
  Cells(sor% + 1, 4) = Right(szin$, Len(szin$) - vesszo - 1)
  End If
  sor% = sor% + 1
  Loop
  End Sub

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