كيف نجد المتكرر في عامودين و نصنع عامود ثالث؟

[Jasmin]

بسم الله

أظن الصورت توضح لكم ما المطلوب

نشوف المشترك بالعامودين و نعمل عامود ثالث فيه الكل بس بدون تكرار

عمليا سيقرأ كلّ cell من عامود ويقارنها مع كل العامود الثاني فإن وجدها متكررة محا واحدة وإلا نقله

[عبد الفتاح كيرة]

المرفقات

Sub زر1_انقر()

Dim x As Long

Dim lastr As Long

Dim col1 As Range

Dim col2 As Range

Dim c1 As Range

Dim c2 As Range

Dim col3 As Range

Dim c3 As Range

lastr = Range("a" & Rows.Count).End(xlUp).Row

x = 1

Set col1 = Range("a2:a" & lastr)

Set col2 = Range("b2:b" & lastr)

Set col3 = Range("c2:c" & lastr)

col3.Cells.ClearContents

For Each c1 In col1

         For Each c2 In col2

                If c1.Value = c2.Value Then

                    col3.Cells(x, 1).Value = c1.Value

                    x = x + 1

                End If

         Next c2

Next c1

Set col1 = Nothing

Set col2 = Nothing

Set col3 = Nothing

End Sub

القيم المشتركة بين عمودين.zip

[Jasmin]

أخي الكريم جعله الله في ميزان حسناتك..

[المشاغب الصغير]

هل يمكن عمل ذلك لكن في كل عمود منصل بمعني المكرر في العمود الاول A يذهب الي C

و المكرر في B يذهب الي D

[يحيى حسين]

السلام عليكم و رحمة الله

شاهد هذا الرابط فيه شرح قد يفيدك

http://excel4us.com/blog/?p=161

دمتم في حفظ الله

[Jasmin]

شكرا لكم..