对比两列数据，如果没有出现，则加亮显示

如上图所示，有两列数据，如果第一列中的某个数据，没有在第三列中出现，那么就把第一列的相应单元格用红色标记出来。

多谢！

可以用条件格式：
1.选择A列------条件格式
2.使用公式设置单元格，输入公式：=AND(LEN(A1)>0,COUNTIF($C:$C,A1)=0)
3.格式设置颜色，确定

也可以用VBA

1. Sub fd()
   
2.     Dim arr, brr, i&, j&, d As Object, rng As Range
   
3.    
   
4.     brr = Range("C1:C" & Cells(Rows.Count, 3).End(3).Row)  '第三列记入数组brr
   
5.    
   
6.     Set d = CreateObject("scripting.dictionary")  '创建字典d
   
7.    
   
8.     For i = 1 To UBound(brr)   '遍历数组brr,并记入字典d
   
9.         d(brr(i, 1)) = ""
   
10.     Next
    
11.    
    
12.     Columns("A:A").Interior.Pattern = xlNone  'A列为无色填充
    
13.    
    
14.     arr = Range("A1:A" & Cells(Rows.Count, 1).End(3).Row)  '第一列记入数组brr
    
15.    
    
16.     For i = 1 To UBound(arr)   '遍历数组arr
    
17.         If Len(arr(i, 1)) > 0 And Not d.exists(arr(i, 1)) Then  '不为空，且不存在字典中执行
    
18.             If rng Is Nothing Then
    
19.                 Set rng = Cells(i, 1)    '单元格记入rng
    
20.             Else
    
21.                 Set rng = Union(rng, Cells(i, 1))   '单元格连接
    
22.             End If
    
23. 
    
24.         End If
    
25.     Next
    
26.     rng.Interior.Color = 65535    '设置颜色
    
27. End Sub

复制代码

芐雨 发表于 2014-10-30 15:17
可以用条件格式：
1.选择A列------条件格式
2.使用公式设置单元格，输入公式：=AND(LEN(A1)>0,COUNTIF($C ...

多谢高手！

芐雨 发表于 2014-10-30 15:17
可以用条件格式：
1.选择A列------条件格式
2.使用公式设置单元格，输入公式：=AND(LEN(A1)>0,COUNTIF($C ...

不过报错了，说是类型不匹配

江夏雁 发表于 2014-10-31 08:56
不过报错了，说是类型不匹配

哪个报错，请指明？

芐雨 发表于 2014-10-31 08:57
哪个报错，请指明？

是VBA程序

芐雨 发表于 2014-10-31 08:57
哪个报错，请指明？

是我的问题，没有错误了，抱歉！