Sub Find_Matches()
Dim CompareRange As Variant, x As Variant, y As Variant
' CompareRange değeri, seçimi karşılaştıracağınız aralığa
' eşit olacak şekilde ayarlayın.
Set CompareRange = Range("C1:C5")
' NOT: Karşılaştırma aralığı başka bir çalışma kitabında veya
' çalışma sayfasında yer alıyorsa aşağıdaki sözdizimini kullanın.
' Set CompareRange = Workbooks("Book2"). _
' Worksheets("Sheet2").Range("C1:C5")
'
' Seçimdeki her hücreye tek tek gidin ve CompareRange
' aralığındaki her hücreyle karşılaştırın.
For Each x In Selection
For Each y In CompareRange
If x = y Then x.Offset(0, 1) = x
Next y
Next x
End Sub