exel aynı verileri tamamen silme

[lermis]

merhaba benim şöyle bir sıkıntım var örnekle açıklayayım;

mustafa
ismail
veli
ali
mustafa
veli

yukarıdaki örnekte aynı olan isimleri silip aynı olmayanları listelemek istiyorum.

ismail
ali

şeklinde.

 

[EvrimD]

Selam,
Eger kullandiginiz excel ingilizce ise asagidaki kodu deneyiniz. Turkce ise sheet1 yerine sayfa1 yazin. Probleminiz cozulur.

Sub mükerrer()

Dim i As Integer
Dim say As Integer
Dim sira As Integer
Dim deger As Integer
Dim mükerrer As Integer
Dim mükerrer1 As Integer
Dim ilk As Integer
Dim satir As Integer

say = WorksheetFunction.CountA(Sheet1.Range("A:A"))

For j = say To 2 Step -1
mükerrer = WorksheetFunction.CountIf(Sheet1.Range("A:A"), Sheet1.Cells(j, 1))
If mükerrer > 1 Then
sira = Sheet1.Range("A:A").Find(Sheet1.Cells(j, 1), , xlValues, xlWhole).Row
deger = Sheet1.Cells(sira, 1).Value
For i = say To 2 Step -1
mükerrer1 = WorksheetFunction.CountIf(Sheet1.Range("A:A"), deger)
If mükerrer1 <> 0 Then
satir = Sheet1.Range("A:A").Find(deger, , xlValues, xlWhole).Row
Sheet1.Cells(satir, 1).EntireRow.Delete
Else
End If
Next i
mükerrer = 0
Else: GoTo git:
End If
git:
Next j
End Sub

 

[bzace]

Merhabalar,
Formül ile alternatif;

• Verileriniz A1:A6 aralığına,
• Formülü B2 hücresine,

girerek deneyiniz.

=EĞER(YADA(
  EĞERSAY(B$1:B1;A1:A$6)=0);
  İNDİS(A1:A$6;KAÇINCI(;
EĞERSAY(B$1:B1;A1:A$6);));)
[COLOR="Blue"]Formül dizi formülüdür.CTRL+SHIFT+ENTER ile tamamlayınız.[/COLOR]

 

[Erdem Akdemir]

Merhaba,

Basit bir yöntem anlatabilirim.

Verileriniz a sütunda olduğunu düşünelim. B sütununa aşağıdaki formülü girin.

B sütununda 1'den fazla olanları süzün ve o satırları silin.

=EĞERSAY($A$1:$A$100;A1)

 

[lermis]

say = WorksheetFunction.CountA(Sheet1.Range("A:A"))

Bu bölümde hata var dedi sanırım

 

[lermis]

verilerim şu şekilde

müşteri nosu müşteri ismi müşteri adresi
16 ali veli beylik düzü no:50
18 ali akar beylik düzü no:50
20 ali tutar beylik düzü no:50

bu elimde olan liste ben sadece isimleri altına ekleyerek aynı olan isimleri silip sadece listede olmayan isimleri bırakmak istiyorum

Not: eklediğim isimlerin adres ve müşteri numarası yok şu şekilde oluyor

müşteri nosu müşteri ismi müşteri adresi
16 ali veli beylik düzü no:50
18 ali akar beylik düzü no:50
20 ali tutar beylik düzü no:50
ali veli
ali tutar

adres ve müşteri numaraları kalması gerekli.

 

[Orion1]

Örnek dosya için link veriniz.

 

[lermis]

Sub BenzerSil()
For i = [A65536].End(3).Row To 2 Step -1
If Cells(i, "A") = Cells(i - 1, "A") Then Rows(i).Delete
Next i
End Sub

bu kod işimi gördü

 

[lermis]

daha kolay bir yöntem daha var bunuda paylaşayım makrosuzdur;

Koşullu bişimlendirme > Hücre kurallarını vurgula > Yinelenen Değerler 'i Seçiyoruz

Açılan ekranda herhangi bir renkle dolgu yapıyoruz Sonra veri sekmesine tıklayarak Filitre yi seçiyoruz. Uygulama yapacağımız sütundan filitre seçeneğini genişletiyoruz. Son olarak renge göre filitre dediğimizde aynı verileri peş peşe sıralıyor. Ve Hepsini seçip sildikten sonra. Aktif olan filitre özelliğini kapatıyoruz.

Böylece aynı verileri tamamen listemizden kaldırmış oluyoruz.