[حل شده] حذف موارد تکراری در دو ستون

[ZAMEN58]

با سلام در فایل پیوست دو تا ستون از اعداد وجود داره
اگه بخواهیم اعدادی رو که در هر دو تا ستون تکراری هستش رو حذف کنیم باید چکار کنیم ؟
منظورم اینکه که عدد در ستون 1 و ستون 2 تکرار شده و یا در ستون 1 یا در ستون دو تکرار شده
ممنون

[Amir Mohsenpour]

فایل پیوست رو ضمیمه نکردید.

[Amir Mohsenpour]

فرض کنیم که تعدادی نام در ستون A و تعداد دیگری در ستون B قرار گرفته اند.
می خواهیم نامهایی که در ستون A و B تکراری هستند را پیدا کنیم .
یقینا استفاده از Remove Duplicate رو بلد هستین و فرض من اینه که شما می خواین اطلاعات رو در دو ستون مقایسه کنید.
در ستون C از فرمول :
"IF(ISERROR(MATCH(A1,$B$1:$B$10000,0)),"Unique","D uplicate
استفاده کنید تا اسامی که در ستون B و A تکراری هستند را پیدا کنید
پس از این مرحله با فیلتر کردن ستون C موارد Duplicate را فیلتر نمائید.
نامهایی که در ستون A مشاهده می کنید همانهایی هستند که در ستون B هم تکرار شده اند پس انها را مارک نمائید.
اگر می خواهید اسامی تکراری را پاک کنید هم :
موارد مارک شده را با فشار دادن Delete پاک کنید و بعد ستون A را انتخاب و کلید سورت را فشرده و Continue With The Current Selection را انتخاب کنید تا همه نامها بترتیب از بالا تا پایین پشت سرهم قرار گیرند.
امیدوارم مشکلتون حل شده باشه

[Amir Mohsenpour]

این هم نمونه:

[ZAMEN58]

سلام ببخشید
این هم فایل پیوست

[Amir Mohsenpour]

سلام ببخشید
این هم فایل پیوست

جواب رو ندیدید ؟

[ZAMEN58]

سلام
جواب رو دیدم
ولی مورد نظر من نبود
ببینید من می خوام موارد تکراری که توی هر دو تا ستون هستند حذف بشه
یعنی اگه بالفرض توی ستون A مقدار 3 دوبار و توی ستون B هفت بار تکرار شده همه حذف بشن
و ترجیحا vb باشه
حالا خودم یه کارایی کردم که بعد از تکمیل پیوستش می کنم

[iranweld]

با سلام

از ماکروی ذیل استفاده کنید

Sub test()

Dim list1 As New Collection

 
Z1 = Cells(Rows.Count, "A").End(xlUp).Row
Z2 = Cells(Rows.Count, "B").End(xlUp).Row
z3 = Cells(Rows.Count, "F").End(xlUp).Row

Range("F1:F" & z3).ClearContents

If Z1 > Z2 Then
Z4 = Z1
Else
Z4 = Z2
End If


For i = 1 To Z4

If Application.CountIf(Range("A:B"), Range("a" & i)) = 1 Then

list1.Add Range("a" & i)

End If

Next

For i = 1 To Z4

If Application.CountIf(Range("A:B"), Range("B" & i)) = 1 Then

list1.Add Range("B" & i)

End If

Next

For j = 1 To list1.Count

Range("F" & j) = list1.Item(j)

Next


End Sub