حذف داده های تکراری با 3 شرط

[sohrabahmadi]

با سلام به اساتید و دوستان گرامی
در فایل پیوست میخوام در صورتی که ردیف 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

[sohrabahmadi]

RE: حذف داده های تکراری با 3 شرط

با سلام به دوستان گرامی. اگه امکان داره یه نگاهی به این سوال بندازن .با تشکر

[امين اسماعيلي]

RE: حذف داده های تکراری با 3 شرط

با درود
فقط اومدم یاد گذشته کنم گفتم به این سوال هم یه جواب در حد مخ خودم بدم شاید به کار اومد
دوستان عزیز قبلا نمونه فایل گذاشتن و خوب بوده . اما اگر شما میخواین داده های چند تا ستون رو تو یه ردیف برسی کنین و اگه برابر بود فقط یکیشونو نگه داره . خوب خود اکسل این گزینه رو داره. شما از تب data گزینه remove duplicate رو انتخای کن .و اونجا حواست باشه به طور پیش فرض اکسل همه ستون ها رو تو یه ردیف برسی میکنه و اگه برابر بود پاک میکنه. شما رو اون ستون هایی که خودت میخوای تیکش رو بزار.
اگه یه بار انجام دادی و خواستش واسه که محدوده رو پویا کنی . میای همین کار رو از اول با ظبط ماکرو انجام میدی. بعد از تمام شدن کار ماکرو رو متوقف و وارد ادیت کردن ماکرو میشی
بعدش اون محدوده های اخر رو مثلا A1:F560 که میشه F560 رو باید پویا کرد. یعنی به جای 560 باید یه متغییر lastrow مثلا تعریف کرد مثل همون کاری که بالا انجام شده . این کار رو یعنی پویا کردن رو برای همه اعداد داخل کد ها که فک میکنی باید پویا بشن انجام میدی. سادست حدس این که پیکار کنی مشکل نیست.

[sohrabahmadi]

RE: حذف داده های تکراری با 3 شرط

با سلام وتشکر از اقای اسماعیلی عزیز ، امتحان کردم ولی جواب نداد اگه امکان داره بیشتر راهنمایی بفرمایین .بازهم ممنون از لطف شما

[امين اسماعيلي]

RE: حذف داده های تکراری با 3 شرط

با درود

اکسل رو باید اگه میخواین مخصوصا برنامه نویسیشو یاد بگیرین تمرین کنین و سعیو خطا و یه سری حرفا دیگه که قبلا هم گفتم

من 2 تا فایل اماده کردم یکیش همون روش بالاست یعنی ستون A و B رو میسنجه و حذف مکنه .
محدودیت داده در ستون ها هم نداریم فقط یه مشکل هست اونم همون ترجیحن شماست که اونو در نظر نمیگیره . خوب چون ما میخواستیم کارتون راه بیفته اومدیم یه شب 2 ساعت فکر کردیم که چیکار کنیم چیکار نکنیم. گفتم که بیایم اول یه ترکیبی از ستون Aو B رو تو ستون E داشته باشم یعنی اونها رو بیارم کنار هم بعدش هر کدومش که تعدادش بیشتر از یکی بود و ستون قبلش یعنی D که اسم داره خالی بود رو پاک کنه که شرط اخر شما رو هم توش بیاره و بعدشم این کلک رشتی رو که تو ستون E ثبت شده رو پاک کنه. در کا اینه همش در آنی اتفاق میفته و شما نمیبینین . 2 تا فایل رو ببینین. البته واسه فایل اولم اگه فرصت کردم رو شرط اخر شما یه فکری میکنم. خوب با این تفاسیر تو ستون E چیزی ننویس که پاک میشه.منم با توجه به همین فایلت کار کردم نمیدونم سر ستون داری نداری و ...........
امیدوارم کارت راه افتاده باشه.

http://uplod.ir/ztmcwpdbnobe/excel_Problem.rar.htm

راه های دیگه ای هم هست . که من اینو صلاح دونستم. از دیگر دوستان هم میخوام راهنمایی کنن

[sohrabahmadi]

RE: حذف داده های تکراری با 3 شرط

باسلام و تشکر زیاد از شما جناب اسماعیلی .شکر خدا مشکل من حل شده بود . ولی بازم ممنون از راهنمایی و زحمتی که کشیدین . مثل همیشه از مطالبتون استفاده کردم.

[امين اسماعيلي]

RE: حذف داده های تکراری با 3 شرط

با درود
خواهش میکنم. موفق و سربلند باشید.