求教 excel中如何把所有的物料里 相同物料出现不同的价格时 自动标上颜色

秋叶舞风流

求教 excel中如何把所有的物料里 相同物料出现不同的价格时 自动标上颜色 请教各位大神

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Application.ScreenUpdating = False
   
6.   Application.DisplayAlerts = False
   
7.   Set d = CreateObject("scripting.dictionary")
   
8.   With Worksheets("sheet1")
   
9.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
10.     .Range("a1:d" & r).Interior.ColorIndex = 0
    
11.     arr = .Range("a1:d" & r)
    
12.     For i = 2 To UBound(arr)
    
13.       If Not d.exists(arr(i, 1)) Then
    
14.         Set d(arr(i, 1)) = CreateObject("scripting.dictionary")
    
15.       End If
    
16.       d(arr(i, 1))(arr(i, 4)) = Empty
    
17.     Next
    
18.     For i = 2 To UBound(arr)
    
19.       If d(arr(i, 1)).Count > 1 Then
    
20.         .Cells(i, 1).Resize(1, 4).Interior.ColorIndex = 6
    
21.       End If
    
22.     Next
    
23.   End With
    
24. End Sub
    

复制代码

chxw68

详见附件。