按区间汇总金额

zllyyz

请各位大大支援，需求如下图（能用SQL处理的请用SQL，谢谢）：

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.2.29
   
2.     arr = [a4].CurrentRegion
   
3.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
4.     c = 5
   
5.     On Error Resume Next
   
6.     For i = 3 To UBound(arr)
   
7.         m = m + 1
   
8.         For j = 1 To c
   
9.             brr(m, j) = arr(i, j)
   
10.         Next
    
11.         For j = 6 To UBound(arr, 2)
    
12.             yf = Month(arr(2, j))
    
13.             nf = Year(arr(2, j))
    
14.             If nf = 2023 Then
    
15.                 Select Case yf
    
16.                     Case Is = 1
    
17.                         brr(m, 6) = brr(m, 6) + arr(i, j)
    
18.                     Case Is <= 3
    
19.                         brr(m, 7) = brr(m, 7) + arr(i, j)
    
20.                     Case Is <= 6
    
21.                         brr(m, 8) = brr(m, 8) + arr(i, j)
    
22.                     Case Is <= 9
    
23.                         brr(m, 9) = brr(m, 9) + arr(i, j)
    
24.                     Case Is <= 12
    
25.                         brr(m, 10) = brr(m, 10) + arr(i, j)
    
26.                 End Select
    
27.             End If
    
28.             If nf = 2023 Then brr(m, 11) = brr(m, 11) + arr(i, j)
    
29.             If nf = 2024 Then brr(m, 12) = brr(m, 12) + arr(i, j)
    
30.             If nf = 2025 Then brr(m, 13) = brr(m, 13) + arr(i, j)
    
31.             If nf = 2026 Then brr(m, 14) = brr(m, 14) + arr(i, j)
    
32.             If nf = 2027 Then brr(m, 15) = brr(m, 15) + arr(i, j)
    
33.         Next
    
34.     Next
    
35.     [a20:z1000] = ""
    
36.     Columns(1).NumberFormatLocal = "@"
    
37.     [a20].Resize(m, 15) = brr
    
38.     MsgBox "OK！"
    
39. End Sub
    

复制代码

limonet

用二楼的，一次execute(SQL)完成不了。

zllyyz

limonet 发表于 2024-2-29 23:16
用二楼的，一次execute(SQL)完成不了。

试试？多次也可以 能学到别人的思维就很好了

limonet

zllyyz 发表于 2024-3-1 08:49
试试？多次也可以 能学到别人的思维就很好了

原始表转成1维表，昨天已经完成了，日期列有58列，需要两次execute。

zllyyz

limonet 发表于 2024-3-1 09:06
原始表转成1维表，昨天已经完成了，日期列有58列，需要两次execute。

请上传  接受花花的洗礼

limonet

zllyyz 发表于 2024-3-1 09:52
请上传  接受花花的洗礼

晚点，不在此电脑上。

zllyyz

limonet 发表于 2024-3-1 10:41
晚点，不在此电脑上。

ok ok ok ok ok ok

chxw68

参与一下。