Sub Find_Matches()
Dim CompareRange As Variant, x As Variant, y As Variant
Set CompareRange = Range("a2:a41510")
For Each x In Selection
For Each y In CompareRange
If x = y Then x.Offset(0, 3) = x
Next y
Next x
End Sub
بحيث يصيح يجلب
Abdeslem
ABDESSELAM
هذين المتشابهين
لأنه في الكود السابق يطابق