Toplu kelime arama ve Satır içi kelimeleri silme

[nanotech3485]

Arkadaşlar merhaba;

Elimde 1 sütun da binlerce satır adres bilgisi var. Ben bazı kelimeleri tek seferde topluca arayıp bu kelimelerin satır içlerinden silinmesini istiyorum ama bir türlü beceremedim. Satırın tümü değil sadece satırlarda yer alan kelimelerin silinmesini sağlayabilecek bir kod var mıdır acaba? Eğer bu sorunu çözebilirsek çok memnun kalacağım. Biraz detaylı anlatmaya çalıştım ama anlatamadığım bir durum varsa tekrardan netleştirebilirim. Teşekkürler.

Örneğin; Satırlardan silinecek 4 kelime şunlar ( Deutschland, United States, Canada, Turkey)

Rupert-Mayer-Straße 44 Gebäude 6407 81379 München Deutschland
Andreasstraße 25 33165 Lichtenau United States
Jezuicka 26 85-102 Bydgoszcz Canada
Szkolna 14 63-230 Witaszyce Turkey

---
Kelimeler silindikten sonra aşağıdaki şekilde görünmesini istiyorum.

Rupert-Mayer-Straße 44 Gebäude 6407 81379 München
Andreasstraße 25 33165 Lichtenau
Jezuicka 26 85-102 Bydgoszcz
Szkolna 14 63-230 Witaszyce

 

[Mahir64]

Merhaba,

Excel versiyonunun Excel 16.41 - TR mi?

CTRL H yapın ve aranan değer Deutschland -yenideğer boş bırakın ve tümünü değiştir tuşuna basın.
Ardından ikinci üçüncü ..... kelimeler için yapın.

 

[nanotech3485]

Merhaba hocam evet Excel 2019 16.41 sürümü. Bu dediğinizi tek tek yapmak gerekiyor. Ben kod ile tek seferde hücre içinden bu kelimeleri silmeye çalışıyorum hocam. Çünkü sadece 4 kelime yok aslında 50'den fazla kelime mevcut arama yapılacak.

 

[Korhan Ayhan]

Deneyiniz.

Binlerce dediğiniz verilerinizin A sütununda olduğunu varsaydım.

Silinecek kelimeleri K sütununa alt alta yazıp kodu deneyiniz.

Option Explicit

Sub Kelime_Temizle()
    Dim Kelime As Range, Say As Long
    
    For Each Kelime In Range("K1").CurrentRegion.Cells
        Say = Say + WorksheetFunction.CountIf(Range("A:A"), "*" & Kelime & "*")
        Range("A:A").Replace Kelime, "", xlPart
    Next
    
    MsgBox "İşleminiz tamamlanmıştır." & vbCr & vbCr & _
           Say & " adet veri silinmiştir."
End Sub

 

[nanotech3485]

Korhan hocam kod çalıştı çok teşekkür ederim. Büyük bir sorunumda çözülmüş oldu. Sağolun.