在excel多表查询重复标色

labrookie

我想在附件内的清单里输入一列数据，在sheet2里也输入一列数据。现在要做的是在sheet2里的那一列用颜色标识出在清单表里有出现的数据。

魂断蓝桥

条件格式

labrookie

??????我有设置呀，但是不成功

ykcbf1100

借题练习，VBA，标色

ykcbf1100

1. Sub ykcbf()   '//2025.3.27
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("清单")
   
5.         arr = .UsedRange
   
6.         For i = 3 To UBound(arr)
   
7.             If Val(arr(i, 1)) Then
   
8.                 If .Cells(i, 2).Interior.ColorIndex Then d(arr(i, 2)) = ""
   
9.             End If
   
10.         Next
    
11.     End With
    
12.     With Sheets("Sheet2")
    
13.         r = .Cells(Rows.Count, 1).End(3).Row
    
14.         For i = 1 To r
    
15.             Set Rng = .Cells(i, 1)
    
16.             s = Rng.Value
    
17.             If Not d.exists(s) Then
    
18.                 Rng.Cells.Interior.ColorIndex = 4
    
19.             Else
    
20.                 Rng.Cells.Interior.ColorIndex = 3
    
21.             End If
    
22.         Next
    
23.     End With
    
24.     Application.ScreenUpdating = True
    
25.     MsgBox "OK！"
    
26. End Sub
    
27. 
    

复制代码