[已解决]批量加色

excel白兔

批量加色 谢谢老师

最佳答案

月排行榜 / 总排行榜

zjdh

2014-5-14 08:27

批量填色2.rar (9.85 KB, 下载次数: 3)

2014-5-14 08:27 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

1. Sub Macro1()
   
2.     Columns("B:B").Interior.ColorIndex = xlNone
   
3.     For I = 3 To Range("A65536").End(3).Row
   
4.         For J = 3 To Range("F65536").End(3).Row
   
5.             If Cells(I, 1) = Cells(J, 6) Then
   
6.                 Cells(I, 1).Offset(, 1).Interior.ColorIndex = Cells(J, 6).Interior.ColorIndex
   
7.                 Exit For
   
8.             End If
   
9.         Next
   
10.     Next
    
11. End Sub

复制代码

zjdh

批量填色.rar (9.84 KB, 下载次数: 4)

2014-5-13 17:00 上传

点击文件名下载附件

excel白兔

zjdh 发表于 2014-5-13 17:00

老师好 这个对就是这样的结果 不好意思老师附件说明的太清楚所以代码是反了  是这样的原始颜色在B列   运行代码查找F列 查找到后在F列里标记B列里的颜色  （也就是基础是A和B列运行代码颜色在F列标记 F列是运行代码要标记的列 谢谢老师）

zjdh

批量填色2.rar (9.85 KB, 下载次数: 3)

2014-5-14 08:27 上传

点击文件名下载附件