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

• #29443 Polllen félisten

  Új Válasz 2015-11-10 09:36:40 #29443

  Ú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

  

  Polllen

  félisten

  Sziasztok!

  Kellene egy kis segítség.

  Van egy ~16.000 soros táblázat, amiből ki kellene törölnöm azokat a sorokat, ahol a 4. oszlopban "#N/A" szerepel. A cellák tartalma különböző.

  Kipróbáltam ezt, de borzasztóan lassú:
  Range("A1").Select
  Selection.End(xlDown).Select
  lRow = ActiveCell.Row
  Do While lRow >= 1
  If Cells(lRow, 4).Text = "#N/A" Then Rows(lRow).EntireRow.Delete
  lRow = lRow - 1
  Loop

  Nem tudtok valami gyorsabb módszert?

  B tervnek az jutott eszembe, miközben ezt leírtam, hogy úgy rendezem a táblázatot, hogy az összes "#N/A" sor kerüljön előre, ezután kap egy filter-t és úgy kitörlöm az eredményt.

  Mit gondoltok?

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