多列多行转置-急

自然海

求助，我想把横着排的有数量的尺码组转换成竖着排，麻烦大家帮帮忙，急

苏小亓

EXCEL必备工具箱有这个功能，免费的。百度搜索EXCEL必备工具箱第一个就是。

jiangxiaoyun

格式转置模板.zip (22.49 KB, 下载次数: 21)

2018-8-1 17:08 上传

点击文件名下载附件

powerquery逆透视

自然海

jiangxiaoyun 发表于 2018-8-1 17:08
powerquery逆透视

怎么逆透视，没明白

xiangbaoan

………………………………

lsc900707

1. Sub gj23w98()
   
2.     Dim brr(1 To 1000, 1 To 11)
   
3.     arr = [a2].CurrentRegion
   
4.     For i = 3 To UBound(arr)
   
5.         For j = 10 To UBound(arr, 2)
   
6.             If arr(i, j) <> 0 Then
   
7.                 m = m + 1
   
8.                 For k = 1 To 9
   
9.                     brr(m, k) = arr(i, k)
   
10.                     brr(m, 10) = arr(2, j)
    
11.                     brr(m, 11) = arr(i, j)
    
12.                 Next
    
13.             End If
    
14.         Next
    
15.     Next
    
16.     If m Then [a17].Resize(m, 11) = brr
    
17. End Sub

复制代码

lsc900707

附件供测试：

自然海

lsc900707 发表于 2018-8-1 18:55
附件供测试：

感谢，还有一个问题就是我想把得到的结果放在另一个表格里，怎么设呢

lsc900707

自然海 发表于 2018-8-2 09:39
感谢，还有一个问题就是我想把得到的结果放在另一个表格里，怎么设呢

放在哪一个表格里呢？比如sheet 2,那就：If m Then sheet2.[a2].Resize(m, 11) = brr

自然海

lsc900707 发表于 2018-8-2 09:47
放在哪一个表格里呢？比如sheet 2,那就：If m Then sheet2.[a2].Resize(m, 11) = brr

但是我这样改了后  If m Then Sheet3.[a2].Resize(m, 11) = brr，’他显示运行错误“424”，要求对象‘，我就是想结果同一个工作薄的另一个表表格，不是显示在同一个子表的下方，