求助各位老师，找出合计数为0的项目

俊俏的油菜花

在C列和E列一致的前提下，找出B列合计数为0的项目，在论坛有看到类似的帖子但是发现这个并不适用，求助论坛的各位老师，感激不尽！

liulang0808

Sub test()
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
    arr = Sheets(1).UsedRange
    For j = 2 To UBound(arr)
        d(arr(j, 3) & "##" & arr(j, 5)) = d(arr(j, 3) & "##" & arr(j, 5)) + Val(arr(j, 2))
    Next j
    r = 1
    For j = 0 To d.Count - 1
        If d.items()(j) > 0 Then
            Cells(r, 8).Resize(1, 2) = Split(d.keys()(j), "##")
            r = r + 1
        End If
    Next j
    Application.ScreenUpdating = True
End Sub

liulang0808

附件内容供参考。。。。。。

俊俏的油菜花

liulang0808 发表于 2020-3-3 08:28
附件内容供参考。。。。。。

流浪老师您好，我的问题和您之前回答过的一个帖子是同一个意思，但是我把这个帖子的代码拿去了发现不适用，您能帮忙再看一下吗，谢谢！

liulang0808

俊俏的油菜花 发表于 2020-3-3 09:08
流浪老师您好，我的问题和您之前回答过的一个帖子是同一个意思，但是我把这个帖子的代码拿去了发现不适用 ...

你是要解决什么问题啊？建议结合附件说明下吧
这个帖子主题问题已经解决了吧？