如何取相同項的最後一次值

示例說明：A列是料號列，只需要取重複項的最後一行數據，例如B料號是取黃色行數據。

該實例可用於公司BOM表中取最近日期數據

 

源數據

 

 

結果

VBA代碼：

Sub test()
Dim cn As Object, sql$
Set cn = CreateObject("ADODB.Connection")
Sheet2.[a1:d65536].ClearContents
cn.Open "provider=microsoft.jet.oledb.4.0;" & _
        "extended properties='excel 8.0;hdr=no';" & _
        "data source=" & ThisWorkbook.FullName
sql = "select f1,last(f2),last(f3),last(f4) from [sheet1$] group by f1"
Sheet2.[a1].CopyFromRecordset cn.Execute(sql)
cn.Close
Set cn = Nothing
End Sub

http://blog.csdn.net/laoyebin/article/details/5293142