Excel Sitesi ve Forumu yayında.
Sub ExcelSitesi()
'https://excelsitesi.com/forum/index.php?topic=46.msg64;topicseen#msg64
Dim aranan, bulunan As Range
Dim konum
For Each aranan In Range("A1:A65530")
If aranan.Value = "" Then Exit For
For Each bulunan In Range("B1:B65530")
If bulunan.Value = "" Then Exit For
konum = InStr(1, bulunan, aranan)
If konum > 0 Then bulunan.Characters(konum, Len(aranan)).Font.Color = vbRed
Next bulunan
Next aranan
MsgBox "Bitti", vbInformation, "ExcelSitesi.Com"
End Sub