DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
For i = 1 To Cells(65536, 1).End(xlUp).Row
For j = i + 1 To Cells(65536, 1).End(xlUp).Row
If Cells(i, 1) = Cells(j, 1) Then
Range(j & ":" & j).EntireRow.Delete
End If
Next j
Next i
For i = 1 To Cells(65536, 1).End(xlUp).Row
For j = i + 1 To Cells(65536, 1).End(xlUp).Row
If Cells(i, 1) = Cells(j, 1) Then
Range(j & ":" & j).EntireRow.Delete
Else
Exit For
End If
Next j
Next i
z = Cells(65536, 1).End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To z
For j = z To i + 1 Step -1
If Cells(i, 1) = Cells(j, 1) Then
Range(j & ":" & j).EntireRow.Delete
End If
Next j
Next i
z = Cells(65536, 1).End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To z
For j = z To i + 1 Step -1
If Cells(i, 1) = Cells(j, 1) Then
Range(j & ":" & j).EntireRow.Delete
Else
Exit For
End If
Next j
Next i
p.s. jale: full dolu, geri iade etmek, link hattı, nüans farkı, arka fon, sinsi tuzak, giriş introsu, atlı süvari ... nasıl?
yapmasını istemiyorsanız."Bir de büyük harf - küçük harf ayrımı yapıyor"
If Cells(i, 1) = Cells(j, 1) Then
If lcase(Cells(i, 1)) = lcase(Cells(j, 1)) Then
If ucase(Cells(i, 1)) = ucase(Cells(j, 1)) Then