将纵向表格转换成横向表格

lichangjun2012

求大神帮忙把【数据源】表格中的数据，提取到【结果】表格中，原来是纵向的，现在想横向显示





按月统计.rar (140.04 KB, 下载次数: 13)

2023-7-9 22:09 上传

点击文件名下载附件

shiruiqiang

这种不规格的表都是自己找麻烦的。
新手路过，不包售后。好评送花。

ykcbf1100

今天开个工。。。

于箱长

ykcbf1100 发表于 2023-7-10 07:54
今天开个工。。。

勤奋

ykcbf1100

ykcbf1100 发表于 2023-7-10 07:54
今天开个工。。。

早上好！

yynrzwh

1. Sub hz()
   
2. 
   
3. arr = Sheets("数据源").UsedRange
   
4. Sheets("结果").UsedRange.Offset(4).ClearContents
   
5. Set d = CreateObject("scripting.dictionary")
   
6. 
   
7.     For i = 2 To UBound(arr)
   
8.         s = arr(i, 1) & "|" & arr(i, 2)
   
9.         d(s) = d(s) + arr(i, 3)
   
10.     Next i
    
11. 
    
12. ReDim brr(1 To d.Count, 1 To 15)
    
13.    
    
14.     For Each k In d.keys
    
15.         sp = Split(k, "|")
    
16.         n = n + 1
    
17.         brr(n, 1) = sp(0)
    
18.         brr(n, Val(sp(1)) + 2) = d(k)
    
19.     Next k
    
20.    
    
21. Sheets("结果").[b5].Resize(n, 15) = brr
    
22. Set d = Nothing
    
23. End Sub
    

复制代码

cyq4896

参与一下....

lichangjun2012

shiruiqiang 发表于 2023-7-9 23:13
这种不规格的表都是自己找麻烦的。
新手路过，不包售后。好评送花。

其实数据是从SQL数据库中提取过来的，而数据库中不是每个月都有数据，我没办法在SQL语句中进行转置，所以用了这个折中的办法，感谢帮助

lichangjun2012

ykcbf1100 发表于 2023-7-10 07:54
今天开个工。。。

非常感谢，正是我需要的，正好有些0值我不需要显示

cyq4896

去掉没数据的