پرسش حذف ردیف تکراری

[mohammad.alavi]

سلام دوستان
وقتتون بخیر
من دو ستون عدد دارم. میخوام براساس اعداد ستون اول و دوم ردیف های اضافی رو حذف کنم. مثلا در ستون اول من سه تا عدد 10 دارم. در ستون دوم هم دو تا 15 دارم. چطور میتونم یه فرمول شرطی بهش بدم ک بیاد عدد 10 و 15 رو ک در ستون اول و دوم برابر هستند یکیش رو واسم نگه داره و ردیف دومی رو واسم حذف کنه؟؟؟

[M_ExceL]

سلام دوستان
وقتتون بخیر
من دو ستون عدد دارم. میخوام براساس اعداد ستون اول و دوم ردیف های اضافی رو حذف کنم. مثلا در ستون اول من سه تا عدد 10 دارم. در ستون دوم هم دو تا 15 دارم. چطور میتونم یه فرمول شرطی بهش بدم ک بیاد عدد 10 و 15 رو ک در ستون اول و دوم برابر هستند یکیش رو واسم نگه داره و ردیف دومی رو واسم حذف کنه؟؟؟

سلام
برای اینکار می تونید ستون a و b را داخل ستون c با هم ادغام کنید، سپس بوسیله گزینه Remove Duplicates به خواسته تون برسید.
برای راحتی کار کدی رو براتون نوشتم، یک ماژول ایجاد کنید سپس کد زیر را اجرا کنید :

Sub test()
Application.ScreenUpdating = False
lsr = Range("a" & Rows.Count).End(xlUp).Row
Range("c2") = "=a2&b2"
Range("c2").AutoFill Destination:=Range("C2:C" & lsr)
    ActiveSheet.Range("$A$1:$C$" & lsr).RemoveDuplicates Columns:=Array(1, 2, 3), _
        Header:=xlYes
     Range("c1:c" & lsr).ClearContents
     Range("a1").Select
     Application.ScreenUpdating = True
End Sub

[rahi_feri]

سلام
هر دو ستون رو انتخاب کن بعد remove duplicate رو از تب data انتخاب کن!