EXCEL VBA给区域1和区域2重复内容填充黄色

1。区域2（K14：T23）2。区域1（AF28：AO37）... 1。区域2（K14：T23）
2。区域1（AF28：AO37）展开

 我来答

1个回答

#合辑# 面试问优缺点怎么回答最加分？

庆年工坊
2015-08-31 · 知道合伙人互联网行家

庆年工坊
知道合伙人互联网行家

采纳数：4233 获赞数：8932

无

向TA提问私信TA

关注

展开全部

 Sub xx()
    Dim d
    Set d = CreateObject("Scripting.Dictionary")
    With [AF28:AO37]
    n = .Count
    For i = 1 To n
        d(.Item(i)) = ""
    Next i
    End With
    With [K14:T23]
    n = .Count
    For i = 1 To n
        If d.xeists(.Item(i)) Then .Item(i).Interior.ColorIndex = 6
    Next i
    End With
    d.RemoveAll
    With [K14:T23]
    n = .Count
    For i = 1 To n
        d(.Item(i)) = ""
    Next i
    End With
    With [AF28:AO37]
    n = .Count
    For i = 1 To n
        If d.xeists(.Item(i)) Then .Item(i).Interior.ColorIndex = 6
    Next i
    End With
End Sub

追问

If d.xeists(.Item(i)) Then .对象不支持属性或方法

追答

 Sub xx()
    Dim d
    Set d = CreateObject("Scripting.Dictionary")
    With [AF28:AO37]
    n = .Count
    For i = 1 To n
        d(.Item(i).Text) = ""
    Next i
    End With
    With [k14:t23]
    n = .Count
    For i = 1 To n
        If d.exists(.Item(i).Text) Then .Item(i).Interior.ColorIndex = 6
    Next i
    End With
End Sub