帮匹配下最大值

mmwwdd

加了个字典，看看这回

smiletwo

lixinghui1992

mmwwdd 发表于 2023-2-25 17:53
加了个字典，看看这回

这个差不多了，但是没有判断最大值，只是输出了靠后的值

lixinghui1992

smiletwo 发表于 2023-2-25 19:19

能不能把空着的全填了，还有就是如果统一委托编号出现任意一个空着的检测日期，最大日期就为空，那就完美了

smiletwo

lixinghui1992 发表于 2023-2-25 21:50
能不能把空着的全填了，还有就是如果统一委托编号出现任意一个空着的检测日期，最大日期就为空，那就完美 ...

请模拟结果，并加以说明

半百

lixinghui1992

感谢大家，问题解决了

lizhipei78

函数貌似也能解决啊
=IF(MAX(FILTER(B:B,A:A=A2))=B2,MAX(FILTER(B:B,A:A=A2)),"")

准提部林

Sub TEST_A1()
Dim xD, Arr, T$, DD
Set xD = CreateObject("Scripting.Dictionary")
[c1] = "MaxDate"
Arr = [a1].CurrentRegion
For i = 2 To UBound(Arr)
    T$ = Arr(i, 1): DD = Arr(i, 2)
    If IsDate(DD) Then If DD > xD(T) Then xD(T) = DD
Next
For i = 2 To UBound(Arr)
    Arr(i, 3) = xD(Arr(i, 1))
Next i
[a1].Resize(UBound(Arr), 3) = Arr
End Sub

lixinghui1992

准提部林 发表于 2023-2-26 13:45
Sub TEST_A1()
Dim xD, Arr, T$, DD
Set xD = CreateObject("Scripting.Dictionary")

就是这样的，谢谢