求帮助，excel怎样调整行与列，用函数可以么？

13477992994

请各位高手帮帮我，好几千的数据，用附件中a的格式变到b的格式，求指教，

M灌水

alt+d+p快捷键——创建多重合并计算区域——创建单页字段——选择数据区域——下一步完成，把计算项改为求和，最后双击总计数据，后面自己处理。。不过这种最好用vba解决

M灌水

vba放便点

1. Option Explicit
   
2. Sub dd()
   
3.     Dim i, n, x, arr, brr()
   
4.     arr = Sheets("A").Range("a1").CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         For n = 3 To UBound(arr, 2)
   
7.             If arr(i, n) <> "" Then
   
8.                 x = 1 + x
   
9.                 ReDim Preserve brr(1 To 4, 1 To x)
   
10.                 brr(1, x) = arr(i, 1)
    
11.                 brr(2, x) = arr(i, 2)
    
12.                 brr(3, x) = arr(1, n)
    
13.                 brr(4, x) = arr(i, n)
    
14.             End If
    
15.         Next
    
16.     Next
    
17.     Columns("A:D").ClearContents
    
18.     Sheets("d").[a2].Resize(UBound(brr, 2), 4) = WorksheetFunction.Transpose(brr)
    
19. End Sub
    

复制代码

M灌水

附件！！！！！！！

13477992994

帅哥，你那上传的第一个文件中附表3到附表4是怎么过去的

13477992994

谢谢了，研究出来了

13477992994

哦，还有，那个值那一列的空白部分要手动删除吗？有没有快一点的方法？

13477992994

Sheets("d").[a2].Resize(UBound(brr, 2), 4) = WorksheetFunction.Transpose(brr)
下标越界，要怎么改

hljsxyc

这个可以打一个尺码模转坚的表格就可以了