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

• #3710 Delila_1 veterán Csontikka #3708

  Új Válasz 2008-07-07 16:12:52 #3710

  Ú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

  Ugyanazt csinálja mint az előbb, csak kicsit kevesebb sorban leírva:

  Sub Tisztítás()
  usor = Range("A65536").End(xlUp).Row 'változtatás, ha nem A oszlopban van az adat
  For sor = 1 To usor
  név = Cells(sor, 1) 'változtatás, ha nem A oszlopban van az adat
  Do While Mid(név, 1, 1) = " " Or Mid(név, 1, 1) = "!"
  név = Right(név, Len(név) - 1)
  Loop
  k = Len(név)
  Do While Mid(név, k, 1) = " " Or Mid(név, k, 1) = "!"
  név = Left(név, Len(név) - 1)
  k = k - 1
  Loop
  Cells(sor, 2) = név 'változtatás, ha nem B oszlopba kell írni a kigyomlált adatot
  Next
  End Sub

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