• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

aynı kayıtların silinmesi

B

beyza77x

Katılım
19 Şubat 2020
Mesajlar
13
Excel Vers. ve Dili
exel
Merhaba, excel dosyasında 24k kadar veri var.İsim,soy isim,adres bilgileri içeriyor.Aynı adrese sahip ve aynı soyadına sahip olanların silinmesini istiyorum.Bir türlü yapamadım.Bana yardım eder misiniz? Teşekkürler.
 
Yinelenen değerleri kaldıracağın sütunları seç, veri bölümünden yinelenenleri kaldırı seç...
 
aynı adreste yaşayan farklı soyada sahip olanların silinmesini istemiyorum.Bunun için bir formül var mıdır?
 
Selamlar
Formumuza hoşgeldiniz.

asıl bilgilerinizi içermeyen ama yapısı aynı olan dosyanızı
aşağıdaki sitelerden birine yüklerseniz daha çabuk yanıt alırsınız.

Soru ile ilgili "Örnek" Excel Dosyası Ekleme

Değerli excel.web.tr üyelerimizin dikkatine. Sorularınızın daha kısa sürede ve doğru cevaplandırılması için , bir excel dosyası eklenmesi gerekiyorsa; konu başlığınızda sorunuzla ilgili bilgi verdikten sonra;aşağıda açıklanan şekilde bir "ÖRNEK EXCEL DOSYASI" hazırlayabilirsiniz. ÖRNEK EXCEL...
www.excel.web.tr www.excel.web.tr
http://dosya.co/
http://s2.dosya.tc/
https://wetransfer.com/
https://www.transfernow.net/tr/
 

İndir ornek

Dosyayı indir ornek
dosya.co
dosya bu tarz.adress line 1 sutununda adresler var aynı adrese ve aynı soyada sahip kayıtların silinmesini istiyorum.bunu yapmanın bir yolu var mı?
 
Beyza hanım örnekte adress line 1 dosyanızda yinelenen değer yok,hepsi birbirinden farklı.O yüzden silme yapmaz.Orjinal dosyanıza yukarıda belirttiğim şekilde uygulama yapın 1 dk'nınızı almaz..
 
original dosyada çok fazla yinelenen değer var.sutunları göstermek için böyle attım.Yinelenenleri kaldır dediğimde silmedi.birden fazla kez denedim.
 
214518
adresleri değiştirirek örnek gösteriyorum.10/14-15/21 satırlar dediğiniz şartlarda ...
 
214520
Veri sekmesindeki yinelenenleri kaldırı seçiniz.Verilerimde üst bilgi var kutucuğunu işaretleyiniz.Başlıklardan sadece surname ve adress line1 seçili olsun.Tamam deyiniz.Kaç adet yinelenen var size söyleyecek sizde tamam deyip kaldırın
 
Deneyiniz.
Kod: 
Sub Benzersil()
Dim s1 As Worksheet: Dim sd As Object
Dim a As Variant: Dim liste As Variant
Dim i As Long: Dim b()
Set s1 = Sheets("Sayfa1")
Zaman = Timer
son = s1.Cells(Rows.Count, 1).End(xlUp).Row
liste = s1.Range("A1:E" & son)
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(liste, 1)
If liste(i, 1) <> "" And liste(i, 3) <> "" Then
bag = liste(i, 1) & "," & liste(i, 3)
f Not .Exists(bag) Then
        say = say + 1
       For j = 1 To UBound(liste, 2)
                    liste(say, j) = liste(i, j)
                   Next
                .Item(bag) = say
        End If
  End If
 Next i
End With
s1.Range("A1").CurrentRegion.ClearContents
s1.Range("A1").Resize(say, UBound(liste, 5)).Value = liste
MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & Chr(10) & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation
End Sub
 
Kod: 
f Not .Exists(bag) Then
satırı

Kod: 
If Not .Exists(bag) Then
şeklinde olaçak.
 
Deneyiniz...

Kod: 
Sub Tekrarsiz() 
    Range("A2:E" & Cells(Rows.Count, 1).End(3).Row).RemoveDuplicates Columns:=Array(1,3)
    MsgBox "Islem tamam..."
End Sub
 
Sayın @EmrExcel16,


17. iletiye eklediğiniz kod kısa olmasına karşın, 130 satır ve 11 sütunda bulunan çift verilerimin tümünü sildi.

Emek ve paylaşımınız için teşekkür ederim.

Saygılar,
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst