匹配数据，对比数据，有人练手吗

jiangyuqin1025

匹配数据，对比数据，有人练手吗匹配数据，对比数据，有人练手吗匹配数据，对比数据，有人练手吗

jiangyuqin1025

有人做一下吗？？？？？？？？？？？？？？？？？？？？？？？

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Set d = CreateObject("scripting.dictionary")
   
6.   With Worksheets("库存实时查询")
   
7.     r = .Cells(.Rows.Count, 2).End(xlUp).Row
   
8.     arr = .Range("a2:m" & r)
   
9.     For i = 1 To UBound(arr)
   
10.       d(arr(i, 5)) = arr(i, 8)
    
11.     Next
    
12.   End With
    
13.   With Worksheets("日常申购")
    
14.     r = .Cells(.Rows.Count, 2).End(xlUp).Row
    
15.     .Range("g4:j" & r).ClearContents
    
16.     arr = .Range("b4:j" & r)
    
17.     For i = 1 To UBound(arr)
    
18.       If d.exists(arr(i, 2)) Then
    
19.         arr(i, 6) = d(arr(i, 2))
    
20.       End If
    
21.     Next
    
22.     For i = 1 To UBound(arr)
    
23.       arr(i, 7) = arr(i, 6) - arr(i, 5)
    
24.     Next
    
25.     .Range("b4:j" & r) = arr
    
26.     For i = 1 To UBound(arr)
    
27.       If arr(i, 6) >= arr(i, 5) Then
    
28.         .Cells(i + 3, 8).Interior.ColorIndex = 4
    
29.       Else
    
30.         .Cells(i + 3, 8).Interior.ColorIndex = 3
    
31.       End If
    
32.     Next
    
33.     .Range("b3:j" & r).Sort key1:=.Range("h4"), order1:=xlAscending, Header:=xlYes
    
34.   End With
    
35.   
    
36. End Sub
    

复制代码

chxw68

详见附件。