Sub 宏1()
'
' 宏1 宏
'
'先选中要替换的区域,将特定背景颜色的单元格都赋值为"√"
'
Dim lColor As Long
'
'lColor = InteriorColor(Range("G2"))'
lColor = 10213316
'Worksheets("sheet1").Range("B1").Value = lColor
For Each rCell In Selection.Cells
'Worksheets("sheet1").Range("C1").Value = rCell.Interior.Color
If rCell.Interior.Color = lColor Then
rCell.Value = "√"
End If
Next
End Sub
'获取单元格的背景颜色
Function InteriorColor(CellColor As Range)
Application.Volatile
InteriorColor = CellColor.Interior.Color
End Function