怎样统计出每个时间段不同支付方式的金额总和

waw751115

请教大侠们：怎样根据表中"支付时间"列统计出每个时间段不同支付方式的金额总和？

ykcbf1100

附件下载后无法打开，请重新上传附件。

waw751115

ykcbf1100 发表于 2024-12-20 06:55
附件下载后无法打开，请重新上传附件。

已重新上传

loirol

函数法

=SUMPRODUCT(((INDEX(HOUR(TEXTSPLIT($K5,"-")),1)=HOUR($E$2:$E$543))*(SUBSTITUTE(L$4,"金额","")=$G$2:$G$543)*(--$C$2:$C$543)))

shiruiqiang

loirol

代码法

z865593849

按小时汇总

ykcbf1100

参与一下，比较通用，统计时间段随便改不用改代码了。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.12.20
   
2.     Application.ScreenUpdating = False
   
3.     r = Cells(Rows.Count, 1).End(3).Row
   
4.     arr = [a1].Resize(r, 9).Value
   
5.     bt = [{"微信","支付宝","现金"}]
   
6.     [l2:n25] = ""
   
7.     zrr = [k2:n25].Value
   
8.     For i = 2 To UBound(arr)
   
9.         t = TimeValue(arr(i, 6))
   
10.         For x = 1 To UBound(zrr)
    
11.             b = Split(zrr(x, 1), "-")
    
12.             t1 = TimeValue(b(0))
    
13.             t2 = TimeValue(b(1))
    
14.             For k = 1 To UBound(bt)
    
15.                 If InStr(arr(i, 7), bt(k)) Then n = k + 1
    
16.             Next
    
17.             If t >= t1 And t <= t2 Then
    
18.                 zrr(x, n) = zrr(x, n) + Val(arr(i, 3))
    
19.             End If
    
20.         Next
    
21.     Next
    
22.     [k2:n25].Value = zrr
    
23.     Application.ScreenUpdating = True
    
24.     MsgBox "OK！"
    
25. End Sub
    
26. 
    

复制代码

Yalishanda30

waw751115 发表于 2024-12-20 07:25
已重新上传

附件供参考