Sub 宏()
With Application.FindFormat.Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Set Rng = Columns("A:A").Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=True)
If Not Rng Is Nothing Then
MsgBox ("存在黄色填充的单元格")
End If
End Sub
追问这个语句还没遍历一遍的简单,我想知道在计算效率上怎么样
追答楼主自行测试看看
对比下就可以了
对比要考虑表格数据容量的
看看几十万条之后的效果
追问好吧,虽然现在用不到。