DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Test()
Dim NoBG As Long
Dim MyRng As Range
Dim MyCell As Range
NoBG = Range("BG65536").End(xlUp).Row
Set MyRng = Range("BG1:BG" & NoBG)
For Each MyCell In MyRng
If WorksheetFunction.CountIf(MyRng, MyCell) > 1 Then
Rows(MyCell.Row).Delete
End If
Next
End Sub