پیدا کردن داده های تکراری و دخیره آن ها

[magic]

یه کاری که تو اکسل زیاد انجام میشه پیدا کردن داده های تکراری و حذف اون هاست. ولی این بار من دقیقا داده های تکراری رو نیاز دارم!
ما 3 ستون یا بیشتر داریم که یکسری داده یا شماره توی اونها وارد شده. کاری که میخوام انجام بدم اینکه از این ستون ها and بگیرم. یعنی به طور مثال فقط شماره هایی که در هر سه ستون باشند رو در یک ستون دیگه به من نمایش بده. این کار چطور امکان پذیر هست؟

[iranweld]

با سلام

در صورتیکه دیتا در سه ستون A,B,C باشند میتوانید از ماکروی ذیل برای نمایش داده های تکراری و غیر تکراری استفاده کنید

Sub test()

On Error Resume Next

Range("f2:G100000").ClearContents

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

Set Rng = Sheet1.Range("A2:C" & Z1)

Dim LIST1 As New Collection

Dim LIST2 As New Collection

K = 2

For Each CELL In Rng

If Application.CountIf(Rng, CELL) > 1 Then

LIST1.Add CELL, CStr(CELL)
Else
LIST2.Add CELL, CStr(CELL)

End If

Next

For I = 1 To LIST1.Count

Range("F" & K) = LIST1.Item(I)

K = K + 1

Next

K = 2

For I = 1 To LIST2.Count

Range("G" & K) = LIST2.Item(I)

K = K + 1

Next


End Sub 

[hosein]

ببخشید اشتباه شد