طريقة استخراج ثاني اصغر رقم مع تجاهل التكرار والفراغات

[Mohamed Abd Elfatah]

السلام عليكم

لدي عمود يحتوي على مجموعة ارقام لفواتير واريد استخراج ثاني اصغر رقم وعدد الفواتير مع تجاهل التكرار والفراغات والصفر فكيف يتم ذلك مرفق ملف

Book2.rar

تم تعديل نوفمبر 21, 2022 بواسطه Mohamed Abd Elfatah

[بن علية حاجي]

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

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

 

Book2.xlsx

[محي الدين ابو البشر]

VBA?

Sub test()
    Dim a: Dim i&
    a = Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row)
    With CreateObject("scripting.dictionary")
        For i = 1 To UBound(a)
            If a(i, 1) <> 0 And a(i, 1) <> "" Then
                If Not .exists(a(i, 1)) Then: .Add a(i, 1), ""
            End If
        Next
       Cells(4, 4) = Application.Small(Application.Transpose(.keys), 2)
       Cells(4, 5) = .Count
    End With
End Sub

 

Book2.xlsm

[Mohamed Abd Elfatah]

شكرا جدا أستاذ بن علية حاجي بس مفيش طريقة مباشرة غير العمود المساعد لأن العملاء كتير وكمان كل عميل ليه صفحة وكمان عدد الفواتير 5 والمعادلة جايباهم 3 فواتير

Book2.xlsx

[Mohamed Abd Elfatah]

شكرا جدا استاذ محى الدين  الطريقة دى مش فاهمها ومش عارف امكانية تطبيقها عندى

[محي الدين ابو البشر]

Book2.xlsm

[Mohamed Abd Elfatah]

شكرا استاذ محى على الترجمة حضرتك فهمتنى غلط انا ما اشتغلتش على VBA قبل كده واسف على الازعاج

[بن علية حاجي]

السلام عليكم

هذا حل آخر بالمعادلات دون عمود مساعد والمعادلات هي معادلات صفيف (يجب تأكيدها بـ CTRL+SHIFT+ENTER)...

Book2_2.xlsx

[Mohamed Abd Elfatah]

شكراً جدأً جداً استاذ بن علية حاجي حضرتك حلت لي المشكلة بجد شكرا لحضرتك كنير