求函数公式或VBA代码，具体要求见附件！谢谢！！

IR1010 · 发表于 2023-4-17 10:53

高个子 · 发表于 2023-4-17 11:01

你这个数据源结构和汇总表结构不适合函数。

tanglf188 · 发表于 2023-4-17 11:11

要函数去函数板块去问啊，那边大神多。

我走我流 · 发表于 2023-4-17 13:37

=SUMPRODUCT((LOOKUP(1,0/LEN(C$5:C5),C$5:C5)=源数据!$C$4:$N$4)*(源数据!$C$5:$N$15=D5)*(源数据!$C$6:$N$16=$E5),源数据!$C$8:$N$18)

IR1010 · 发表于 2023-4-17 14:55

高个子发表于 2023-4-17 11:01
你这个数据源结构和汇总表结构不适合函数。

所以求助呀，不适合函数就，求个代码呀

高个子 · 发表于 2023-4-17 14:57

IR1010 发表于 2023-4-17 14:55
所以求助呀，不适合函数就，求个代码呀

=SUM(IFERROR((LOOKUP("座",C$5:C5)=源数据!$C$4:$N$4)*(源数据!$C$5:$N$15=D5)*(源数据!$C$6:$N$16=$E5)*源数据!$C$8:$N$18,))

复制代码

量大会卡哦

IR1010 · 发表于 2023-4-17 15:02

我走我流发表于 2023-4-17 13:37
=SUMPRODUCT((LOOKUP(1,0/LEN(C$5:C5),C$5:C5)=源数据!$C$4:$N$4)*(源数据!$C$5:$N$15=D5)*(源数据!$C$6:$N ...

谢谢大神！！

三分醉，七分醒 · 发表于 2023-4-17 16:23

看一下这个是不是满足你的需要

xunanming · 发表于 2023-4-17 17:50

参与一下-----------------------------

gwjkkkkk · 发表于 2023-4-17 18:35

Option Explicit
Sub TEST6()
Dim ar, br, i&, j&, strKey$, dic As Object

Application.ScreenUpdating = False
Set dic = CreateObject("Scripting.Dictionary")

With Sheets(1)
      ar = Range(.[B4], .Cells(Rows.Count, "N").End(3))
      For j = 2 To UBound(ar, 2)
         For i = 2 To UBound(ar) Step 5
            strKey = ar(1, j) & ar(i, j) & ar(i + 1, j)
            dic(strKey) = ar(i + 3, j)
         Next i
      Next j
End With

ar = [B4].CurrentRegion
For i = 2 To UBound(ar)
      If ar(i, 2) = "" Then ar(i, 2) = ar(i - 1, 2)
      strKey = ar(i, 2) & ar(i, 3) & ar(i, 4)
      ar(i, 5) = dic(strKey)
Next i

[B4].CurrentRegion = ar
Set dic = Nothing
Application.ScreenUpdating = True
Beep
End Sub

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

[求助] 求函数公式或VBA代码，具体要求见附件！谢谢！！

评分

评分