自己加按钮哈,
修改 Tem 为你的 表2
Sub programX()
Sheets("Tem").Range("b2:k14").Interior.Pattern = xlNone
NewValue = Cells(2, 2) + Cells(2, 5)
Dim rangex As Range
For Each rangex In Sheets("Tem").Range("b2:k14")
If rangex.Value = NewValue Then rangex.Interior.Color = vbRed
Next
End Sub
温馨提示:答案为网友推荐,仅供参考