اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by بن علية حاجي,

الردود الموصى بها

السلام عليكم

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

Book2.rar

تم تعديل بواسطه 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

  • Like 1
رابط هذا التعليق
شارك

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

Book2.xlsx

رابط هذا التعليق
شارك

  • أفضل إجابة

السلام عليكم

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

Book2_2.xlsx

  • Like 3
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information