用vba吧,复制下面的代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Or Target.Row < 3 Then Exit Sub
For i = 0 To 9
For j = 0 To 2
With Cells(Target.Row, 10 * j + i + 6).Interior
If Cells(Target.Row, 10 * j + i + 6) = Cells(Target.Row, j + 3) Then .Color = 65535 Else .Pattern = xlNone
End With
Next
Next
End Sub
压住alt键打F11、v、c三键
粘贴后回到表格,在b列打入3位数就看到结果了