فیلتر و جلوگیری از تکراری ها

[af3oun]

با سلام تو این آموزش میخوام از ابزار Conditional Formatin استفاده کنم و شکلهای مختلف داده های تکراری رو رنگی کنم این فرمولها رو توی قسمت فرمول نویسی Conditional Formating وارد میکنیم 1- رنگی شدن داده های تکراری

 =COUNTIF(C:C;C6)>1 

2- رنگی شدن داده هایی که 2بار تکرار شده اند

 =COUNTIF(D:D;D6)=2 

3- رنگی شدن داده هایی که 3بار تکرار شده اند

 =COUNTIF(E:E;E6)=3 

4- رنگی شدن داده هایی که بیش از 2بار تکرار شده اند

 =COUNTIF(G:G;G6)>2 

5- رنگی شدن اولین داده از داده های تکراری

 =IF(COUNTIF($I$6:$I$28;I6)=1;FALSE;IF(COUNTIF($I$6:I6;I6)=1;TRUE;FALSE)) 

6- رنگی شدن دومین داده به بعد ، از داده های تکراری

 =NOT(IF(COUNTIF($K$6;K28)=1;TRUE;COUNTIF($K$6:K6;K6)=1)) 

7- رنگی شدن داده های بدون تکراری

 =COUNTIF($J$6:$J$28;J6)=1 

8- رنگی شدن داده های منحصر به فرد

 =IF(COUNTIF($K$6;K28)=1;TRUE;COUNTIF($K$6:K6;K6)=1) 

=========================================== و با استفاده از فرمول زیر میتوان داده های منحصر به فرد رو استخراج کرد فرمول به صورت آرایه وارد شود

 =IFERROR(INDEX(K$6:K$28;MATCH(0;COUNTIF($L$5:L5;K$6:K$28&"");0));"") 

و با استفاده از فرمول زیر میتوان داده های بدون تکرار رو استخراج کرد فرمول به صورت آرایه وارد شود

 =IFERROR(INDEX(K$6:K$28;MATCH(0;COUNTIF(M5:$M$5;K$6:K$28)+(COUNTIF(K$6:K$28;K$6:K$28)1);0));"") 

فایل ضمیمه گردید

سلام ببخشید من تازه دارم با اکسل کار می کنم و خیلی وارد نیستم یه سوال داشتم فایل اکسل من دوتاستون محتوا داره ستون اول شماره هست و ده رقمی هست ستون دومشماره هست و 5 رقمی هست مثلاْ: 9123456789 برای ستون a ستون b= 45896 یک سری شماره 10 رقمی دارم که میخوام اون هایی که ستون a مشترک هست رو مشخص کنم و در واقع مشترک ها رو خروجی بگیرم برای این مورد اول مشترک ها رو هایلایت می کنم مثلاْ*به رنگ زرد بعد میخوام این زرد ها رو با فیلتر پشت سر هم قرار بدم و کپی کنم توی فایل دیگه متاسفانه چون حجم دیتابیس زیاد هست و هر بار باید بالای 500 هزار ردیف چک بشه اکسل هنگ می کنه خواستم بدون راه بهتری هست یا اینکه نرم افزاری که بشه اینکار رو انجام داد؟ تشکر

[amir_ts]

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

[iranweld]

با سلام

یک ماکرو برای شما تهیه گردید که کلیه شماره های مشترک ستون A,B را در ستون D,C لیست مینماید

Sub test()

Columns("C:D").ClearContents

K = 1
Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row


Z2 = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row

For I = 1 To Z1
For J = 1 To Z2

XX = InStr(Range("A" & I), Range("B" & J))

If XX > 0 Then

Range("C" & K) = Range("A" & I)

Range("D" & K) = Range("B" & J)

K = K + 1

End If

Next

Next

End Sub