表格的二维转一维怎么转？

tesiroys

具体见附件，麻烦各位高手，谢谢！

tesiroys

是不是要用到宏啊？

笑着...两年过去

1. 张三 一月 480 是肿么回事了？

复制代码

tesiroys

笑着...两年过去 发表于 2014-11-24 09:05

不好意思 源表用了RANDBETWEEN函数了

tesiroys

重新上传一下附件，谢谢！

祝洪忠-

如果用多重合并计算的数据透视表来转换会简单一些

jack198782

不知道你的二维表是用什么方法做出来的，如果是用数据透视表做出来的，那么你直接把月份从列标题放到行标题，就可以了。

tesiroys

祝洪忠- 发表于 2014-11-24 09:14
如果用多重合并计算的数据透视表来转换会简单一些

谢谢 我来试试看。本来我想做个模板的。让用户直接贴进去后 能自动转换成数据库的模式，方便做数据透视的。

cool2014

可不可以不用函数，觉着设置公式需要想一会，这个方法行吗？

笑着...两年过去

1. Sub test()
   
2.     [a12:c999].ClearContents
   
3.     Cells(12, 1) = [a1]
   
4.     Cells(12, 2) = "合并项"
   
5.     Cells(12, 3) = "值"
   
6.     Dim i%, j%, k%
   
7.     For i = 2 To 5
   
8.         For k = 1 To 5
   
9.             j = i * 5 + k + 2
   
10.             Cells(j, 1) = Cells(i, 1)
    
11.             Cells(j, 2) = Cells(1, (k + 4) Mod 5 + 2)
    
12.             Cells(i, (k + 4) Mod 5 + 2).Copy Cells(j, 3)
    
13.         Next k
    
14.     Next i
    
15. End Sub
    

复制代码