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

• #29031 Fferi50 Topikgazda m.zmrzlina #29030

  Új Válasz 2015-10-13 19:37:11 #29031

  Ú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

  

  Fferi50

  Topikgazda

  válasz m.zmrzlina #29030 üzenetére

  Szia!

  Én megfordítanám a dolgot. Az utolsó sortól mennék felfelé addig amíg számot nem találok az adott cellában, ha nem szám van, akkor törölném a sort.
  Sub torolo()
  Dim usor As Long, xx As Long
  usor = Cells(Rows.Count, 1).End(xlUp).Row
  For xx = usor To 1 Step -1
  If IsNumeric(Cells(xx, 1)) Then Exit For
  Rows(xx).EntireRow.Delete
  Next
  End Sub

  Valószínűleg kevesebb a szemét, mint az értékes sor

  (A select- eket pedig próbáld meg elfelejteni.)

  Üdv.

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