再问一遍转置的问题

anjing572

把上表转置成下表SQL,ADO,数组都可以,急谢谢

A1233515

请上传附件

anjing572

谢谢!!!!!
sql = "transform 名称 select 订单号 from [表] group by 订单号 pivot 名称"
这样写完显示的名称不是按顺序显示,如何让他按顺序显示,和我的不一致,请教

caffish

不贴附件的问题很难得到别人的帮助

这个问题用数组加字典可以搞定，附件代码可以测试一下，sheet名要改成你实际的sheet名

Sub transfertest_Click()

Dim arr, brr

Set dic = CreateObject("scripting.dictionary")

arr = Sheet1.Range("a1").CurrentRegion

For i = 2 To UBound(arr)

If Not dic.exists(arr(i, 1)) Then

dic(arr(i, 1)) = arr(i, 3)

Else

dic(arr(i, 1)) = dic(arr(i, 1)) & "|" & arr(i, 3)

End If
Next

K = dic.keys
IT = dic.items



For i = 0 To dic.Count - 1

brr = Split(IT(i), "|")

Sheet2.Range("A" & 1 + i).Value = K(i)
Sheet2.Range("B" & 1 + i).Resize(1, UBound(brr)) = brr


Next






End Sub

咸味

anjing572 发表于 2021-3-5 10:17
谢谢!!!!!
sql = "transform 名称 select 订单号 from [表] group by 订单号 pivot 名称"
这样写完显示的 ...

ACCESS SQL转置九式参考：http://club.excelhome.net/thread-814059-1-1.html