[已解决]SQL查询过于复杂

张雄友

查询过于复杂。

最佳答案

月排行榜 / 总排行榜

dsmch

2014-12-3 08:45

1. On Error Resume Next
   
2. Dim arr, brr(1 To 60000, 1 To 5), d, i%, j&, s&, n&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. For i = 1 To Sheets.Count
   
5.     If Sheets(i).Name <> "汇总" Then
   
6.         arr = Sheets(i).Range("a1").CurrentRegion
   
7.         For j = 3 To UBound(arr)
   
8.             If Not d.exists(arr(j, 1)) Then
   
9.                 s = s + 1
   
10.                 d(arr(j, 1)) = s
    
11.                 brr(s, 1) = arr(j, 1)
    
12.                 brr(s, 2) = arr(j, 2)
    
13.                 brr(s, 3) = arr(j, 4)
    
14.                 brr(s, 4) = arr(j, 3) '最高价
    
15.                 brr(s, 5) = arr(j, 3) '最低价
    
16.             Else
    
17.                 n = d(arr(j, 1))
    
18.                 brr(n, 2) = brr(n, 2) + arr(j, 2)
    
19.                 brr(n, 3) = brr(n, 2) + arr(j, 4)
    
20.                 brr(n, 4) = IIf(arr(j, 3) > brr(n, 4), arr(j, 3), brr(n, 4))
    
21.                 brr(n, 5) = IIf(arr(j, 3) < brr(n, 5), arr(j, 3), brr(n, 5))
    
22.             End If
    
23.         Next
    
24.     End If
    
25. Next
    
26. Sheets("汇总").Activate
    
27. [a2:e2] = Array("名称", "数量", "金额", "最高单价", "最低单价")
    
28. Range("a3").Resize(s, UBound(brr, 2)) = brr
    
29. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. On Error Resume Next
   
2. Dim arr, brr(1 To 60000, 1 To 5), d, i%, j&, s&, n&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. For i = 1 To Sheets.Count
   
5.     If Sheets(i).Name <> "汇总" Then
   
6.         arr = Sheets(i).Range("a1").CurrentRegion
   
7.         For j = 3 To UBound(arr)
   
8.             If Not d.exists(arr(j, 1)) Then
   
9.                 s = s + 1
   
10.                 d(arr(j, 1)) = s
    
11.                 brr(s, 1) = arr(j, 1)
    
12.                 brr(s, 2) = arr(j, 2)
    
13.                 brr(s, 3) = arr(j, 4)
    
14.                 brr(s, 4) = arr(j, 3) '最高价
    
15.                 brr(s, 5) = arr(j, 3) '最低价
    
16.             Else
    
17.                 n = d(arr(j, 1))
    
18.                 brr(n, 2) = brr(n, 2) + arr(j, 2)
    
19.                 brr(n, 3) = brr(n, 2) + arr(j, 4)
    
20.                 brr(n, 4) = IIf(arr(j, 3) > brr(n, 4), arr(j, 3), brr(n, 4))
    
21.                 brr(n, 5) = IIf(arr(j, 3) < brr(n, 5), arr(j, 3), brr(n, 5))
    
22.             End If
    
23.         Next
    
24.     End If
    
25. Next
    
26. Sheets("汇总").Activate
    
27. [a2:e2] = Array("名称", "数量", "金额", "最高单价", "最低单价")
    
28. Range("a3").Resize(s, UBound(brr, 2)) = brr
    
29. End Sub

复制代码

张雄友

dsmch 发表于 2014-12-3 08:45

第19句错了， brr(n, 3) = brr(n, 2) + arr(j, 4)
应为：brr(n, 3) = brr(n, 3) + arr(j, 4)