Using the file you posted.
I skipped the zero values, as these would all match each other.
You can change the ranges to suite.
dim found as Boolean
For Each mycell In Worksheets("Ark1").Range("B2:L34")
myvalue = Abs(mycell.Value)
If myvalue <> 0 Then
found = False
For Each chkcell In Worksheets("Ark1").Range("B2:L34")
If mycell <> chkcell Then
If myvalue = Abs(chkcell.Value) Then
chkcell.Interior.ColorIndex = 4 ' Green
mycell.Interior.ColorIndex = 4
found = True
If found = False Then mycell.Interior.ColorIndex = 3 'Red