Question

VBA，excel表格求大神指导。判断区域内是否存在某特定属性单元格。

VBA，excel表格求大神指导。判断区域内是否存在某特定属性单元格。如判断区域A：A内是否存在填充色为红色单元格。语句越简单越高效越好（其实我就是想知道不遍历可以吗）

Answer 1

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

追问

这个语句还没遍历一遍的简单，我想知道在计算效率上怎么样

追答

楼主自行测试看看
对比下就可以了

对比要考虑表格数据容量的
看看几十万条之后的效果

追问

好吧，虽然现在用不到。