数据排列转置（尺码竖排转横排）-多重合并计算数据区域

stbiao · 发表于 2021-3-23 20:00

最近遇到一困难，希望大神来帮助！！万分感谢

情况：
大量数据尺码是竖排的，店名是横排。现想把店名竖排，就转置为列：反之，尺码由列的竖排转为行的横排
之前好像用ALT+D+P(两下）的多重合并计算数据区域可以转置，也不知道是不是记错了。反正就是不会了，希望大神能帮帮我

不知道出了什么问题。。

具体效果，可以查看附件数据。

附件：

表格数据转置（尺码竖排转置成横排）.zip (13.5 KB, 下载次数: 8)

stbiao · 发表于 2021-3-23 20:40

没有人吗

怎么现在都没有大神了，以前已发帖就有人回答了

henry6 · 发表于 2021-3-23 20:51

这个问题建议用PQ解决,三行代码就能搞定

let
源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
逆透视的列 = Table.UnpivotOtherColumns(源, {"生产编号", "商品别名", "颜色", "尺码组"}, "属性", "值"),
已透视列 = Table.Pivot(逆透视的列, List.Distinct(逆透视的列[尺码组]), "尺码组", "值"),
重排序的列 = Table.ReorderColumns(已透视列,{"属性", "生产编号", "商品别名", "颜色", "S/28/38", "M/29/39", "L/30/40", "XL/31/41", "2XL/32/42"})
in
重排序的列

wang-way · 发表于 2021-3-24 09:52

你自己发到了基础区还说没人帮助你

Sub Transform()
Dim Wb As Workbook
Dim Sht As Worksheet
Dim arr, ar()
Set Wb = Application.ThisWorkbook
Set Sht = Wb.Worksheets(1)
With Sht
Set Rng = .Range("A1").CurrentRegion
arr = Rng.Value
n = 0
For j = 5 To UBound(arr, 2)
For i = 2 To UBound(arr, 1) Step 5
n = n + 1
ReDim Preserve ar(1 To 9, 1 To n)
ar(1, n) = arr(1, j)
ar(2, n) = arr(i, 1)
ar(3, n) = arr(i, 2)
ar(4, n) = arr(i, 3)
''''
ar(5, n) = arr(i, j)
ar(6, n) = arr(i + 1, j)
ar(7, n) = arr(i + 2, j)
ar(8, n) = arr(i + 3, j)
ar(9, n) = arr(i + 4, j)
Next i
Next j
.Range("Q:Y").ClearContents
Set Rng = .Range("Q2")
Set Rng = Rng.Resize(UBound(ar, 2), UBound(ar, 1))
Rng.Value = Application.WorksheetFunction.Transpose(ar)
End With
Set Wb = Nothing
Set Sht = Nothing
Set Rng = Nothing
End Sub

复制代码

stbiao · 发表于 2021-3-25 00:55

wang-way 发表于 2021-3-24 09:52
你自己发到了基础区还说没人帮助你

那应该发到什么区呢。还是你这个代码是怎么操作的。我试了，不行呀

chenyun1234 · 发表于 2021-3-25 14:01

我尝试用PQ解决了，你可以刷刷新就行

stbiao · 发表于 2021-4-2 17:15

chenyun1234 发表于 2021-3-25 14:01
我尝试用PQ解决了，你可以刷刷新就行

厉害厉害，可是我改怎么上手呢。你也不说说怎么做的

chenyun1234 · 发表于 2021-4-5 09:48

stbiao 发表于 2021-4-2 17:15
厉害厉害，可是我改怎么上手呢。你也不说说怎么做的

买书，锻炼，

另：我们论坛有卖的《Power Query数据清洗实战》，你自己买回家研究研究，

stbiao · 发表于 2021-4-15 18:28

chenyun1234 发表于 2021-4-5 09:48
买书，锻炼，

另：我们论坛有卖的《Power Query数据清洗实战》，你自己买回家研究研究，

就不能给我说说吗

chenyun1234 · 发表于 2021-4-16 11:14

1、最好是365版或2016版以上
2、数据-表格
3、进入界面后，自己折腾吧

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

[求助] 数据排列转置（尺码竖排转横排）-多重合并计算数据区域