汇总值，求最后单价，最后售价作对比

jiangyuqin1025

zzzzzzzzzzzzzzzzzzzzzzzzzzzzz

grf1973

1. Sub 提取()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Dim brr(1 To 10000, 1 To 5)
   
4.     For k = 1 To 2
   
5.         c = IIf(k = 1, 4, 5)
   
6.         arr = Sheets(k).[a1].CurrentRegion
   
7.         For i = 2 To UBound(arr)
   
8.             x = arr(i, 3)
   
9.             If Not d.exists(x) Then
   
10.                 n = n + 1
    
11.                 d(x) = n
    
12.                 brr(n, 1) = arr(i, 2)
    
13.                 brr(n, 2) = x
    
14.                 brr(n, 3) = arr(i, 4)
    
15.             End If
    
16.             brr(d(x), c) = arr(i, 5)
    
17.         Next
    
18.     Next
    
19.     [b2:f10000] = ""
    
20.     If n > 0 Then [b2].Resize(n, 5) = brr
    
21. End Sub
    

复制代码

我是HR

grf1973 发表于 2018-9-25 14:09

老师，您的代码是如何判断最大日期的呢？谢谢

grf1973

没有判断最大日期，默认源数据是按日期排好序的。