Yinelen satırları silme (eşsiz bırakmadan)

[nieymimya]

Forumda bulamadım. Veri > Yinelenenleri Kaldır'da tekrarlanan satırların bir tanesini bırakmak suretiyle yapıyor. Ama ben onuda bırakmasını istemiyorum. Yinelenen satırların hepsini kaldırmasını istiyorum. Yani hiç yinelenenmemiş satırlar lazım bana. Yardımcı olursanız sevinirim.

 

[RONIN1]

Merhaba

Ekteki dosyada ufak bir örnek yaptım. bu formülü kullanarak probleminizi çözebilirsiniz. Formülün olduğu kolonda 1 olanları süzdürüp diğerlerini zilebilirsiniz.

Farklı yöntemler olabilir ama basit ve etkili olduğundan işinizi göreceğini düşünüyorum.

 

[ilkersan]

merhaba,
yenilenen değerlerin a sutununda olduğunu var sayayarak bir makro kaydettim.
inceleyiniz.

Sub Yenilenlerikaldır()

    Selection.AutoFilter
    Columns("A:A").Select
    Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    ActiveSheet.Range("$A$1:$A$26").AutoFilter Field:=1, Criteria1:=RGB(255, _
        199, 206), Operator:=xlFilterCellColor
    Rows("2:1000000").Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$A$1:$A$2").AutoFilter Field:=1
    Columns("A:A").Select
    Selection.FormatConditions.Delete
    Range("A2").Select
End Sub