با سلام به اساتید و دوستان گرامی
در فایل پیوست میخوام در صورتی که ردیف A و B دو یا چند سطر برابر باشه یکی بمونه و تکراریها حذف بشن ود در صورتی که ردیف D یکی از داده ها پر باشه ترجیحاً اینو نگه داره و بقیه داده های تکراری رو حذف کنه . البته قبلا تو پست های دیگه دوستان لطف کرده بودن و جواب داده بودند .اگه دوستان لطف کنن راهنمایی کنن ممنون میشم .اگر هم بشه رو این فرمول کار کرد که چه بهتر :

Range("A1").Select
'Remove entire row in case a value on the CURRENT column already exists.
'code based on DRJ user code, on this site
Dim x As Long
Dim LastRow As Long
col = ActiveCell.Column
LastRow = Cells(65536, col).End(xlUp).Row
'LastRow = Range("A65536").End(xlUp).Row
For x = LastRow To 1 Step -1
If Application.WorksheetFunction.CountIf(Range(Cells( 1, col), Cells(x, col)), Cells(x, col).Text) > 1 Then
Cells(x, col).EntireRow.Delete
End If
Next x
End Sub


http://persiandrive.com/900539
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.