如何快速将 表1 的内容 转换成 表2 的内容

娟哥

请教各位大神，如何快速将 表1 的内容 转换成 表2 的内容。
我是一个个复制然后再转置的，有很多个表格，效果很低，跪求大神赐教，小的感激不尽

624134745

PQ仅供参考，思路：逆透视 合并

lsc900707

1. Sub gj23w98()
   
2.     Dim brr(1 To 9999, 1 To 2)
   
3.     arr = Sheets("表1").[a1].CurrentRegion
   
4.     For j = 2 To UBound(arr, 2)
   
5.         For i = 2 To UBound(arr)
   
6.             If Len(arr(i, j)) Then
   
7.                 m = m + 1
   
8.                 brr(m, 1) = arr(1, j) & "*" & arr(i, 1)
   
9.                 brr(m, 2) = arr(i, j)
   
10.             End If
    
11.         Next
    
12.     Next
    
13.     If m Then
    
14.         Sheets("表2").[a2].CurrentRegion.Offset(1).ClearContents
    
15.         Sheets("表2").[a3].Resize(m, 2) = brr
    
16.     End If
    
17. End Sub

复制代码

lsc900707

参考测试附件：

wyx615

PQ先逆透视列在合并列即可

娟哥

624134745 发表于 2021-1-6 21:22
PQ仅供参考，思路：逆透视 合并

你好，请问具体要怎么操作呢。在百度查了PQ逆透视 合并的操作，有点不一样，我的Excel是2013 版本的，可以吗？还请赐教详细操作流程，谢谢

娟哥

wyx615 发表于 2021-1-7 11:45
PQ先逆透视列在合并列即可

你好，请问具体要怎么操作呢。在百度查了PQ逆透视 合并的操作，有点不一样，我的Excel是2013 版本的，可以吗？还请赐教详细操作流程，谢谢。是要12.16在前面的

娟哥

lsc900707 发表于 2021-1-7 08:58
参考测试附件：

你好。请问你那个代码要怎么操作，表格打开好像还是原来的表格，多了一个按钮，点击了没反应

娟哥

lsc900707 发表于 2021-1-7 08:58
参考测试附件：

你好 ，请问代码要怎么使用，表格好像还是原来的表格，多了一个按钮，点击没有反应

624134745

娟哥 发表于 2021-1-8 11:29
你好，请问具体要怎么操作呢。在百度查了PQ逆透视 合并的操作，有点不一样，我的Excel是2013 版本的，可 ...

2003版本无法使用PQ