|
Public Sub color()
Dim x As Range, y As Range, rng As Range, c
c = Cells.SpecialCells(xlCellTypeLastCell).Column
For Each x In Range([b1], [b65536].End(3))
If x <> "" And Not Range(x.Offset(, 2), Cells(x.Row, c)).Find(x, , , 1) Is Nothing Then
For Each y In Range(x.Offset(, 2), Cells(x.Row, c))
If y.Text = x.Text Then
If rng Is Nothing Then Set rng = y Else Set rng = Union(rng, y)
End If
Next
If Not rng Is Nothing Then rng.Interior.color = vbGreen
Set rng = Nothing
End If
Next
End Sub
以上是在单元格填充颜色的代码,每当数据改变时,需要重新填充颜色,可是前一次填充的颜色不能清除。欲在上述VBA中添加一行代码,使其再次填充颜色前,先清除所有单元格中的填充颜色。恳望大师帮助!
|
|