[已解决]关键字筛选求和

楚雪飞扬

右边黄色区域单元内容，关键字对左边料号列进行筛选，并将筛选出来的结果汇总填入至对应的单格！

最佳答案

月排行榜 / 总排行榜

xuejunxi

2021-12-3 09:19

字典加正则

跳转到最佳答案楼层

xuejunxi

字典加正则

lisongmei

=SUMIF($B$4:$B$15,"*"&G1&"*",$C$4:$C$15)

sam-wang

Sub test()
Dim Arr, Brr, i&, j%
Arr = Range([b3], [c65536].End(3))
Brr = Range([g3], Cells(1, Columns.Count).End(1))
For j = 1 To UBound(Brr, 2)
    For i = 2 To UBound(Arr)
        If InStr(Arr(i, 1), Brr(1, j)) Then
            Brr(3, j) = Brr(3, j) + Arr(i, 2)
        End If
    Next
Next
[g1].Resize(3, UBound(Brr, 2)) = Brr
End Sub