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

• #3709 Delila_1 veterán Csontikka #3708

  Új Válasz 2008-07-07 15:39:53 #3709

  Ú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 Csontikka #3708 üzenetére

  Nem írtad, melyik oszlopban vannak az adataid.
  A makró az A oszlopban lévő adatokat tisztítja meg a feleslegtől, és a B oszlopba írja az eredményt.

  Sub Tisztítás()
  usor = Range("A65536").End(xlUp).Row 'Itt írd át az A-t, ha nem az A oszlop adatait ellenőrzöd
  For sor = 1 To usor
  név = Cells(sor, 1) 'Itt az 1-et az oszlopod sorszámára
  név = Right(név, Len(név) - 1)
  név = Left(név, Len(név) - 1)
  Cells(sor, 2) = név 'Itt azt az oszlop sorszámot a 2 helyett, ahova a tisztított adat kell
  k = 1
  Do While Mid(név, k, 1) = " "
  név = Right(név, Len(név) - 1)
  Cells(sor, 2) = név 'Itt is azt az oszlop sorszámot a 2 helyett, ahova a tisztított adat kell
  Loop
  k = Len(név)
  Do While Mid(név, k, 1) = " "
  név = Left(név, Len(név) - 1)
  Cells(sor, 2) = név 'Itt azt az oszlop sorszámot, ahova a tisztított adat kell
  k = k - 1
  Loop
  Next
  End Sub

  A tisztított adatot oda is írathatod, ahol jelenleg a !-es adataid vannak, de jobb máshova, és az eredetit utólag törlöd.

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