请问这个问题可以用pq来解决吗

BTS7V · 发表于 2022-2-19 15:13

本帖最后由 BTS7V 于 2022-2-19 17:18 编辑

1645262243(1).jpg

透视列.zip (22.87 KB, 下载次数: 15)
请问如何快速地用pq从表1得到表2呢？尽量在不考虑店名格式的情况下得到结果，店名格式不太稳定，只需要达到将一个编码的数据依次排开的效果即可。请大神们指点。

zpy2 · 发表于 2022-2-19 15:56

select 行标签,group_concat(数据,'</td><td>') 数据 from 行标签合并生成二维表 group by 行标签

jiangxiaoyun · 发表于 2022-2-19 16:02

工作簿4.zip (21.63 KB, 下载次数: 6)

BTS7V · 发表于 2022-2-19 16:30

zpy2 发表于 2022-2-19 15:56
select 行标签,group_concat(数据,'') 数据 from 行标签合并生成二维表 group by 行标签

SQL搞不会

BTS7V · 发表于 2022-2-19 16:32

jiangxiaoyun 发表于 2022-2-19 16:02

感谢帮助！！！

BTS7V · 发表于 2022-2-19 17:17

jiangxiaoyun 发表于 2022-2-19 16:02

不好意思还要求助一下，就是这个编码我用的虚拟数据，实际上是A00000098、A00000103、B00000166这种格式，但是这个编码就生成不了数据了，我重新上传了演示数据，能麻烦再操作一下吗？

BTS7V · 发表于 2022-2-19 17:30

jiangxiaoyun 发表于 2022-2-19 16:02

能不能厚颜无耻地求个录屏

zpy2 · 发表于 2022-2-20 08:18

BTS7V 发表于 2022-2-19 17:30
能不能厚颜无耻地求个录屏

扫码看视频

tuujjjj · 发表于 2022-2-20 21:42

本帖最后由 tuujjjj 于 2022-2-20 21:43 编辑

副本透视列.zip (24.38 KB, 下载次数: 6) 这个问题用VBA数组加循环好解决好多，做了个Sub 代码1()

Dim arr, i, h
Dim dc As Object
Set dc = CreateObject("scripting.dictionary")
Range("E10").Resize(10000, 10000).Clear '清空将要做表的区域，E10是要做表的区域的左上角位，要修改请将全部E10修改成你想要的位置即可
arr = Range("B3", [C3].End(xlDown)) 'B3表1的第一个编码的位置，C3是是表1第一个店名的位置，如位置不一样请修改
For i = 1 To UBound(arr)
dc(arr(i, 1)) = ""
Next
Range("E10")(2, 1).Resize(dc.Count) = Application.Transpose(dc.keys)
For h = 1 To dc.Count
k = 0
For i = 1 To UBound(arr)
      If arr(i, 1) = Range("E10")(1 + h, 1) Then
         k = k + 1
         Range("E10")(1 + h, 1)(1, k + 1) = arr(i, 2)
      End If
Next
If p < k Then p = k
Next

Range("E10") = "编码"
For i = 1 To p
Range("E10")(1, 1 + i) = "序号" & i
Next
Range("E10").CurrentRegion.Borders.LineStyle = 1
Range("E10").CurrentRegion.HorizontalAlignment = xlCenter
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 请问这个问题可以用pq来解决吗

评分

评分