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

• #6610 ulrik19 tag sonar #6608

  Új Válasz 2010-03-16 16:11:21 #6610

  Ú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

  

  ulrik19

  tag

  válasz sonar #6608 üzenetére

  Ha a keresett szövegdarabbal kezdődnek a vizsgálandó cellák, akkor talán az ABC-rendezéssel és az algoritmus kicsi átalakításával némileg gyorsítható.

  illetve ha pár kiértékelést átalakítasz (de ez nem biztos, hogy gyorsít, sosem teszteltem)

  pl.

  meddig = 50000 ' persze ezt kiszámolni valahogy előtte, pl. darabteli()-vel
  For i = 9 to meddig
  If InStr(1, Cells(i, 1), "MOVE_L1_L1") > 1 Then
  Cells(x, 3) = Cells(i, 1)
  x = x + 1
  End If
  Next i

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