Sutundaki yinelenen değere göre satır silme

[yalovam77]

Merhaba Üsdatlarım
A:AC46800 aralığında I sütunundaki yinelenen değerlerden bir tanesi kalması koşuluyla yinelenen değerleri sildirmek istiyorum. konularda aradım aşağıdaki kodları buldum ama başaramadım Not: yinelenen değer bir kaç tane vardır)

sub sil()

dim STR as Long

for str= range("A"&rows.count).end(xlup).row to 2 step -1

if worksheetfunction.countif(range("A:A"),cells(str,"A"))> 1 then

range("A"& str ""& str).delete xlup

end if

next

End Sub

 

[ÖmerFaruk]

Aşağıdaki kodları bir Module içine kopyalayıp ilgili sayfanız açıkken çalıştırabilirsiniz.
Not: 1.satırı başlık satırı olarak düşündüm, kodlar örnek veri dosyası olmadığı için denemeden yolluyorum.

Sub YinelenenSatırıSil()
   Dim Veri, Liste(), i As Long, Say As Long, k As Integer, Dict As Object, Rng As Range
   'İlk satır başlık satırıdır diye umuyorum
   Set Rng = Range("A2:AC" & Range("A" & Rows.Count).End(3).Row)
   Veri = Rng.Value
   Set Dict = CreateObject("Scripting.Dictionary")
   ReDim Liste(1 To UBound(Veri, 1), 1 To UBound(Veri, 2))
   For i = 1 To UBound(Veri)
      If Not Dict.Exists(Veri(i, 9)) Then
         Dict.Add Veri(i, 9), 1
         Say = Say + 1
         For k = 1 To UBound(Veri, 2)
            Liste(Say, k) = Veri(i, k)
         Next k
      End If
   Next i
   Rng.ClearContents
   Range("A2").Resize(Say, UBound(Veri, 2)) = Liste
   Erase Liste: Erase Veri: Set Dict = Nothing: Set Rng = Nothing
End Sub

 

[yalovam77]

kod işime yaradı sanırım 46800 satır olduğundan tam kontrol edemedim ama görünen çözüm oldu gibi Çok teşekkür ederim tam sonucu yazarım

 

[Korhan Ayhan]

Bu işlem için aşağıdaki menüden de faydalanabilirsiniz.

 

[assenucler]

Üstadın görseli en iyi çözüm yöntemidir.

Yıllardır birden fazla girdiğim kayıtlarımı, bu şekilde, tek kayıta indiriyorum.
Kolay gelsin.

Bu arada, Korhan Ayhan üstadıma selam, sevgi ve saygılarımı yolluyorum.

 

[kontrast]

Merhaba ben de aynı çözümü uygulamak istiyorum ama ekran görüntüsünü görüntüleyemedim.

 

[ÖmerBey]

Merhaba ben de aynı çözümü uygulamak istiyorum ama ekran görüntüsünü görüntüleyemedim.

Merhaba,
Öncelikle foruma hoşgeldiniz.
Görselde, Veri sekmesi > Yinelenenleri kaldır butonu yer alıyor.