交叉表怎样变成二维表

红日111

请各位大侠帮助一下，怎样让一个多维列有31列，行有几千行，变成一个标准的二维表，附件如下，表内一是原表，二是改成的表。

zhaogang1960

请测试:

1. Sub Macro1()
   
2.     Dim arr, brr(), i&, j&, l&, m&
   
3.     arr = Sheets("原表").[a1].CurrentRegion
   
4.     ReDim brr(1 To UBound(arr) * UBound(arr, 2), 1 To 6)
   
5.     For j = 5 To UBound(arr, 2)
   
6.         For i = 2 To UBound(arr)
   
7.             m = m + 1
   
8.             For l = 1 To 3
   
9.                 brr(m, l) = arr(i, l)
   
10.             Next
    
11.             brr(m, 4) = "'" & arr(i, 4)
    
12.             brr(m, 5) = arr(1, j)
    
13.             brr(m, 6) = arr(i, j)
    
14.         Next
    
15.     Next
    
16.     With Sheets("改成的表")
    
17.         .[a1].CurrentRegion.Offset(1).ClearContents
    
18.         .[a2].Resize(m, 6) = brr
    
19.         .Activate
    
20.     End With
    
21. End Sub
    

复制代码

zhaogang1960

请看附件
考勤.rar (10.06 KB, 下载次数: 74)

2013-4-12 17:31 上传

点击文件名下载附件

红日111

zhaogang1960 发表于 2013-4-12 17:32
请看附件

佩服，佩服！，这个意思不是太明白，能写一下注释吗？？

LMY123

交叉表转二维表

美门风心

正需要，学习学习