二维模糊查询汇总问题

blackttea1

二维的精确查询汇总已由程序得出。假设K1由现在的“打杂”变成“打杂/缷料”，R1由现在的“复盘”变成“复盘/复线”，相当于对应将两个项的数据累加并显现在对应的单元格中，能用模糊查找汇总吗？程序应作如何调整？请各位达人指导下，谢谢

blackttea1

再顶下，渴望得到支持

excelvlookup

Sub aa()
Set d = CreateObject("Scripting.Dictionary")
ar = Sheet2.Range("a2:ag" & Sheet2.Range("a65536").End(xlUp).Row)
Sheet3.Range("f2:u" & Range("a65536").End(xlUp).Row).ClearContents
br = Sheet3.Range("a1:u" & Range("a65536").End(xlUp).Row)
For i = 6 To UBound(br, 2)
    If InStr(br(1, i), "/") <> 0 Then
        b = Split(br(1, i), "/")
        For j = 0 To UBound(b)
            d(b(j)) = i
        Next
    Else
        d(br(1, i)) = i
    End If
Next
For i = 2 To UBound(br)
    d(br(i, 1)) = i
Next
For i = 1 To UBound(ar)
    For j = 3 To 7
        r = d(ar(i, j))
        If r <> "" Then
            For k = 20 To 25 Step 2
                s = d(ar(i, k))
                If s <> "" Then
                    br(r, s) = br(r, s) + ar(i, k + 1)
                End If
            Next
        End If
    Next
Next
Sheet3.Range("a1").Resize(UBound(br), UBound(br, 2)) = br
End Sub
为了测试加了个sheet3。

blackttea1

谢谢三楼的指导，已达到我的要求。