SQL语句如何做多数列合计，同时以某一特定数列排序？

ahesay

每天要经手的数据太多了，一个人干不完活 ，天天用数据透视，搞不不定，才学会了点sql语句，求老师们帮忙解答下，谢谢

ahesay

自己先顶一下

cui26896

常规抓取作一表
SQL ="select 货号,品类,售卖日期,CTR FROM [数据$]"
求统计的作一表
SQL ="select sum(周销量),sum(uv),sum(收藏人数),sum(加购人数),(收藏人数+加购人数)/uv as 收藏加购率,""  FROM [数据$]"

xyxcc177

不喜欢工作，帮顶

ahesay

cui26896 发表于 2019-11-11 07:56
常规抓取作一表
SQL ="select 货号,品类,售卖日期,CTR FROM [数据$]"
求统计的作一表

月报表，是希望坐在一张表里面比较直观看到产品对比，还是谢谢你。

EXCELLMY

ahesay 发表于 2019-11-11 10:01
月报表，是希望坐在一张表里面比较直观看到产品对比，还是谢谢你。

http://club.excelhome.net/forum. ... 3987&extra=page%3D1

同一工作薄中，可考虑用字典实现数据透视

lsdongjh

1.     SQL = "TRANSFORM Sum(销量) AS 销量之合计 " & _
   
2.                 "SELECT 货号, 品类, 首卖日期, " & _
   
3.                 "Sum(销量) AS 周销量, Sum(uv) AS uv, " & _
   
4.                 "Sum(收藏人数) AS 收藏人数, Sum(购买人数) AS 加购人数, " & _
   
5.                 "Round((Sum(收藏人数)+Sum(购买人数))/Sum(uv),2) AS 收藏加购率 " & _
   
6.                 "FROM [数据$] " & _
   
7.                 "WHERE  (Format([日期],'Short Date'))<>'' " & _
   
8.                 "GROUP BY 货号, 品类, 首卖日期 " & _
   
9.                 "PIVOT Format([日期],'Short Date');"
   

复制代码

opiona

1.     Set SH2 = Worksheets("报表")
   
2.    
   
3.     StrSQL = "TRANSFORM SUM(销量)"
   
4.     StrSQL = StrSQL & " SELECT 货号,品类,首卖日期,SUM(销量) AS 周销量"
   
5.     StrSQL = StrSQL & ",NULL AS 图片"
   
6.     StrSQL = StrSQL & " FROM ("
   
7.    
   
8.     StrSQL = StrSQL & " SELECT 货号,品类,首卖日期,日期,SUM(销量) AS 销量"
   
9.     StrSQL = StrSQL & " FROM [数据$]"
   
10.     StrSQL = StrSQL & " WHERE NOT 日期 IS NULL"    '//去掉了<>
    
11.     StrSQL = StrSQL & " GROUP BY 货号,品类,首卖日期,日期"
    
12.    
    
13.     StrSQL = StrSQL & ") WHERE 销量>0"   '//合计后，去掉销量=0的,其实可以直接：只要销售>0的
    
14.     StrSQL = StrSQL & " GROUP BY 货号,品类,首卖日期"
    
15.     StrSQL = StrSQL & " PIVOT 日期 "
    
16.    
    
17.     Str_coon = "HDR=yes';Data Source =" & ThisWorkbook.FullName     '//OFFICE2003，2007 通用
    
18.     SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, True)
    
19.    
    
20.     SH2.Range("A1:Z65536").ClearContents
    
21.     SH2.Range("A1").Resize(UBound(SQLARR, 1) + 1, UBound(SQLARR, 2) + 1) = SQLARR
    
22.    
    
23.     Rem 重新排序
    
24.     StrSQL = ""
    
25.     StrSQL = StrSQL & " SELECT * FROM [" & SH2.Name & "$]"
    
26.     StrSQL = StrSQL & " ORDER BY 周销量 DESC"
    
27.    
    
28.     SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, True)
    
29.    
    
30.     SH2.Range("A1:Z65536").ClearContents
    
31.     SH2.Range("A1").Resize(UBound(SQLARR, 1) + 1, UBound(SQLARR, 2) + 1) = SQLARR

复制代码

opiona

QQ14885553.rar (373.93 KB, 下载次数: 33)

2019-11-11 11:30 上传

点击文件名下载附件

ahesay

lsdongjh 发表于 2019-11-11 11:23

谢谢老师，您的代码实在太精简，厉害。想对周销量进行排序，在groupby 下一句加上这个句话，运行不了，"order BY 周销量 desc " & _；