怎样统计订单金额

waw751115

请教大侠们怎样用vba 的sql查询求得表中订单金额出现的次数？结果显示在表中黄色区域。

ykcbf1100

附件供参考。。。

ykcbf1100

代码供参考。。

1. Sub ykcbf()   '//2024.3.11
   
2.     Dim arr, d
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     With Sheets("Sheet1")
   
6.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
   
7.         arr = .[a1].Resize(r, 1)
   
8.         For i = 2 To UBound(arr)
   
9.             s = arr(i, 1)
   
10.             d(s) = d(s) + 1
    
11.         Next
    
12.         .[f6:g1000] = ""
    
13.         .[f6].Resize(d.Count, 2) = WorksheetFunction.Transpose(Array(d.keys, d.Items))
    
14.         .[f6].Resize(d.Count, 2).Sort .[f6], 1
    
15.     End With
    
16.     Set d = Nothing
    
17.     Application.ScreenUpdating = True
    
18.     MsgBox "OK！"
    
19. End Sub
    

复制代码

waw751115

ykcbf1100 发表于 2024-3-11 13:33
附件供参考。。。

谢谢专家的解答！祝幸福快乐健康

沈默00

沈默00

练个手，结果放在K列

fzxba

SQL = "SELECT 订单金额,COUNT(订单金额) AS 次数 FROM [sheet1$] GROUP BY 订单金额"

ykcbf1100

沈默00 发表于 2024-3-11 17:48
练个手，结果放在K列

好久不见，去哪潇洒去了？

沈默00

ykcbf1100 发表于 2024-3-11 18:47
好久不见，去哪潇洒去了？

老师好，，，，哪有潇洒的机会哟，跟着师傅下基层做项目去了，难得过来坛里走一趟

waw751115

沈默00 发表于 2024-3-11 17:48
练个手，结果放在K列

谢谢热心解答