比如:我想实现批量选择工作表中所有字体颜色为白色的单元格,代码如下:
Option Explicit
Sub test()
Dim rng, area, flag As Boolean
For Each rng In ActiveSheet.UsedRange
If rng.Font.Color = 16777215 Then
If flag Then
Set area = Union(area, rng)
Else
flag = True
Set area = rng
End If
End If
Next
If flag Then area.Select
End Sub
保存宏,运行后就可以选定所有字体为白字的单元格,这样就可以比如设置单元格底纹为红色等.