Question

EXCEL VBA区域填充

A1内容与区域内容相同时,填充区域1内容为紫色,并填充区域1为黄色
如果:A1内容与区域内容"不"相同时,还原区域1为无色
区域1 (H17:N26)

Answer 1

if 区域内容=A1 then
range（“H17:N26”）.Font.Color = 29
range（“H17:N26”）.Interior.ColorIndex =6
else
range（“H17:N26”）.Interior.ColorIndex =xlnone
end if

追问

1. 可以填充整个区域,但是相同内容的单元无法填充其它颜色

2. 当内容与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

我试过可以的，没什么问题，你再试试。