1milyon satırlık dosyada satır silme

[svorm]

Merhaba,

1 milyon satırlık bir excel dosyam var. Burada D sütununda değeri sıfır olan satırları silmek için çok hızlı çalışan bir kod var mıdır acaba?
Ben standart for next döngüsü ile yapıyorum, çok uzun sürüyor...


Teşekkürler

 

[turist]

İşlem yapmak yerine; dosyanızı D sütununa göre sıralayıp ( Veri/ Sıralama- Data/sort) SIFIR olan satırları manuel olarak silebilirsiniz.

Aynı şeyi veri süz ile yapıp D sütuınundan sadece 0 (sıfır) olanı seçip silebilirsiniz.

 

[svorm]

Sorun dosyadaki satır sayısının 1 milyon olması. Bu sebeple süzgü kullandığımda takılıp kalıyor.
30 dk bekledim. Çözülmeyince işlemi sonlandırdım.
VBA da halledebliirsem sevinirim

 

[Seyit Tiken]

Bu kodu bir deneyiniz.

[d:d].Replace "0", Replacement:=""

 

[svorm]

Seyit bey ben anlatamadım galiba,

D sütununda 0 olan verilerin bulunduğu satırları silmek istiyorum.

 

[BAZGİRET]

Seyit bey ben anlatamadım galiba,

D sütununda 0 olan verilerin bulunduğu satırları silmek istiyorum.

Merhaba
Sub sil()
For i = 1 To Range("D1000000").End(xlUp).Row
If Cells(i, 4) = 0 Then
Rows(i).Delete
End If
Next
End Sub
kodu şekilde deneyin.

 

[Seyit Tiken]

Bir milyon satırı silmek bayağı zaman alır, yukarıda verdiğim koda ilave olarak, ilgili satırı SIRALA kodunu denemenizi öneririm. Bu vesileyle boşluklardan kurtulmuş olursunuz.

 

[svorm]

Benim yazdığım kodda bu şekilde. Fakat çok zaman alıyor.

Dediğiniz gibi sort ederek yapacağım artık.
teşekkürler

 

[Zeki Gürsoy]

Ben olsam şu adımları izlerdim:

- Yeni bir sayfa aç,
- Dolu olan sayfada filitre kullan; kriter "eşit değil 0"
- Filitre sonucunu yeni sayfaya kopyala,
- Eski dolu sayfayı sil,
- Yeni sayfaya, eski dolu sayfanın adını ver.(Gerekliyse)