求助大神，指定及客户及时间段对各品种求平均值

dnvjfdeuff · 发表于 2024-8-9 15:45

limonet · 发表于 2024-8-9 16:11

不会，我就不参与了。

ykcbf1100 · 发表于 2024-8-9 16:58

还是这个问题啊，这次说清楚了吗？要让别人能够理解，这样才能帮助。尽量说通俗一点。

铁马1980 · 发表于 2024-8-9 17:25

凑个数，反正下大雨也不能回家

求助2.zip (85.1 KB, 下载次数: 2)

wanao2008 · 发表于 2024-8-9 18:11

B站已回复，如果正确，可做视频。

dnvjfdeuff · 发表于 2024-8-9 18:35

铁马1980 发表于 2024-8-9 17:25
凑个数，反正下大雨也不能回家

只要根据指定客户查询就行，现在把全部查询出来，

dnvjfdeuff · 发表于 2024-8-9 18:37

ykcbf1100 发表于 2024-8-9 16:58
还是这个问题啊，这次说清楚了吗？要让别人能够理解，这样才能帮助。尽量说通俗一点。

按客户与起始日-结束日，查询各品种，然后计算各品种平均值

ykcbf1100 · 发表于 2024-8-9 19:00

dnvjfdeuff 发表于 2024-8-9 18:37
按客户与起始日-结束日，查询各品种，然后计算各品种平均值

附件供参考。。。

ykcbf1100 · 发表于 2024-8-9 19:01

参与一下。。。

Sub ykcbf() '//2024.8.9
Set d = CreateObject("Scripting.Dictionary")
With Sheets("Sheet1")
xm = .[n2].Value
rq1 = CDate(.[q2].Value): rq2 = CDate(.[r2].Value)
r = .Cells(Rows.Count, 1).End(3).Row
arr = .[a1].Resize(r, 12)
For i = 2 To UBound(arr)
If arr(i, 7) >= rq1 And arr(i, 7) <= rq2 Then
If arr(i, 1) = xm Then
s = arr(i, 2) & "|" & arr(i, 3) & "|" & arr(i, 4) & "|" & arr(i, 5) & "|" & arr(i, 6)
If Not d.exists(s) Then
d(s) = Array(1, arr(i, 8) + arr(i, 10))
Else
t = d(s)
t(0) = t(0) + 1
t(1) = t(1) + arr(i, 8) + arr(i, 10)
d(s) = t
End If
End If
End If
Next
ReDim brr(1 To d.Count, 1 To 8)
For Each k In d.keys
m = m + 1
brr(m, 1) = xm
b = Split(k, "|")
For x = 0 To UBound(b)
brr(m, x + 2) = b(x)
Next
brr(m, 8) = Round(d(k)(1) / d(k)(0), 2)
Next
.[n6].Resize(10, 8) = ""
.[n6].Resize(m, 8) = brr
End With
Set d = Nothing
MsgBox "OK！"
End Sub

复制代码

dnvjfdeuff · 发表于 2024-8-9 19:56

ykcbf1100 发表于 2024-8-9 19:00
附件供参考。。。

非常感谢大神指导

		自动登录	找回密码
密码			免费注册