以红色为例
Sub 取消红色高亮()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If cell.Interior.ColorIndex = 3 Then
cell.Interior.ColorIndex = xlNone
End If
Next cell
End Sub
以红色为例
Sub 取消红色高亮()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If cell.Interior.ColorIndex = 3 Then
cell.Interior.ColorIndex = xlNone
End If
Next cell
End Sub