示例说明: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