Toplu Sİlme

[hedefkaya]

İYİ GÜNLER ELİMDE 20000 SATIRLIK BİR EXCELL DOSYASI VAR BEN BUNLARIN İÇİNDEN ÖRNEĞİN AAA BBB CCC DDD EEE vb... GİBİ KELİMELERİ DOPLU OLARAK SİLEBİLİRMİYİM...
TEŞEKÜRLER

 

[iaydin20]

excel uygulama açıkken ctrl+h yapın açılan pencerede aranan kısmını sileceğiniz kelimeyi yazın yeni değer kısmınıda boş bırakıp tümünü değitir derseniz işinizi görür sanırım...

 

[uzmanamele]

merhaba
bir hatırlatma. sildiğiniz kelime grupları metnin herhangi biryerinde olabilir. sildikten sonra düşeyara gibi fonksiyon kullanmak istediğinizde aradığınızı bulamayabilirsiniz. syn iaydın20 nin önerisi doğrultusunda silme işlemini gerçekleştirin sonra =kırp() fonksiyonunu kullanın.

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Sub Düğme1_Tıklat()
For s = [a20000].End(3).Row To 1 Step -1
If Cells(s, "a") = "AAA" Or Cells(s, "a") = "BBB" _
Or Cells(s, "a") = "CCC" Or Cells(s, "a") = "DDD" _
Or Cells(s, "a") = "EEE" Then Cells(s, "a") = vbNullString
Next
End Sub