şayet A ve R sütunlarında X sütünun daki rakamların aynısı varsa?

[imyourfate]

Değerli arkadaşlar hepinize hayırlı işler diliyorum
söyle bir sorunum vardı :
şayet A ve R sütunlarında; X sütünun daki rakamların aynısı varsa A ve R sütunlarındaki bu aynı rakamların yanına bir boşluk ve ''Ç'' harfi gelsin (ama aynı hücre içerisinde)
(örnek:1234 Ç)

Böyle bişey yapmak mümkünmüdür?
ekli dosya mevcuttur

Saygılarımı sunuyorum

 

[Orion1]

dosyanız ektedir.

Sub varsa_59()
Dim sat As Long, i As Long, sat2 As Long, k As Long
sat2 = Cells(Rows.Count, "X").End(xlUp).Row
Application.ScreenUpdating = False
For k = 1 To 18 Step 17
    sat = Cells(Rows.Count, k).End(xlUp).Row
    For i = 2 To sat
        If WorksheetFunction.CountIf(Range("X5:X" & sat2), Cells(i, k)) > 0 Then
            Cells(i, k).Value = Cells(i, k).Value & " Ç"
        End If
    Next i
Next k
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı.", vbOKOnly + vbInformation, "evrengizlen@hotmail.com"
End Sub

 

[imyourfate]

Hocam teşekkürlerimi sunuyorum ellerinize sağlık çok güzel olmuş

Saygılarımla