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

Yalishanda30

ykcbf1100 发表于 2024-12-20 08:18
参与一下。。。

老师你的字典没用上

ykcbf1100

Yalishanda30 发表于 2024-12-20 08:36
老师你的字典没用上

一开始想用的，后来发现可以不用字典，就没删除

ykcbf1100

Yalishanda30 发表于 2024-12-20 08:36
老师你的字典没用上

好久不见，最近忙啥呢？

飞天篮球猪

插件解法...仅供参考

waw751115

loirol 发表于 2024-12-20 07:50
代码法

谢谢解答！么么哒

waw751115

shiruiqiang 发表于 2024-12-20 07:43

谢谢解答！么么哒

Yalishanda30

ykcbf1100 发表于 2024-12-20 08:38
好久不见，最近忙啥呢？

瞎忙

waw751115

ykcbf1100 发表于 2024-12-20 08:18
参与一下。。。

谢谢热心解答

西瓜籽

重在参与！！！！

Qs18

1. Sub qs()
   
2. Dim arr, i, dic
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.Range("a1").CurrentRegion.Value
   
5. ReDim brr(1 To UBound(arr), 1 To 20)
   
6. brr(1, 1) = "时间段"
   
7. m = 1: c = 1
   
8. For i = 2 To UBound(arr)
   
9.     s = Format(arr(i, 6), "hh")
   
10.     s = s & ":00:00-" & s & ":59:59"
    
11.     If Not dic.exists(s) Then
    
12.     m = m + 1
    
13.     dic(s) = m
    
14.     End If
    
15.     s2 = arr(i, 7)
    
16.     If Not dic.exists(s2) Then
    
17.         c = c + 1
    
18.         dic(s2) = c
    
19.     End If
    
20.     r = dic(s): cl = dic(s2)
    
21.     brr(r, 1) = s: brr(1, cl) = s2: brr(r, cl) = brr(r, cl) + Val(arr(i, 3))
    
22. Next
    
23. Sheet1.Range("k4").Resize(m, c) = brr
    
24. Sheet1.Range("k4").Sort key1:=Range("k4"), Order1:=2, Header:=xlYes
    
25. End Sub

复制代码