[已解决]求助论坛的老师帮忙做关于查找并填充颜色的宏

yslvictor

本人excel刚入门，想做个宏，不会vba，请论坛前辈替我做个宏。
要求：
在“遗漏”工作表602行的C602到AZ602中，查找与B602相同的数值并涂上红色。
602行中所有单元格的数都是公式或函数生成的，随时都在变，只在602行查找填充，其他行不用查找填充。谢谢。
（不用条件格式，因为条件格式填充后复制到别的地方颜色不显示了）（为压缩附件的大小删除了一些数据）
附件: 查找填充颜色.rar (32.05 KB, 下载次数: 4)

2012-5-5 17:23 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

ljzzlan

2012-5-5 17:53

Sub aa()
Dim rng As Range
  For Each rng In Range("c602:az602")
   If rng.Value = Range("b602").Value Then
    rng.Interior.ColorIndex = 3
        Else
         rng.Interior.ColorIndex = 0
   End If
   Next
End Sub

查找填充颜色.rar (30.46 KB, 下载次数: 9)

2012-5-5 18:15 上传

点击文件名下载附件   答案在模块2中 请看第一个附件，第二个附件中少写了一句代码！
    Else
         rng.Interior.ColorIndex = 0

跳转到最佳答案楼层

ljzzlan

Sub aa()
Dim rng As Range
  For Each rng In Range("c602:az602")
   If rng.Value = Range("b602").Value Then
    rng.Interior.ColorIndex = 3
        Else
         rng.Interior.ColorIndex = 0
   End If
   Next
End Sub

查找填充颜色.rar (30.46 KB, 下载次数: 9)

2012-5-5 18:15 上传

点击文件名下载附件   答案在模块2中 请看第一个附件，第二个附件中少写了一句代码！
    Else
         rng.Interior.ColorIndex = 0

yslvictor

谢谢版主，正是我想要的效果。[em17]

ljzzlan

yslvictor 发表于 2012-5-5 18:41
谢谢版主，正是我想要的效果。

那就设置一下最佳吧！呵呵！

论坛中共同学习，帮助你解决了问题后，设置最佳是对答题人的一种肯定！

yslvictor

第一次到论坛来，发帖回帖的程序不懂，下次一定做好。