[已解决]月均价求助

走进EXCEL

月均价求助,详见附件,谢谢!!!! 月均价.rar (131.36 KB, 下载次数: 16)

2017-4-26 21:15 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2017-4-28 14:07

1. Sub 数组字典计算均价()
   
2.     Set d1 = CreateObject("scripting.dictionary")
   
3.     arr = Sheets("数据库").[a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         x = arr(i, 6) & Month(arr(i, 3)) & "数量"
   
6.         d1(x) = d1(x) + arr(i, 9)
   
7.         x = arr(i, 6) & Month(arr(i, 3)) & "金额"
   
8.         d1(x) = d1(x) + arr(i, 11)
   
9.     Next
   
10.     With Sheets("均价")
    
11.         .[c3:am65536] = ""
    
12.         arr = .Range("a1:am" & .[b65536].End(3).Row)
    
13.         For j = 4 To UBound(arr, 2) Step 3
    
14.             For i = 3 To UBound(arr)
    
15.                 x = arr(i, 2) & Val(arr(1, j)) & arr(2, j)
    
16.                 y = arr(i, 2) & Val(arr(1, j)) & arr(2, j + 1)
    
17.                 arr(i, j) = d1(x)
    
18.                 arr(i, j + 1) = d1(y)
    
19.                 If arr(i, j) > 0 Then arr(i, j + 2) = arr(i, j + 1) / arr(i, j)
    
20.             Next
    
21.         Next
    
22.         .Range("a1:am" & .[b65536].End(3).Row) = arr
    
23.     End With
    
24. End Sub

复制代码

跳转到最佳答案楼层

砂海

f3
=AVERAGEIFS(数据库!$J$2:$J$4782,数据库!$F$2:$F$4782,均价!$B3,数据库!$C$2:$C$4782,">=42736",数据库!$C$2:$C$4782,"<=42766")

但2003 估计不支持
42736 为 2017-01-01
42766 为 2017-01-31

走进EXCEL

砂海 发表于 2017-4-26 22:50
f3
=AVERAGEIFS(数据库!$J$2:$J$4782,数据库!$F$2:$F$4782,均价!$B3,数据库!$C$2:$C$4782,">=42736",数据 ...

用VBA,大哥!

grf1973

1. Sub 数组字典计算均价()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Set d1 = CreateObject("scripting.dictionary")
   
4.     Set d2 = CreateObject("scripting.dictionary")
   
5.     arr = Sheets("数据库").[a1].CurrentRegion
   
6.     For i = 2 To UBound(arr)
   
7.         d(arr(i, 6)) = ""   '物品名称
   
8.         x = arr(i, 6) & Month(arr(i, 3)) & "数量"
   
9.         d1(x) = d1(x) + arr(i, 9)
   
10.         x = arr(i, 6) & Month(arr(i, 3)) & "金额"
    
11.         d1(x) = d1(x) + arr(i, 11)
    
12.     Next
    
13.     With Sheets("均价")
    
14.         .Rows("3:65536") = ""
    
15.         .[b3].Resize(d.Count) = Application.Transpose(d.keys)
    
16.         arr = .Range("a1:am" & d.Count + 2)
    
17.         For j = 4 To UBound(arr, 2) Step 3
    
18.             'If arr(1, j) = "" Then arr(1, j) = arr(1, j - 1)
    
19.             For i = 3 To UBound(arr)
    
20.                 x = arr(i, 2) & Val(arr(1, j)) & arr(2, j)
    
21.                 y = arr(i, 2) & Val(arr(1, j)) & arr(2, j + 1)
    
22.                 arr(i, j) = d1(x)
    
23.                 arr(i, j + 1) = d1(y)
    
24.                 If arr(i, j) > 0 Then arr(i, j + 2) = arr(i, j + 1) / arr(i, j)
    
25.             Next
    
26.         Next
    
27.         .Range("a1:am" & d.Count + 2) = arr
    
28.     End With
    
29. End Sub

复制代码

走进EXCEL

grf1973 老师:谢谢您!
如果,"均价"中的名称(即B列)是事先给出的,且无序不是"数据库"中的全部,只是一部分,又如何处理?谢谢! 月均价2.rar (134.86 KB, 下载次数: 2)

2017-4-27 13:51 上传

点击文件名下载附件

grf1973

1. Sub 数组字典计算均价()
   
2.     Set d1 = CreateObject("scripting.dictionary")
   
3.     arr = Sheets("数据库").[a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         x = arr(i, 6) & Month(arr(i, 3)) & "数量"
   
6.         d1(x) = d1(x) + arr(i, 9)
   
7.         x = arr(i, 6) & Month(arr(i, 3)) & "金额"
   
8.         d1(x) = d1(x) + arr(i, 11)
   
9.     Next
   
10.     With Sheets("均价")
    
11.         .[c3:am65536] = ""
    
12.         arr = .Range("a1:am" & .[b65536].End(3).Row)
    
13.         For j = 4 To UBound(arr, 2) Step 3
    
14.             For i = 3 To UBound(arr)
    
15.                 x = arr(i, 2) & Val(arr(1, j)) & arr(2, j)
    
16.                 y = arr(i, 2) & Val(arr(1, j)) & arr(2, j + 1)
    
17.                 arr(i, j) = d1(x)
    
18.                 arr(i, j + 1) = d1(y)
    
19.                 If arr(i, j) > 0 Then arr(i, j + 2) = arr(i, j + 1) / arr(i, j)
    
20.             Next
    
21.         Next
    
22.         .Range("a1:am" & .[b65536].End(3).Row) = arr
    
23.     End With
    
24. End Sub

复制代码

grf1973

根据4楼作了个sql法的，期待更好的做法。

走进EXCEL

grf1973 发表于 2017-4-28 14:07

辛苦了,谢谢您!

走进EXCEL

grf1973 发表于 2017-4-28 14:07

grf1973 老师：如果要将“数据库"中的H列的单位读取到C列，又如何改代码？

雄鹰2013

学习