求助：vba查找比对标黄

jeremy1984

想用VBA达到下面效果:（表“基础数据”）中A列存放比对的基础数据，先需要将（表“提取数据”）中G列数据在（表“基础数据”）中A列中查找，如果能查到则标黄（表“提取数据”）中对应单元格，如查不到则不处理。详见附件，请大神指点，万分感谢！！

skyzxh

这好像用条件格式就能完成，为啥要用VBA呢？

jeremy1984

因为（表“基础数据”）和（表“提取数据”），数据量都很大。T_T

skyzxh

能有多大？最多是满列吧？条件格式也没问题啊

jiminyanyan

Sub d()
     'VBA  jimin
     'QQ: 494585639
    Dim arr(), brr(), Dic As Object
    Set Dic = CreateObject("Scripting.Dictionary")
    arr = Sheet2.Range("a1").CurrentRegion
    brr = Sheet1.Range("g1:g" & Sheet1.Range("g65535").End(xlUp).Row)
    For i = 1 To UBound(arr)
            Dic(arr(i, 1)) = ""
    Next
    Sheet1.Columns("g:g").Interior.Pattern = xlNone
    For i = 2 To UBound(brr)
        If Dic.Exists(brr(i, 1)) Then
            Range("g" & i).Interior.Color = 65535
        End If
    Next
End Sub

jiminyanyan

。。。。。

jeremy1984

十分感谢大神，特别是，Sheet1.Columns("g:g").Interior.Pattern = xlNone这个给我启发很大，改进了自己写的。感谢感谢

jiminyanyan

jeremy1984 发表于 2019-3-27 01:47
十分感谢大神，特别是，Sheet1.Columns("g:g").Interior.Pattern = xlNone这个给我启发很大，改进了自己写 ...

有反馈，不错。 有问题可加我QQ。

jeremy1984

jiminyanyan 发表于 2019-3-27 12:45
有反馈，不错。 有问题可加我QQ。

谢谢，现在在工作中学习vba，因为懒，所以想办法偷懒。大部分都是网上找基础代码，自己组合，修改。但是有的复杂的还是需要点拨，汇总表大部分还是用公式在做，大量明细筛选，提取，等重复性的工作在用vba。