[已解决]求助，VBA如何实现不同工作表查找相同值并填充指定颜色

245747772

grf1973 发表于 2014-3-28 13:17
第8句要改一下： r = Sheet(x)..End(3).Row: brr = Sheets(x).Range("a1:b" & r)
颜色重复填充要提示，怎么 ...

是的

245747772

grf1973 发表于 2014-3-28 13:17
第8句要改一下： r = Sheet(x)..End(3).Row: brr = Sheets(x).Range("a1:b" & r)
颜色重复填充要提示，怎么 ...

代码运行不了 子程序或函数未设定

grf1973

Sheet(x)改成sheets(x)    打字错误

245747772

grf1973 发表于 2014-3-28 16:48
Sheet(x)改成sheets(x)    打字错误

测试了   有一个问题就是只读取sheets(4)的A1数值 其他的没有

245747772

grf1973 发表于 2014-3-28 16:48
Sheet(x)改成sheets(x)    打字错误

r = Sheets(4).[a65536].End(3).Row: arr = Sheets(4).Range("a1:b" & r) 的Sheets(4).[a65536] 我把b改a就可以了，因为B列没有数据

245747772

245747772 发表于 2014-3-29 09:44
r = Sheets(4).[a65536].End(3).Row: arr = Sheets(4).Range("a1:b" & r) 的Sheets(4).[a65536] 我把b改a ...

我在第一句加了 Range("A1:A1000").Interior.ColorIndex = xlNone，清除Sheets(4) 的颜色，如果 改"A1:a65536"处理会比较慢，是否能只清除到Sheets(4) 有数值的表格，还有就是颜色重复弹跳框的问题了 （如果Sheets(1)已经填充有颜色的侧不能重复填色）
谢谢

245747772

grf1973 发表于 2014-3-28 13:17
第8句要改一下： r = Sheet(x)..End(3).Row: brr = Sheets(x).Range("a1:b" & r)
颜色重复填充要提示，怎么 ...

帮帮忙

grf1973

1、r = Sheets(4).[a65536].End(3).Row
    Sheets(4).Range("a:a" & r).Interior.ColorIndex = 0可以只清理有数值的单元格颜色
2、说实话我没理解“颜色重复弹跳框”的问题。如果Sheets(1)已经填充有颜色的话，重复填色与否都是无所谓的。你最好举个能说明的问题的实例，手动模拟一下结果。

245747772

grf1973 发表于 2014-4-3 11:30
1、r = Sheets(4).[a65536].End(3).Row
    Sheets(4).Range("a:a" & r).Interior.ColorIndex = 0可以只清 ...

表4的数值是随时更新， 如果Sheets(1)已经填充有颜色的话, 可以防止表4的数值重复，重复就是出错了，如表4的A1数值第一次已经在表1上色，第二次表4还有上一次的数值就是错误了 ，

245747772

还想请问一下 ，查找sheet1 的时候空白的单元格也同时填充了，如果A1有数值，A2是空白的单元格，A3有数值，填充颜色的时候A2也会同时填充颜色