Belli karakter içeren hücreleri silme ve istenen şekilde doldurma

[sakkoyun]

Selamlar
Yaklaşık 500000 satırlık excel dosyam var. Bazı hücrelerde çok büyük sayılar var. Örneğin 2,15E+09 gibi. Bu hücrelerin yerinde 0 (sıfır) olmasını istiyorum. Bu silmek istediğim hücrelerin ortak özellikleri, hepsinde 4 karakteri olması. Dolayısıyla, + içeren hücre içeriklerini silip o hücrelere 0 (sıfır) yazacak bir makroya ihtiyacım var. Yardımcı olabilirseniz sevinirim.
İyi günler

 

[Murat OSMA]

Örnek bir dosya ekleyiniz.

 

[nsertoglu]

Aşağıdaki kodları inceleyiniz:
Sub bul_sil()
sh1 = "sheet1"
SLnck = " " ' neyin silinmesini istediğinizi verin
lenSL = Len(SLnck) ' silinecek boyutu

Sheets(sh1).Select
Cells(1, 1).Select
sonR = Selection.End(xlDown).Row
sonK = Selection.End(xlToRight).Column

For r = 2 To sonR

For k = 1 To sonK
If Cells(r, k) = SLnck And Len(Cells(r, k)) = lenSL Then
Cells(r, k).Select
Cells(r, k).ClearContents
End If
Next k

Next r
End Sub

 

[sakkoyun]

İlginize teşekkür ederim.