sql分组聚合、字符拼接

wuliaolang

如图所示，需要用sql做出G列效果，请各位大仙赐教


请教.zip (7.47 KB, 下载次数: 16)

2018-8-17 19:14 上传

点击文件名下载附件

duquancai

做出来，还要限定方法？

jiminyanyan

可以用字典。。。。

wuliaolang

duquancai 发表于 2018-8-17 19:20
做出来，还要限定方法？

我知道字典可以，抛开其他做法，sql语句能否实现这个功能

LMY123

wuliaolang 发表于 2018-8-17 21:40
我知道字典可以，抛开其他做法，sql语句能否实现这个功能

可以做出来，效率不高，建议还是用字典

iwangyi

Sub ADO()
Set cn = CreateObject("adodb.connection")
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select disTinct 字母 from [sheet1$A1:B]"
Set RS = cn.Execute(Sql)
Do Until RS.EOF
zm = RS.FIELDS(0)
Set cnn = CreateObject("adodb.connection")
Set RSt = CreateObject("adodb.recordset")
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
sqll = "select *  from [sheet1$A1:B] where 字母='" & zm & "'"
RSt.Open sqll, cn, 3, 2
n = n + 1
Cells(n + 1, "e") = zm
Cells(n + 1, "f") = RSt.RecordCount
arr = cnn.Execute(sqll).getrows
For i = o To UBound(arr, 2)
Cells(n + 1, "g") = Cells(n + 1, "l") & "," & (arr(1, i))
Next
RS.MOVENEXT
Loop
End Sub

zpy2

mysql sqlite GROUP_CONCAT

iwangyi

附件*************

fxl447098457

见识一下PQ的魅力吧。

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     fx=(x as list)=>Text.Combine(List.Transform(x,each Text.From(_)),","),
   
4.     data=Table.Group(源,"字母",{{"次数",each List.Count([数字])},{"数字合并",each fx([数字])}})
   
5. in
   
6.     data

复制代码

wuliaolang

fxl447098457 发表于 2018-8-18 10:21
见识一下PQ的魅力吧。

新世界的大门、、、