如何让目标区域与源区域的相同数据具有相同的填充颜色？

作者：绿色风分类：时间：2022-08-17 浏览：131

楼主 omnw	Q:如何让目标区域与源区域的相同数据具有相同的填充颜色？ A:通过以下代码可以实现每一行中目标区域（A:H列）与源区域（K:BQ列）相同数据具有相同的填充颜色。 Sub mycolor() Dim Rng As Range, i As Long, j As Integer, R as String'定义变量 Range("K:BQ").Interior.Pattern = xlNone'取消目标区域已有的填充颜色 For i = 2 To [A65536].End(3).Row'开始遍历所有的数据行 For j = 1 To 8'开始遍历源区域中的数据 With Range("K" & i & ":BQ" & i)'目标区域 Set Rng = .Find(Cells(i, j), , , xlWhole)'在目标区域中查询数据 If Not Rng Is Nothing Then'如果找到了相同的数据 R = Rng.Address'将目标单元格的地标保存起来 Do'由于目标区域中可能存在多个相同的数据，因此再执行一次循环 Rng.Interior.Color = Cells(i, j).Interior.Color’将源目标区域的填充颜色赋给目标区域 Set Rng = .FindNext(Rng)'在目标区域中再将查询源数据 Loop While Not Rng Is Nothing And Rng.Address <> R'如果找到符合条件的单元格，则再将执行循环 End If End With Next j Next i End Sub 查找相同数字并且用不同颜色.zip
2楼亡者天下	学习一下！
3楼童心	下载了，谢谢分享！
4楼 bluexuemei	很牛的代码啊

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表