通过固定格式的条件求最大值--问题未解决，继续

dg831451

请参考一下.数据太多的话,用公式是有影响的
但是LOOKUP函数的速度应该比较快的

timeyh

用lookup有一个问题。。就是必须要求源数据进行排序，如果排序错误的话就不对了。。

timeyh

有老师能解决这个问题吗。

timeyh

期待中。。。

timeyh

能不能用VBA来实现呢？是不是方便些。

timeyh

这个问题还未解决。不能让它沉下去了。。继续。。。

timeyh

DDDDDDDDDDDDDDDd

zhaogang1960

短消息收到，不会函数就使用代码吧：
Sub Macro1()
    Dim c As Range, arr, brr, crr(), i As Long, r As Long
    arr = Range("A2:A" & Range("A65536").End(3).Row)
    ReDim crr(1 To UBound(arr), 1 To 2)
    With Sheets("Sheet1")
        brr = .UsedRange
        For i = 1 To UBound(arr)
            Set c = .Range("b:b").Find(arr(i, 1), , , xlWhole, , xlPrevious)
            If Not c Is Nothing Then
                r = c.Row
                crr(i, 1) = brr(r, 1)
                crr(i, 2) = brr(r, 7)
            End If
        Next
    End With
    Cells(2, 2).Resize(UBound(arr), 2).Value = crr
    Cells(2, 2).Resize(UBound(arr)).NumberFormatLocal = "m""月""d""日"""
End Sub