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

• #24479 Fferi50 Topikgazda m.zmrzlina #24477

  Új Válasz 2014-12-04 09:10:46 #24479

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

  Szia!

  Esetleg próbáld ki a következőt:
  a=selection.value
  for xx=1 to ubound(a,1)
  for yy=1 to ubound(a,2)
  if a(xx,yy)<>"" then a(xx,yy)=left(a(xx,yy),len(a(xx,yy))-1)
  next
  next
  selection.value=a

  1.Ha biztosan nincs üres cella, akkor az if feltételt kihagyhatod.
  2.A selection helyett inkább használj konkrét tartomány címet - ez működik akkor is, ha az adott munkalap nem aktív.
  Sheets("Munka1").range("A1:B20").value
  3.Ez csak akkor működik, ha a tartományod összefüggő.

  Azért lehet gyorsabb, mert itt a memóriában vannak az adatok, az "a" tömbben.
  Elképzelhető, hogy out of memory hibát kapsz, de talán 35000 sornál még nem (persze attól is függ, hány oszlopod van). Ebben az esetben bontsd részekre a műveletet, még úgy is gyorsabbnak kell lennie.

  Üdv.

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