bir sütunda birden fazla olan öğeleri silmek

[neverlank]

bir sütunda birden fazla olan öğeleri silmek için ne yapabiliriz

2007 de remove duplicates var ama 2003 için bişey bulamadım

 

[Orion1]

A sütunu için.

Sub sil()
Application.ScreenUpdating = False
For i = Cells(65536, "A").End(xlUp).Row To 1 Step -1
    If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, "A").Value) > 1 Then
        Range("A" & i).Delete (xlUp)
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub

 

[neverlank]

teşekkürler

teşekkürler herhalde 2003 te bu iş için bir komut yok

 

[leumruk]

Eğer kastettiğiniz tekrar eden verileri 1'e düşürmekse; Veri>Filtre Uygula>Gelişmiş Filtre bölümünden girdiğiniz aralıktaki verileri teke düşürebilirsiniz.

 

[sinim]

sayın evren gizlen,

peki bir stünda "X" içeren öğelerin hepsini silmek icin nasıl bir kod uygularız

Yardimlariniz icin tesekkurler

 

[Ali]

peki bir sütunda "X" içeren öğelerin hepsini silmek icin nasıl bir kod uygularız

Yardimlariniz icin tesekkurler

Sub sıfırsil()
For i = [a65536].End(3).Row To 1 Step -1
    If Cells(i, 1).Value = "X" Then Rows(i).Delete
Next
End Sub