[已解决]请教：给指定条件的单元格涂色

lygyjt

请教老师：
        当F列中某个单元格（假定F（x））与E列中的某个单元格（假定E（y））完全一样时，如果E（y）在D列对应的是√，则F（x）单元格涂绿。
        E列与F列的数据总个数不一定相同。

具体见例子： 单元格涂色.rar (8.66 KB, 下载次数: 1)

2023-5-14 16:37 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

cutecpu

2023-5-14 16:38

1. Sub demo()
   
2.    [f:f].Interior.ColorIndex = 0
   
3.    Set Rng = [f65535]
   
4.    Set d = CreateObject("Scripting.Dictionary")
   
5.    a = [a1].CurrentRegion
   
6.    For i = 1 To UBound(a)
   
7.       If a(i, 4) = "√" Then d(a(i, 5)) = 1
   
8.    Next
   
9.    For i = 1 To UBound(a)
   
10.       If d(a(i, 5)) Then Set Rng = Union(Rng, Cells(i, 6))
    
11.    Next
    
12.    Rng.Interior.Color = &HB4E0C6
    
13. End Sub
    

复制代码

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

1. Sub demo()
   
2.    [f:f].Interior.ColorIndex = 0
   
3.    Set Rng = [f65535]
   
4.    Set d = CreateObject("Scripting.Dictionary")
   
5.    a = [a1].CurrentRegion
   
6.    For i = 1 To UBound(a)
   
7.       If a(i, 4) = "√" Then d(a(i, 5)) = 1
   
8.    Next
   
9.    For i = 1 To UBound(a)
   
10.       If d(a(i, 5)) Then Set Rng = Union(Rng, Cells(i, 6))
    
11.    Next
    
12.    Rng.Interior.Color = &HB4E0C6
    
13. End Sub
    

复制代码

祝順心，南無阿彌陀佛！

lygyjt

cutecpu 发表于 2023-5-14 16:38
祝順心，南無阿彌陀佛！

谢谢老师的辛苦！