[已解决]找出右边区域中在A列没有的数据填充颜色

fjmxwrs · 发表于 2010-10-16 22:24

给右边区域中找出在A列没有的数据单元格填充红色

如题,请老师和同学们指点,谢谢

vyKO6xz3.rar (1.72 KB, 下载次数: 26)

liuguansky · 发表于 2010-10-16 22:41

这个最佳答案由 liuguansky 给出，感谢 liuguansky 的回答。

单击隐藏图章

Sub justtest()   Dim dic, i&, rng1 As Range, rng2 As Range   Set dic = CreateObject("scripting.dictionary")   For i = 1 To Cells(Rows.Count, 1).End(3).Row     dic(Cells(i, 1).Value) = ""   Next   Set rng1 = [d3:k15]   rng1.Interior.ColorIndex = xlNone   For Each rng2 In rng1     If Not dic.exists(rng2.Value) And rng2 <> "" Then       rng2.Interior.ColorIndex = 12     End If   Next   Set dic = Nothing End Sub

复制代码

fjmxwrs · 发表于 2010-10-16 22:53

花花学委,你的这个可以实现,用苦丁学委的要怎么写?

教我一下

    Sub aa()
        Set c = Range("d3:k15").Find(Range("a10"))
    If c Is Nothing Then

Else

End If

End Sub
中间怎么写?

wiexcel · 发表于 2010-10-17 09:14

用条件格式不就可以了吗？

走进EXCEL · 发表于 2010-10-17 13:02

做个记号。。

liuguansky · 发表于 2010-10-18 20:52

Sub justtest()
Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range
Set rng2 = Range("d3:k15")
Set rng3 = Range("a1:a" & Cells(1, 1).End(4).Row)
rng2.Interior.ColorIndex = xlNone
For Each rng1 In rng2
 If rng1 <> "" Then
 If rng3.Find(rng1) Is Nothing Then
 rng1.Interior.ColorIndex = 21
 End If
 End If
Next
End Sub

这样试试。

		自动登录	找回密码
密码			注册