حذف تمام شماره های تکراری نه یکی از آنها

**Amir Ghasemiyan** · 2019/10/10, 13:23

سلام دوست عزيز
شما ميتونيد يك ستون كمكي اضافه كنيد. با فرمول countif تعداد تكرار هر شماره رو بدست بياريد. بعد با يك فيلتر ساده آيتم هايي كه مقدار غير 1 دارند رو انتخاب كنيد (يعني موارد تكراري) و حذف كنيد

**majideptp** · 2019/10/10, 13:43

نوشته اصلی توسط Amir Ghasemiyan

سلام دوست عزيز
شما ميتونيد يك ستون كمكي اضافه كنيد. با فرمول countif تعداد تكرار هر شماره رو بدست بياريد. بعد با يك فيلتر ساده آيتم هايي كه مقدار غير 1 دارند رو انتخاب كنيد (يعني موارد تكراري) و حذف كنيد

سپاسگزارم
اما من متوجه "فیلتر ساده" نشدم
فقط تونستم با countif تعدا رو مشخص کنم

no	no2	countif
9127778588	9127778588	1
91265665665	91265665665	2
91265665665	91265665665	2
9123233233	9123233233	1
9128788787	9128788787	1

**iranweld** · 2019/10/10, 13:54

با سلام

قابلیت فیلتر کردن رو به سر ستون اضافه کنید و تیگ یک رو بردارید باقیمانده ها که تکراری هستن رو حذف کنید و سپس از قسمتی که فیلتر کردید ، تیگ یک رو فعال کنید تا غیر تکراری ها نمایش داده شوند.

**majideptp** · 2019/10/10, 15:00

نوشته اصلی توسط iranweld

با سلام

قابلیت فیلتر کردن رو به سر ستون اضافه کنید و تیگ یک رو بردارید باقیمانده ها که تکراری هستن رو حذف کنید و سپس از قسمتی که فیلتر کردید ، تیگ یک رو فعال کنید تا غیر تکراری ها نمایش داده شوند.

[ATTACH=CONFIG]19919[/ATTACH]

بله متوجه شدم
بینهایت سپاسگزارم

- - - Updated - - -

فقط اینکه برای تعداد رکورد بالا راه حل ساده تری وجود نداره؟
گاهی دیتای من به 40-50 هزارتا میرسه!!!

**iranweld** · 2019/10/10, 18:39

نوشته اصلی توسط majideptp

بله متوجه شدم
بینهایت سپاسگزارم

- - - Updated - - -

فقط اینکه برای تعداد رکورد بالا راه حل ساده تری وجود نداره؟
گاهی دیتای من به 40-50 هزارتا میرسه!!!

فایل پیوست را بررسی کنید

کد PHP:


Sub test()

z1 = Cells(Rows.Count, "A").End(xlUp).Row

z2 = Cells(Rows.Count, "b").End(xlUp).Row + 1


Range("b2:b" & z2).ClearContents

k = 2

For i = 2 To z1

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


Range("b" & k) = Range("a" & i)


k = k + 1

End If

Next



End Sub