حذف هر دو داده تکراری در یک ستون

[everynight]

با سلام و درورد خدمت همه دوستان
حقیقتش من یک مشکل داشتم . می خواستم بدونم چه جوری میشه در یک ستون که مثلا 2000 داده داره داده های تکراری رو پیدا و همشون رو حذف کنه. مثلا اگر یک رقم 3 بار تکرار شده هر 3 رقم رو پیدا کنه و حذف کنه.:huh:

پیشا پیش از کمک همه دوستان سپاسگذارم

[~M*E*H*D*I~]

RE: حذف هر دو داده تکراری در یک ستون

از تب DATA گزینه Remove Duplicates روانتخاب ستون مورد نظر در پنجره باز شده مشخص و OK کنید

[nayyeri1982]

RE: حذف هر دو داده تکراری در یک ستون

با احترام
این ابزار Remove Duplicates اگر سه تا دیتای تکراری وجود اشته باشه، دوتاشو پاک می کنه و یکیشو نگه می داره.
گویا دوستمون می خوان هر سه تاش پاک بشن....

ضمنا در مورد کار با این ابزار یه سوال برام پیش اومد و اون اینکه اگر ابتدا محدوده انتخاب شامل کل ستون (ها) باشه (روی سرستون کلیک کنیم) ،در جدولی که باز می شه یه گزینه هست بنام my data has headers که می تونیم تیک بزنیم یا نزنیم. فرقش چیه?
البته درصورت انتخاب محدوده محدود این جدول باز نمی شه و یک باکس دیگه باز می شه که کاری بهش ندارم.

[everynight]

RE: حذف هر دو داده تکراری در یک ستون

با احترام
این ابزار Remove Duplicates اگر سه تا دیتای تکراری وجود اشته باشه، دوتاشو پاک می کنه و یکیشو نگه می داره.
گویا دوستمون می خوان هر سه تاش پاک بشن....

ضمنا در مورد کار با این ابزار یه سوال برام پیش اومد و اون اینکه اگر ابتدا محدوده انتخاب شامل کل ستون (ها) باشه (روی سرستون کلیک کنیم) ،در جدولی که باز می شه یه گزینه هست بنام my data has headers که می تونیم تیک بزنیم یا نزنیم. فرقش چیه?
البته درصورت انتخاب محدوده محدود این جدول باز نمی شه و یک باکس دیگه باز می شه که کاری بهش ندارم.

دقیقا همون طور که اشاره کردید. من می خوام همه داده های تکراری حذف بشن. با Remove Duplicates یکی از داده های تکراری باقی می مونه. چه جوری میشه همشون رو حذف کرد؟؟؟؟

ممنون از راهنمایی هاتون

[1q2w3e4rr]

RE: حذف هر دو داده تکراری در یک ستون

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

Sub a()
Dim c As Range
Dim n As Double
Dim lRow As Long, lCol As Integer, mrow As Long, mCol As Integer, i As Integer
 lCol = ActiveSheet.UsedRange.Columns.Count
 mrow = 0
 For i = 1 To lCol
 lRow = Range(Cells(Rows.Count, i), Cells(Rows.Count, i)).End(xlUp).Row

 If lRow > mrow Then
 mrow = lRow
 mCol = i
 Else
 End If
 Next i

n = mrow
For Each c In Range(Cells(1, 1), Cells(n, 1))
For i = 1 To n
If Application.WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(n, 1)), c) > 1 Then
f = Cells(i, 1).Value
End If
If Cells(i, 1) = f Then
Cells(i, 1) = ""
End If
Next i
Next

End Sub 

فایل شامل برنامه:
Book5.xlsm

[hamidreza313]

RE: حذف هر دو داده تکراری در یک ستون

با سلام خدمت دوستان عزیز
علاوه بر روش های ذکر شده توسط اساتید گرامی ، اگر فرض کنیم ستون اطلاعات شما ستون Aباشد آنگاه شما می توانید در ستون دوم کنار ستون اصلی خودتان فرمول زیر را در سلول اول نوشته و سپس به تمام سلولهای پائینی تعمیم داده و بعد از paste vlue کردن ستون دوم ، آنگاه فقط اعدادی را خواهید داشت که تنها یک بار آمده و نه بیشتر و سپس با یک سورت ساده کلیه اطلاعاتان به صورتی که می خواستید تلخیص میشود.

=IF(COUNTIF(A:A;A1)=1;A1;"") 

