Excel içinde birden çok veriyi aynı anda değiştirme

[seiko_006]

Arkadaşlar merhaba,

20.000 satır içinde A sütununda bulunan kayıtlardan bazılarını aynı anda değiştirmek istiyorum. Örnek olarak A satırında bulunan araba kelimesini bisiklet, kalem kelimesihi silgi yapmak istiyorum. Ama bunları tek tek yapamam. değiştirmem gereken 1.000 kelime var. Değiştireceğim kelimeleri ve karşılığında değişecek olacak kelimeleri biliyorum. Bunları aynı anda değiştirebilir miyim? Örnek bir dosya ekte gönderiyorum.
Yardımcı olursanız çok sevinirim.

 

[Orion1]

dosyanız ektedir.

Sub yerine59()
Dim sat1 As Long, sat2 As Long, k As Range, i As Long
sat1 = Cells(Rows.Count, "A").End(xlUp).Row
sat2 = Cells(Rows.Count, "C").End(xlUp).Row
For i = 1 To sat1
    Set k = Range("C1:C" & sat2).Find(Cells(i, "A").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        Cells(i, "A").Value = k.Offset(0, 1).Value
    End If
    set k = nothing
Next i
MsgBox "İşlem Tamamlanmışıtır." & vbLf & _
    "evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName

End Sub

 

[seiko_006]

Çok teşekkür ederim. Tam istediğim gibi.. Ellerinize sağlık.

 

[hakankilic]

Ben niye çalıştıramadım?