excel表格行列转换，急

jpsjay

想要结果如表格样式，求解

Chip_Kenny

try this:

1. Sub zz()
   
2. Dim ar, b(), n&
   
3. ar = [a1].CurrentRegion.Value
   
4. ReDim b(1 To UBound(ar) * UBound(ar, 2), 1 To 2)
   
5. n = 1
   
6. b(n, 1) = ar(n, 1): b(n, 2) = "备注"
   
7. For i = 2 To UBound(ar)
   
8.     For j = 2 To UBound(ar, 2)
   
9.         If Len(ar(i, j)) Then
   
10.             n = n + 1
    
11.             b(n, 1) = ar(i, 1)
    
12.             For jj = j To UBound(ar, 2)
    
13.                 If Len(ar(i, jj)) Then
    
14.                     b(n, 2) = ar(1, jj)
    
15.                     j = jj
    
16.                     n = n + 1
    
17.                 End If
    
18.             Next
    
19.             n = n - 1
    
20.         End If
    
21.     Next
    
22. Next
    
23. [n1].Resize(n, 2) = b
    
24. End Sub

复制代码

xbq

逆透视，可以吗？

jpsjay

高手，我想要操作方法