求大神写公式

丢丢雪雪

吧123456789

上个表看看

吧123456789

	1	2	3	4	5	6	7	8	9				1	1	2
a，b	1	1	1	1	1	1	1	1	1				3	3	4	5
c，d	1	1	1	1	1	1	1	1	1				6	6	7	8	9
a，d	1	1	1	1	1	1	1	1	1
b，c	1	1	1	1	1	1	1	1	1
a,d	1	1	1	1	1	1	1	1	1
b,c,d	1	1	1	1	1	1	1	1	1
c	1	1	1	1	1	1	1	1	1
d	1	1	1	1	1	1	1	1	1
	1	3	6
a	6	9	12
b	6	9	12
c	8	12	16
d	10	15	20

吧123456789

Function js(qy, h, l)
    Set d1 = CreateObject("Scripting.Dictionary")
   
    ar = Sheet1.Range("n2:r4")
         
        For x = 1 To UBound(ar)
        For y = 2 To UBound(ar, 2)
            If ar(x, y) <> "" Then
                d1(ar(x, y)) = ar(x, 1)
            End If
        Next
        Next
     br = qy
        For m = 2 To UBound(br)
        For n = 2 To UBound(br, 2)
        If br(m, 1) Like "*" & h & "*" And d1(br(1, n)) = l Then
            Sum = Sum + br(m, n)
        End If
        Next
        Next
        js = Sum
End Function

吧123456789

不知怎么表上传不上来
，ar 是  那区域
qy 是要计算的数据源
h是行的计算条件
l是列的计算条件
这是自定义函数

吧123456789

Function js(qy, h, l)
    Set d1 = CreateObject("Scripting.Dictionary")
    ar = Sheet1.Range("n2:r4")
        For x = 1 To UBound(ar)
        For y = 2 To UBound(ar, 2)
            If ar(x, y) <> "" Then d1(ar(x, y)) = ar(x, 1)
        Next
        Next
    br = qy
        For m = 2 To UBound(br)
        For n = 2 To UBound(br, 2)
            If br(m, 1) Like "*" & h & "*" And d1(br(1, n)) = l Then Sum = Sum + br(m, n)
        Next
        Next
        js = Sum
End Function
改了一下

吧123456789

                                                                             

	刘	都	给	看	了	她	额	里	噢				刘	刘	了
a，b	1	1	1	1	1	1	1	1	1				都	都	给	噢
c，d	1	1	1	1	1	1	1	1	1				看	看	她	里	额
a，d	1	1	1	1	1	1	1	1	1
b，c	1	1	1	1	1	1	1	1	1
a,d	1	1	1	1	1	1	1	1	1
b,c,d	1	1	1	1	1	1	1	1	1
c	1	1	1	1	1	1	1	1	1
d	1	1	1	1	1	1	1	1	1
	刘	都	看
a	6	9	12
b	6	9	12
c	8	12	16
d	10	15	20

               

丢丢雪雪

大神好厉害

丢丢雪雪

大神，不会呢

Look我在这

楼主测试下，