[~M*E*H*D*I~]

RE: حذف هر دو داده تکراری در یک ستون

با احترام
این ابزار Remove Duplicates اگر سه تا دیتای تکراری وجود اشته باشه، دوتاشو پاک می کنه و یکیشو نگه می داره.
گویا دوستمون می خوان هر سه تاش پاک بشن....

ضمنا در مورد کار با این ابزار یه سوال برام پیش اومد و اون اینکه اگر ابتدا محدوده انتخاب شامل کل ستون (ها) باشه (روی سرستون کلیک کنیم) ،در جدولی که باز می شه یه گزینه هست بنام my data has headers که می تونیم تیک بزنیم یا نزنیم. فرقش چیه?
البته درصورت انتخاب محدوده محدود این جدول باز نمی شه و یک باکس دیگه باز می شه که کاری بهش ندارم.

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

[Amin_D]

RE: حذف هر دو داده تکراری در یک ستون

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

Sub a()
Dim c As Range
Dim n As Double
Dim lRow As Long, lCol As Integer, mrow As Long, mCol As Integer, i As Integer
 lCol = ActiveSheet.UsedRange.Columns.Count
 mrow = 0
 For i = 1 To lCol
 lRow = Range(Cells(Rows.Count, i), Cells(Rows.Count, i)).End(xlUp).Row

 If lRow > mrow Then
 mrow = lRow
 mCol = i
 Else
 End If
 Next i

n = mrow
For Each c In Range(Cells(1, 1), Cells(n, 1))
For i = 1 To n
If Application.WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(n, 1)), c) > 1 Then
f = Cells(i, 1).Value
End If
If Cells(i, 1) = f Then
Cells(i, 1) = ""
End If
Next i
Next

End Sub 

فایل شامل برنامه:
Book5.xlsm

سلام
ولی دوست عزیز همین فایلی کخ برای نمونه گذاشتین اعداد یونیک مثل 2 و3 و5رو هم پاک میکنه
با اجرای برنامه فقط عدد 8 میمونه!!

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

RE: حذف هر دو داده تکراری در یک ستون

با درود
با اجازه از دوستمون. یه فایل هم من میزارم ببین به کار میاد.

[jagwar87]

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

[saman501]

اینم یک کد ساده از طرف من خیلی راحت کار میکنه

c = 0
For i = 1 To 100
For j = 1 To 100
If Sheet2.Range("A" & i).Value = Sheet1.Range("A" & j) Then

c = c + 1
Sheet3.Range("A" & c).Value = Sheet2.Range("A" & i).Value
End If
Next j
Next i

[majid_mx4]

با سلام

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

Sub mir()
Dim Lastrow As Long
With ActiveSheet
    Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
End With
For Each cell In Range("a2:a" & Lastrow)
mm = Evaluate("=COUNTIF(A:A," & cell.Value & ")")
 If mm > 1 Then
    kep = cell.Value
For i = 1 To Lastrow Step 1
    If Range("a" & i).Value = kep Then
Range("a" & i).Clear
End If
Next
End If
Next
End Sub

پایدار باشید میر

[h.haghgouei]

سلام میتونید از فرمول زیر در اکسل استفاده کنید :
=IF(COUNTIF($A$1:$A$2000,A1)=1,0,1)
یک ستون جدید ایجاد کنید. فرمل رو در اولین سلول ستون paste کنید. در این فرمول فرض کردم که ستون داده هاتون اسمش A هست که 2000 تا سلول داره و اولین دادتون هم تو سلول A1 هست. در غیر این صورت میتونید اعداد و نام سلول را در فرمول بالا تصحیح کنید. حالا در ستون جدید ایجاد شده که فرمول رو در اون paste کردید وایستید. با استفاده از علامت مربع کنار سلول، محتویات سلول رو با دراگ کردن تا سلول 2000 ادامه بدین. الان جلوی داده های تکراری عدد 1 و داده های منحصر به فرد عدد 0 رو میبینید. حالا روی سلول اول ستون ایجاد شده وایسید. از منوی data گزینه ی فیلتر رو انتخاب کنید. یک منو تو سلول اول ایجاد میشه با کلیک بر روی اون رو باز کنید. حالا اگه میخواید داده های تکراری حذف بشند تیک کنار عدد 1 رو بردارید. اگر هم میخواید فقط داده های تکراری بمونن تیک عدد 0 رو بردارید.
امیدوارم به کارتون بیاد
هادی حقگویی