फ़िल्टर की गई रेंज में सशर्त गणना

Question

मेरे पास लगभग दस लाख पंक्तियों वाला शीट है। एक विशेष कॉलम के भीतर, मेरे पास 0 से 50,000 तक की संख्या है।

मैं फ़िल्टर की गई सीमा के भीतर निर्धारित करने की कोशिश कर रहा हूं, फ़िल्टर की गई सीमा में कितनी कोशिकाएं एक निश्चित मूल्य के भीतर आती हैं।

मैं आसानी से एक =COUNTIF(L:L, "<5000") कितने पंक्तियों 5000 से कम, या =COUNTIFS(L:L,">500",L:L,"<5000") कुल श्रेणी की संख्याएं कि दो संख्याओं के बीच गिर देखने के लिए देखने के लिए क्या कर सकते हैं, लेकिन मैं एक में इन के दोनों कैसे करना है को समझ नहीं सकता फ़िल्टर की गई रेंज।

आम तौर पर फ़िल्टर किए गए डेटा के साथ मैं =SUBTOTAL फ़ंक्शन का उपयोग करता हूं, लेकिन मैं नहीं देख सकता कि कैसे स्थापित =SUBTOTAL फ़ंक्शंस इस उदाहरण में काम करेगा।

कोई विचार?

Answer 1

यहाँ एक VBA हल है के लिए है। मैंने कोड पर टिप्पणी की है, इसलिए आपको इसे समझने में कोई समस्या नहीं होनी चाहिए, लेकिन यदि आप ऐसा करते हैं तो बस वापस पोस्ट करें।

Sub Sample() 
    Dim ws As Worksheet 
    Dim lRow As Long, n As Long 
    Dim rng As Range, rngArea As Range 

    '~~> Change this as applicable 
    Set ws = ThisWorkbook.Sheets("Sheet1") 

    With ws 
     '~~> Finding last row in Col L 
     lRow = .Range("L" & .Rows.Count).End(xlUp).Row - 1 

     'Debug.Print Intersect(_ 
           .Range("L2:L" & lRow), _ 
           .Range("L1").Offset(1, 0).SpecialCells(xlCellTypeVisible) _ 
          ).Address 

     '~~> This is your range of all visible cells till the last row in column L 
     '~~> except the header: 
     Set rng = Intersect(_ 
           .Range("L2:L" & lRow), _ 
           .Range("L1").Offset(1, 0).SpecialCells(xlCellTypeVisible) _ 
          ) 

     '~~> Since the area could be non contiguous we use Countif per area and add up 
     For Each rngArea In rng 
      n = n + Application.Evaluate("=COUNTIFS(" & rngArea.Address & _ 
             ","">500""," & rngArea.Address & ",""<5000"")") 
     Next 

     Debug.Print n 
    End With 
End Sub 

Answer 2

मुझे यकीन है कि यह सबके साथ हुआ है, लेकिन 30 मिनट की तरह इस विषय पर पोस्ट पढ़ने के बाद और कुछ भी नहीं ढूंढने के बाद, मैंने SO पर पोस्ट किया, केवल 4 मिनट बाद समाधान ढूंढने के लिए ...... ।

यह समाधान डेटा स्तंभ एल में है, जहां मानदंड है कि मैं के लिए खोज कर रहा हूँ कि "5000 के तहत"

=SUMPRODUCT(SUBTOTAL(2,OFFSET(L7,ROW(L7:L999999)-ROW(L7),,1)),--(L7:L999999 < 5000))