Değişen Veriyi Bulma

[Muratizmir]

Sayın arkadaşlar benim aslında basit olduğuna inandığım ama bir türlü çözümünü bulamadığım bir sorunum var.
Elimde oldukça fazla sayıda veri içeren 2 sütun var. Yapmak istediğim A sütunundaki hücreler ile aynı satırdaki B sütununda bulunan hücreleri karşılaştırmak ve farklı olanları çıkarmak.
Elimdeki veri yaklaşık 40 bin ve bana söylenen bunların içinde 800-900 kadarının farklı olduğu.
Tek tek sağlıklı tarama yapmam mümkün değil.
Yardımlarınız için şimdiden teşekkür ediyorum.

Örnek dosyam.

http://www.dosya.tc/server28/N4yMwA/_RNEK.xlsx.html

İstenen
A ile B karşılaştır C ye değişeni belirt. Yada aynı olanı belirt. Nihayetinde farklı olanları her şekilde bulabilirim.

Yardımlarınız için şimdiden teşekkür ediyorum.

 

[Orion1]

Dosyanız ektedir.

Sub benzer59()
Dim i As Long, sat As Long
sat = Cells(Rows.Count, "A").End(xlUp).Row
Range("C2:C" & Rows.Count).ClearContents
Application.ScreenUpdating = False
For i = 2 To sat
    If Cells(i, "A").Value = Cells(i, "B").Value Then
        Cells(i, "C").Value = "Aynı"
        Else
        Cells(i, "C").Value = "Değişmiş"
    End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem sona erdi." & vbLf & "evrengizlen@hotmail.com", vbOKOnly
End Sub

 

[Orion1]

Formülle aşağıdaki gibi.

=EĞER(A2=B2;"Aynı";"Değişmiş")

 

[Muratizmir]

Çok teşekkür ederim sayın Orion1. Hedef 12 den vuruldu sayenizde.