项目根据日期求和

yooha

项目根据日期求和.zip (7.59 KB, 下载次数: 16)

2018-9-18 14:01 上传

点击文件名下载附件

求助:
项目名称有重复,根据日期将各项目数量求和,详情见附件,谢谢!

李兴德

=SUMIF(数据!$B$4:$B$10,$A2,OFFSET(数据!$B$4,,MATCH(B$1,数据!$C$3:$O$3)))

lsc900707

1. Sub gj23w98()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Sheet2.[a3].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         For j = 2 To UBound(arr, 2)
   
6.             s = arr(i, 2) & arr(1, j)
   
7.             d(s) = d(s) + arr(i, j)
   
8.         Next
   
9.     Next
   
10.     brr = [a1].CurrentRegion
    
11.     For i = 2 To UBound(brr)
    
12.         For j = 2 To UBound(brr, 2)
    
13.             s = brr(i, 1) & brr(1, j)
    
14.             If d.exists(s) Then brr(i, j) = d(s)
    
15.         Next
    
16.     Next
    
17.     [a1].CurrentRegion = brr
    
18. End Sub

复制代码

lsc900707

附件供测试参考：

iwangyi

行列标题组合作为关键字

iwangyi

Sub DD()
arr = Sheets("数据").[b2].CurrentRegion
Dim d(3 To 15)
For y = 3 To UBound(arr, 2)
Set d(y) = CreateObject("scripting.dictionary")
   For x = 2 To UBound(arr)
   d(y)(arr(x, 2)) = d(y)(arr(x, 2)) + arr(x, y)
   Next
   Cells(1, y - 1).Resize(d(y).Count) = Application.Transpose(d(y).items)
Next
Cells(1, 1).Resize(d(3).Count) = Application.Transpose(d(3).keys)
End Sub

iwangyi

附件，请参考