مطلوب مساعدة في معرفة القيم المكررة

[nicebird]

أخوتي الأعزاء خبراء الأكسل ،إذا كان لدي عمود يحتوي على أرقام ، هل ممكن من خلال الأكسل أن يفرز لي الأرقام المتكررة ، بحيث يفرز لي الأرقام المتكررة في تقرير منفصل.

المثال المرفق : يوضح لنا بالعمود A1 ، قيم ، ويوجد بالعمود قيم مكررة مثل ، 20 و 26 و 14 65 و .....

أريد إستخراج تقرير مفصل بالقيم المكررة بطريقة سريعة ، تلقائي وليس عن طريق تصفية تلقائية لكل قيمة ومعرفة ما إذا كانت مكررة أم لا ؟

ارجوا المساعدة وكل عام وأنتم بخير .

TEST.zip

[علي السحيب]

شاهد المرفق،

__________________.rar

[nicebird]

أخي العزيز علي ، كل عام وأنت بخير ،والله ما قصريت ، بس يا عزيزي القيمة 56 و 35 و 58 و 48 ليس مكررة بالقائمة الأصلية ..يفترض لا تظهر في قائمة القيم المكررة ، أليس كذلك .

لذا من المفروض أن تظهر في قائمة القيم المكررة فقط القيم المكررة من القائمة الأصلية ..

ارجو التأكد من المعادلات والمحاولة مرة أخرى .. وشكرا لك على تعاونك

[علي السحيب]

في الوقت الذي قمت فيه بوضع الرد على السؤال كنت في عجلة من أمري ولم أتأكد من أن القيم التي تم سردها هي القيم المتكررة فقط أو أكثر من ذلك ..

على كل حال تم إضافة التعديل المطلوب على الصيغ ..

وبالإضافة إلى ذلك قمت بكتابة الكود التالي ليقوم بفرز القيم المتكررة نيابة عن خمس أعمدة من الصيغ .. فأختر من الطريقتين ما يناسبك.

Private Sub Worksheet_Change(ByVal Target As Range)

TC = Target.Column
TR = Target.Row

If TC = 1 And TR > 1 And TR < 23 Then

Set MyRange = [C2:C22]

Application.ScreenUpdating = False

MyRange.ClearContents

For R = 2 To 22
If Application.WorksheetFunction.CountIf([A2:A22], Cells(R, 1)) > 1 Then
With Columns(3).Rows(65536).End(xlUp)
            .Offset(1, 0) = Cells(R, 1)
End With
End If
Next

For Each Cell In MyRange
If Application.WorksheetFunction.CountIf(MyRange, Cell) > 1 Then
Cell.ClearContents
End If
Next

MyRange.Sort [C2], xlAscending

Application.ScreenUpdating = True

End If

End Sub

شاهد المرفق،

_______________________________________.rar

[nicebird]

بارك الله بيك يا اخي الغالي علي ، جزاك الله ألف خير ، ما شاء الله عليك ، اللهم لا حسد ، وعيني عليك بارده ، الله يوفقك ويسدد خطاك ويغفر لوالديك يا رب يا رحيم يا كريم أجزي لأخي في الله

( علي) كل خير ووفقه وأجعلها في ميزان حسناته ، اللهم أمين .