可以填充整个区域,但是相同内容的单元无法填充其它颜色
当内容与A1不同时,无法还原区域1单元格为无色
'假如E1是区域内容的单元格
Sub a()
If Range("E1") = Range("A1") Then
Range("H17:N26").Font.Color = vbMagenta
Range("H17:N26").Interior.ColorIndex = 6
Else
Range("H17:N26").Interior.ColorIndex = xlNone
End If
End Sub
我试过可以的,没什么问题,你再试试。