【求助】复杂的中国式二维报表转一维

lujiawei

各位大侠好！
附件里有个复杂的二维表格，纵向有财务科目，横向有单位名称及预算、本期、累计、上期，请问如何用数据透视表转换成一维表格，目前我在用很傻的手工复制。。。
小弟先谢过各位大侠啦！
二维转一维.zip (11.83 KB, 下载次数: 24)

2017-7-3 17:46 上传

点击文件名下载附件

yeminqiang

vba吧..........

lujiawei

本来 多种合并计算 我还算会用 但是现在标题行有两行 我就懵逼了。。。

yeminqiang

1. Sub 转置()
   
2.     Dim arr, brr(1 To 60000, 1 To 4)
   
3.     arr = [a1].CurrentRegion
   
4.     For j = 2 To UBound(arr, 2)
   
5.         For i = 3 To UBound(arr)
   
6.             k = k + 1
   
7.             brr(k, 1) = arr(i, 1)
   
8.             brr(k, 2) = arr(1, j)
   
9.             brr(k, 3) = arr(2, j)
   
10.             brr(k, 4) = arr(i, j)
    
11.         Next
    
12.     Next
    
13.     [e26].Resize(k, 4) = brr
    
14. End Sub

复制代码

yeminqiang

二维转一维.zip (18.51 KB, 下载次数: 31)

2017-7-5 14:35 上传

点击文件名下载附件