列转行，请各位大佬，帮帮忙，谢谢！

八九不离十

misterZ

用pq逆透视一下

八九不离十

misterZ 发表于 2024-10-31 14:53
用pq逆透视一下

pq是啥？EXCEL内部的功能吗？

misterZ

八九不离十 发表于 2024-10-31 14:58
pq是啥？EXCEL内部的功能吗？

看你都用上365了. 就用pq 逆透视 转换一下吧.

八九不离十

misterZ 发表于 2024-10-31 15:00
看你都用上365了. 就用pq 逆透视 转换一下吧.

不行，使用的人。EXCEL没这个。还是想整个VBA处理一下。

ykcbf1100

参与一下。。。

ykcbf1100

参与一下。。。

nie414006

Qs18

1. Sub qs()
   
2. Dim arr, i
   
3. arr = Sheet1.Range("a1").CurrentRegion.Value
   
4. ReDim brr(1 To 20000, 1 To UBound(arr, 2) - 1)
   
5. For j = 12 To 14
   
6.         For i = 2 To UBound(arr)
   
7.         m = m + 1
   
8.         For x = 1 To 11
   
9.             brr(m, x) = arr(i, x)
   
10.         Next
    
11.         brr(m, 12) = arr(1, j)
    
12.         brr(m, 13) = arr(i, j)
    
13.     Next
    
14. Next
    
15. Sheet1.[a12].Resize(m, UBound(brr, 2)) = brr
    
16. End Sub
    

复制代码

Qs18

试试.........