[發問] 統計筆數及計算數量

b9208

前輩您好
如附檔內說明「統計筆數」及「計算數量」
「統計筆數」：條件欄位相同者，只算一筆資料。
「計算數量」：條件欄位相同者，只計算數量值〞最大值〞。
非常感謝指導

T1.rar (5.31 KB)

下載次數: 35

2013-4-18 10:10

b9208

「統計筆數」：條件欄位相同者，只算一筆資料。
「計算數量」：條件欄位相同者，只加總數量值〞最大值〞。
懇請先進們指導
感激不盡

ML089

先給 O8 公式
=COUNT(MATCH(ROW($8:$24)-7,MATCH($N8&$C$8:$C$24&O$7,TEXT($B$8:$B$24,"ddd")&$C$8:$C$24&$D$8:$D$24,),))
陣列公式(先按CTRL、SHIFT不放，再按ENTER三鍵齊按輸入)

O19公式比較複雜要想一下，等晚上再研究

ML089

下載 (24.98 KB)

2013-4-24 11:16

發帖後，公式裡面怎會有這些表情符號，要如何清除?

Hsieh

回復 4# ML089

發文時，勾選下方禁用表情選項

Hsieh

回復 1# b9208

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. Set d1 = CreateObject("Scripting.Dictionary")
   
4. For Each a In Range([B8], [B8].End(xlDown))
   
5. m = a.Text & "," & a.Offset(, 2) & "," & a.Offset(, 4)
   
6. n = a.Text & "," & a.Offset(, 1) & "," & a.Offset(, 2)
   
7.    If d(m) <= a.Offset(, 7) Then _
   
8.    d(m) = a.Offset(, 7)
   
9.    d1(n) = ""
   
10. Next
    
11. For Each ky In d.keys
    
12.   ar = Split(ky, ",")
    
13.   d(ar(0) & ar(1)) = d(ar(0) & ar(1)) + d(ky)
    
14. Next
    
15. For Each ky In d1.keys
    
16.   ar = Split(ky, ",")
    
17.   d1(ar(0) & ar(2)) = d1(ar(0) & ar(2)) + 1
    
18. Next
    
19. For Each a In [N8:N14]
    
20.    For Each c In [O7:P7]
    
21.      Cells(a.Row, c.Column) = IIf(d1(a & c) = "", 0, d1(a & c))
    
22.    Next
    
23. Next
    
24. For Each a In [N19:N25]
    
25.    For Each c In [O7:P7]
    
26.      Cells(a.Row, c.Column) = IIf(d(a & c) = "", 0, d(a & c))
    
27.    Next
    
28. Next
    
29. End Sub

複製代碼

ML089

O19公式
=SUM(IF(FREQUENCY(IF($N19&O$18=TEXT($B$8:$B$24,"ddd")&$D$8:$D$24,MATCH(TEXT($B$8:$B$24,"ddd")&$D$8:$D$24&$F$8:$F$24,TEXT($B$8:$B$24,"ddd")&$D$8:$D$24&$F$8:$F$24,),""),ROW($8:$24)-7), SUBTOTAL(4,OFFSET($I$7,ROW($8:$25)-7,,FREQUENCY(IF($N19&O$18=TEXT($B$8:$B$24,"ddd")&$D$8:$D$24,MATCH(TEXT($B$8:$B$24,"ddd")&$D$8:$D$24&$F$8:$F$24,TEXT($B$8:$B$24,"ddd")&$D$8:$D$24&$F$8:$F$24,),""),ROW($8:$24)-7))),0))
三鍵輸入

實用還是以6樓超版的VBA好用

公式還是有些限制，如同類需排序在一起才能統計
資料以日期排序往下，"星期" 就會變成循環，星期+組別+人員 可能就會被分開，
因此使用公式時需將同類 "星期" 排序才能正確。

ML089

回復 6# Hsieh

超版:
如有空可否提供O8的VBA，這樣此題VBA及公式就雙齊全。

ML089

回復 5# Hsieh

在他人意見下方按回覆時，下方有 "禁用表情選項" 而且內定為勾選

若是自行回答  按下方的 發表回覆，下方沒有 "禁用表情選項"

這些表情隔天又會不見

滿困擾的

Hsieh

回復 9# ML089

隔天表情符號消失，是因為我幫你編輯過了