السلام عليكم
هو كود بالفعل اضغط alt+F11 لتفتح نافذة الفجوال ثم افتح module1 من يسار الشاشة ستجد هذا الكود
Sub dahmour()
i = 2
Do Until IsEmpty(Cells(i, 2))
x = 2
Do Until IsEmpty(Cells(x, 3))
If InStr(1, Cells(i, 2), Trim(Cells(x, 3))) > 1 Then
Cells(i, 2) = Replace(Cells(i, 2), Trim(Cells(x, 3)), " & " & Trim(Cells(x, 3)))
End If
x = x + 1
Loop
i = i + 1
Loop
End Sub
تحياتي و ارجو ان يفي بالغرض