Buda Excel kodu ile yapıldı.Bence diğeri daha iyi.
Bu dosya makrolu olduğu için uzantısıda xlsm oldu.

Private Sub Worksheet_Change(ByVal Target As Range)



    If Target.Column = 2 And Target.Row > 2 Then

        If WorksheetFunction.CountIf(Range("B3:B" & Rows.Count), Target.Value) > 1 Then

            MsgBox "Mükerrer kayit bulundu...", vbCritical, "Mükerrer"

            Target.Value = ""

            cancel = True

            Target.Select

             ActiveWindow.SmallScroll up:=1

        End If

    End If



End Sub