根据C列的最近一次时间，提取A列唯一值所对应的订单进度。

飞天篮球猪

wtzxuexivba 发表于 2025-11-7 21:08
感谢您的回复！还是希望用VBA方法求解。

VBA里也可以用SQL语句...
输出至工作表Sheet2，这个Sheet2如果不存在就手动添加一下，不想用程序写了...
写的比较粗糙，仅供参考：

1. Sub Excel_OLEDB()
   
2. 
   
3. '前期绑定: 菜单-工具-引用-Microsoft ActiveX Data Objects 6.1 Library
   
4. Dim aCnxn As New ADODB.Connection, aRcdset As New ADODB.Recordset
   
5. 
   
6. '创建OLEDB连接
   
7. With aCnxn
   
8.     .Provider = "Microsoft.ACE.OLEDB.12.0"
   
9.     .ConnectionString = "Extended Properties='EXCEL 12.0 Xml;HDR=Yes;IMEX=1';" & _
   
10.                                        "Data Source=" & ThisWorkbook.FullName
    
11.     .CursorLocation = adUseClient
    
12.     .Open
    
13. End With
    
14. 
    
15. '指定数据区域。 写成[Sheet1$A:C]指定区域范围时最大行数只支持65536行？
    
16. Dim DataRng As String
    
17. DataRng = "[Sheet1$]"
    
18. 
    
19. 'SQL语句
    
20. Dim strSQL As String
    
21. strSQL = "select o.订单号,o.订单进度,o.时间 from  " & DataRng & _
    
22.                 "o inner join (select 订单号, max(时间) as 最近 from " & DataRng & _
    
23.                 "group by 订单号) m on o.订单号=m.订单号 and o.时间=m.最近"
    
24. 
    
25. 'Recordset的Open方法获取询结果
    
26. aRcdset.Open strSQL, aCnxn, adOpenKeyset, adLockBatchOptimistic
    
27. 'Debug.Print aRcdset.RecordCount   '打印结果行数
    
28. 
    
29. '输出字段标题
    
30. For i = 0 To aRcdset.Fields.Count - 1
    
31.     Sheet2.Cells(1, i + 1).Value = aRcdset.Fields(i).Name
    
32. Next i
    
33. 
    
34. '输出数据
    
35. Sheet2.[A2].CopyFromRecordset aRcdset
    
36. 
    
37. '关闭连接，释放内存
    
38. aRcdset.Close: Set aRcdset = Nothing
    
39. aCnxn.Close: Set aCnxn = Nothing
    
40. 
    
41. End Sub
    
42. 
    

复制代码

cjc209

=FILTER(A2:C86,INT(--LEFT($C$2:$C$86,10)=MAX(INT(--LEFT($C$2:$C$86,10)))))