VBA统计最大值并且显示日期

nouce

各位大神，用什么方式统计比较好？用两FOR循环的话，因为数据量大，会运算很久


把明细表里的物料编码，名称，规格，单位放到统计表里，不重复，并且在得出最新报价和最新日期

shiruiqiang

字典去重，比较日期。新手路过

nouce

shiruiqiang 发表于 2023-3-26 10:23
字典去重，比较日期。新手路过

字典不太会用，测试用过，出不来数据

Yalishanda30

猜的。。。。。。。

fzxba

测试.rar (21.56 KB, 下载次数: 18)

2023-3-26 11:00 上传

点击文件名下载附件

zxsea_7426

是这样的结果不?
用我刚学字典那会最常用最简单的字典加数组的方法做了一个

准提部林

Sub TEST_A1()
Dim Arr, Brr, xD, i&, j%, k%, T$, D, R&, N&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range(Sheet1.[a1], Sheet1.[i65536].End(3))
ReDim Brr(1 To UBound(Arr), 1 To 6)
For i = 2 To UBound(Arr)
    For j = 4 To 7: T = T & "/" & Arr(i, j): Next
    If xD(T) = 0 Then
       N = N + 1:  xD(T) = N
       For k = 1 To 4: Brr(N, k) = Arr(i, k + 3): Next
    End If
    R = xD(T): D = Val(Arr(i, 2)): T = ""
    If D > Brr(R, 5) Then Brr(R, 5) = D: Brr(R, 6) = Arr(i, 9)
Next i
Sheet2.[a2:f2000].ClearContents
Sheet2.[a2].Resize(N, 6) = Brr
End Sub

nouce

Yalishanda30 发表于 2023-3-26 10:52
猜的。。。。。。。

感谢，这个SQL可以，速度也快，只是取了最高价，想要的结果是最新日期的报价

nouce

fzxba 发表于 2023-3-26 11:00

感谢，这个SQL可以，速度也快，只是取了最高价，想要的结果是最新日期的报价

nouce

zxsea_7426 发表于 2023-3-26 11:44
是这样的结果不?
用我刚学字典那会最常用最简单的字典加数组的方法做了一个

结果是这样的，晚点去测试一下运算速度