二區比對 找出相同數字 給顏色 求VBA代碼

小貓咪

二個區   左邊A到E 範圍有一堆數字   想給右區H到L找出跟左區A到E 相同數字 給顏色 求VBA代碼  

菜鳥新手知道函數可以實現  但就是想求個VBA代碼 請老師幫忙 謝謝

Qs18

1. Sub qs()
   
2. Dim arr, i, dic, rng As Range, rg As Range
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. With Sheet1
   
5.     arr = .Range("a1").CurrentRegion.Value
   
6.     For Each a In arr
   
7.         dic(a) = ""
   
8.     Next
   
9. Set rng = .Range("h1:l6")
   
10. For Each rg In rng
    
11.     If dic.exists(rg.Value) Then rg.Interior.Color = RGB(204, 255, 255)
    
12. 
    
13. Next
    
14. End With
    
15. Set dic = Nothing
    
16. End Sub
    

复制代码

Qs18

试试.........

Qs18

试试.........

小貓咪

Qs18 发表于 2024-10-11 07:22
试试.........

謝謝 Qs18老師 可以了  

ykcbf1100

标色

附件供参考。。。

ykcbf1100

参与一下。。。

小貓咪

謝謝  ykcbf1100 老師  可以使用  感謝2位老師  

quqiyuan

这个用条件格式不是也方便？仅供参考。。。
=COUNTIF($A$1:$E$6,H1)