请教各位达人如何将统计表格拆分成单条形式

panging

RF
请教是否能采用数据透视表的方式进行拆分呢?

在线等~~~~

[ 本帖最后由 panging 于 2011-3-13 15:33 编辑 ]

suwenkai

用VBA做的。结果好像不一样？

1. 
   
2. Sub 按钮1_Click()
   
3. Dim brr(1 To 100, 1 To 5)
   
4. arr = Range("a4").CurrentRegion
   
5. 
   
6. For a = 2 To UBound(arr)
   
7.     For b = 4 To UBound(arr, 2)
   
8.         n = n + 1
   
9.         brr(n, 1) = arr(1, b)
   
10.         brr(n, 2) = arr(a, b)
    
11.         brr(n, 3) = arr(a, 1)
    
12.         brr(n, 4) = arr(a, 2)
    
13.         brr(n, 5) = arr(a, 3)
    
14.     Next
    
15. Next
    
16. Range("g11").Resize(n, 5) = brr
    
17. End Sub
    

复制代码

[ 本帖最后由 suwenkai 于 2011-3-13 15:45 编辑 ]

panging

谢谢应该是对的，删除0数据就是结果了

谢谢大侠指教