cift olan satırları silme

[Baris.G]

arkadaşlar benim böyle bir sorunum var benim 12bin satırlı bir dosyam var aralarında cift olan veya daha fazla aynı verilere sahip satır var onları silmek istiyorum yada baska bir sheete gecmek istiyorum ama nerden ve nasıl başliyacam bir fikrim yok bu konuda bana yardım edin lütfen.

 

[Ömer]

Merhaba,

Linki inceleyiniz..

Mükerrer (Çift) Kayıt Engelleme,Sayma Örnekleri

.

 

[Baris.G]

baktım zip deki önerileri benim sheetim de a-g hücresine kadar eşleştirip ona göre silmek lazım onun gibi bir örnek yo ya da ben anlamadım bir bakışda.

 

[Ömer]

Küçük bir örnek dosya ekleyerek açıklarmısınız..

.

 

[Baris.G]

a b c d e f g
1 bar gül 1sok. 1976 34188 0536 ist
2 bar gül 1sok. 1976 34188 0536 ist

bold olan 2 satırın silinmesini istiyorum.

 

[Ömer]

a b c d e f g
1 bar gül 1sok. 1976 34188 0536 ist
2 bar gül 1sok. 1976 34188 0536 ist

bold olan 2 satırın silinmesini istiyorum.

Dosya ekleyerek açıklarsanız sevirinim..

Sorunun devamında, ataç eklemek( Dosya eklemek).

.

 

[Baris.G]

burada size bir örnek.

 

[İhsan Tank]

burada sana bir örnek.

merhaba
satırların mükerer satırların silinmesini istemiyorsanız

Private Sub CommandButton1_Click()
Dim i, son As Long
Set S1 = Sheets("Tabelle1 (2)")
S1.Select
son = [A65536].End(3).Row
On Error Resume Next
Application.ScreenUpdating = False
Range("A2:J" & son).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
For i = 1 To son
If Not Cells(i, "a").EntireRow.Hidden = False Then
Range("A" & i & ":J" & i).ClearContents
End If
Next i
ActiveSheet.ShowAllData
Application.ScreenUpdating = True
Msgbox"Mükererre Verilen Silinmiştir.",,"www.excel.web.tr"
End Sub

Satırlarında silinmesini istiyorsanız

Private Sub CommandButton1_Click()
For sil = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A2:J" & sil), Range("A" & sil)) > 1 Then Rows(sil).Delete
Next
Next
MsgBox "Mükerer Veriler Silinmiştir.", , "www.excel.web.tr"
End Sub

bu kodu kullanınız

 

[Ömer]

Module kopyalarak çalıştırın..

Option Explicit
 
Sub BenzerSil()
Dim i As Long, son As Long
Application.ScreenUpdating = False
On Error Resume Next
son = [A65536].End(3).Row
Range("A1:J" & son).AdvancedFilter xlFilterInPlace, , , True
    For i = son To 2 Step -1
         If Not Cells(i, "a").EntireRow.Hidden = False Then
            Rows(i).Delete
        End If
    Next i
ActiveSheet.ShowAllData
Application.ScreenUpdating = True
End Sub

.

 

[Baris.G]

tşkürler hocam, gecemi kurtardınız elinize saglik