iki sutundaki benzer olanlari bulma

[memocan_]

arkadaslara bana 2 sutuna girilen verilerin ayni olanlari bulmami saglayacak kod nedir?
a1 sutunu ve b1 sutunundaki benzerleri bulma

 

[ozgretmen]

Aşağıdaki kod ile A ve B sütununda yer alan BENZER verileri C sütununa , BENZER olmayan verileri de D sütununa listeletebilirsiniz.İyi Çalışmalar.

Sub listele()
Dim hcr As Range, j1 As Integer, j2 As Integer
On Error Resume Next
For i = 1 To [A65536].End(xlUp).Row
  x = Columns("B:B").Find(Cells(i, "A"), lookat:=xlWhole).Row
    If Err.Number <> 0 Then
       j1 = j1 + 1
       Cells(j1, "D").Value = Cells(i, "A")
      Err.Clear
        Else
          j2 = j2 + 1
          Cells(j2, "C").Value = Cells(i, "A")
    End If
Next
End Sub

 

[memocan_]

tsk arkadasim ama 2003 excel de nasil yapabilirim

 

[Ali]

Buda fonksiyonlarla bir örnek olsun.