[FONT=lucida console][COLOR=Royalblue]Sub[/COLOR] a1084377c()
[I][COLOR=seagreen]'https://www.mrexcel.com/forum/excel-questions/1084377-vba-highlight-duplicate-id-sum-their-value-equal-zero.html[/COLOR][/I]
[COLOR=Royalblue]Dim[/COLOR] i [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]Long[/COLOR]
[COLOR=Royalblue]Dim[/COLOR] va, x
[COLOR=Royalblue]Dim[/COLOR] d [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]Object[/COLOR]
[COLOR=Royalblue]Set[/COLOR] d = CreateObject([COLOR=brown]"scripting.dictionary"[/COLOR])
d.CompareMode = vbTextCompare
va = Range([COLOR=brown]"A1:B"[/COLOR] & Cells(Rows.count, [COLOR=brown]"A"[/COLOR]).[COLOR=Royalblue]End[/COLOR](xlUp).Row)
Columns([COLOR=brown]"C"[/COLOR]).Interior.Color = xlNone
[COLOR=Royalblue]For[/COLOR] i = [COLOR=crimson]2[/COLOR] [COLOR=Royalblue]To[/COLOR] UBound(va, [COLOR=crimson]1[/COLOR])
x = Trim(va(i, [COLOR=crimson]1[/COLOR]))
[COLOR=Royalblue]If[/COLOR] [COLOR=Royalblue]Not[/COLOR] d.Exists(x) [COLOR=Royalblue]Then[/COLOR]
d(x) = va(i, [COLOR=crimson]2[/COLOR])
[COLOR=Royalblue]Else[/COLOR]
d(x) = d(x) + va(i, [COLOR=crimson]2[/COLOR])
[COLOR=Royalblue]End[/COLOR] [COLOR=Royalblue]If[/COLOR]
[COLOR=Royalblue]Next[/COLOR]
Application.ScreenUpdating = [COLOR=Royalblue]False[/COLOR]
[COLOR=Royalblue]For[/COLOR] i = [COLOR=crimson]2[/COLOR] [COLOR=Royalblue]To[/COLOR] UBound(va, [COLOR=crimson]1[/COLOR])
[I][COLOR=seagreen]'highlight in col C[/COLOR][/I]
[COLOR=Royalblue]If[/COLOR] d(Trim(va(i, [COLOR=crimson]1[/COLOR]))) > -[COLOR=crimson]0.000001[/COLOR] [COLOR=Royalblue]And[/COLOR] d(Trim(va(i, [COLOR=crimson]1[/COLOR]))) < [COLOR=crimson]0.000001[/COLOR] [COLOR=Royalblue]Then[/COLOR] Cells(i, [COLOR=brown]"C"[/COLOR]).Interior.Color = vbYellow
[COLOR=Royalblue]Next[/COLOR]
Application.ScreenUpdating = [COLOR=Royalblue]True[/COLOR]
[COLOR=Royalblue]End[/COLOR] [COLOR=Royalblue]Sub[/COLOR][/FONT]