İki Sutünü karşılaştırmak ve aynı olan verileri işaretlemek

[cakkas]

excelde acemiyim. foruma bakaraktan işimi çözmeye çalıştım ama beceremedim.

1008694.030 1016367.040 DURU SOSYAL HİZMETLER SANAYİ ŞİRKETİ
1009533.075 1058597.046 ASM BİLGİ İŞLEM İNŞAAT OTOMOTİV Şİ
1009572.076 1240838.006 ASİL GRUP SOSYAL HİZMETLER DANIŞMANLIK PEYZAJ
1010232.075 1141754.010 PRİZMA SOSYAL HİZMETLER İNŞAAT BİLGİSAYAR

şeklinde 2000 kişilik tablom var. Tabloda iki sütunda sgk numaraları yer almaktadır. A sütununda bulunan sgk numaraları B sütununda bir veya bir kaç tane olarak bulunmaktadır.


Yapmak istediğim şudur;
A1 hücresinde ve devamında yer alan yer alan sgk numaralarını B sütünunda yer alan sgk numaralarında aramak ve B sütununda kaç tane var ise C sütununda ki karşılığına (VAR) veya + şeklinde bir işaret koymak ( mesela B;10 da var ise C: 10 hücresine VAR veya + işareti koymak ve buna göre düzenleme yapmak istiyorum.

Her hafta bu şekilde değişen sayıdaki listelerle uğraşarak, sgk numarasına göre isim listesi çıkartıyorum. Çok zaman alıyor

lütfen bu konuda yardımcı olurmusunuz ?

 

[numan şamil]

Merhaba
Eğer makro isterseniz
Aşağıdaki kodları bir modüle kopyalayıp bir butona atayarak dener misiniz

Sub numan()
    Dim C As Range, Sa As Worksheet, ilkadres As Variant, i As Long
    Application.ScreenUpdating = False
    Range("C1:C" & Rows.Count).ClearContents
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        With Range("A1:A" & Rows.Count)
            Set C = .Find(Cells(i, "B"), , xlValues, xlWhole)
            If Not C Is Nothing Then
                ilkadres = C.Address
                Do
                    If Cells(C.Row, "A") = Cells(i, "B") Then
                     Cells(i, "C") = "VAR"
                    End If
                    Set C = .FindNext(C)
                Loop While Not C Is Nothing And C.Address <> ilkadres
            End If
        End With
    Next i
   Application.ScreenUpdating = True
End Sub