将交叉表转化为二维表

直达车

附件含有两个表： 表一 处理前  表二 处理后
表一是一个交叉表

需要转化成表二（二维表的形式）
附件只是一个简化例子，实际的数据量很大。
当表一行字段和列字段的交叉处为空白时，该项数据不需要出现在表二。

请帮忙看看。
谢谢

AVEL

1. Option Explicit
   
2. 
   
3. Sub l()
   
4.     Dim arr, brr()
   
5.     Dim i%, j%, n%
   
6.     arr = Sheet1.[a2].CurrentRegion
   
7.     ReDim brr(1 To UBound(arr) * UBound(arr, 2), 1 To 3)
   
8.     For i = 2 To UBound(arr)
   
9.         For j = 2 To UBound(arr, 2)
   
10.             If arr(i, j) <> "" Then
    
11.                 n = n + 1
    
12.                 brr(n, 1) = arr(i, 1)
    
13.                 brr(n, 2) = arr(1, j)
    
14.                 brr(n, 3) = arr(i, j)
    
15.             End If
    
16.         Next
    
17.     Next
    
18.     Sheet2.[a2].Resize(n, 3).Value = brr
    
19. End Sub

复制代码

panan123_0

用透视表可以转回去的。

swyrlbq

Book2.zip (9.03 KB, 下载次数: 138)

2011-10-27 20:40 上传

点击文件名下载附件

cbtaja

VBA，透视表，函数公式，
三大法宝都争相露面了，大有各显神通之意啊，呵呵，

flying050701

路过，学习了一下。

直达车

有劳各位了。

以前不知道透视表还有如此功能。非常棒
透视表是我的盲点哦。要学习

我的一生14

真是好神，学习了一下

oobird

bigheadsheep 发表于 2012-6-29 09:36
大神，您用透视表的操作过程是什么，我在Excel2007中无法重现您的效果。烦请您指点一下。尤其是如何将“处 ...

点出透视表精灵，上一步、上一步，就可看到过程。

Kevin_Ho/SZ

真开眼界了，这个论坛高手如云。