使用最新日期 vba 查找满足特定条件的行

Question

我在下面有这张表。 我试图通过 Excel VBA 实现的是循环遍历下表以查找最近日期的人名，并给我她/他购买的单位。

？：按“名称”搜索时，获得在最新“会议日期”购买的“单位”的最佳或最简单方法是什么

假设我选择 Gerry，结果将给我“30”，因为它是在最新的“会议日期”购买的单位对不起，我是 Excel VBA 的新手。

我的挑战也是在遍历所有具有“gerry”的行之后，如何获得具有最新日期的行？

如果需要澄清，我会更新问题。 谢谢。

Answer 1

如果你需要 VBA 来做，你可以像这样使用 ADODB：

Sub ReadFromWorksheetADO(selName As String)
    Dim conn As New ADODB.Connection

    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
        & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;"";"


    Dim query As String
    query = "SELECT * FROM [data$]"

    Dim rs As New ADODB.Recordset
    With rs
        .CursorLocation = adUseClient
        .Open query, conn
        .Sort = "Meeting_Date DESC"
        .Filter = "Name = '" & selName & "'"
    End With


    Debug.Print rs.Fields("Name").Value, rs.Fields("Meeting_Date").Value, rs.Fields("Units").Value
    ' Sheet2.Range("A1").CopyFromRecordset rs

End Sub

这会给你格里的结果

Sub TestIt()
    ReadFromWorksheetADO "Gerry"
End Sub

我将字段Meeting Date重命名为Meeting_Date 。 我假设带有您发布的数据的工作表的名称为data 。 您需要在 VBE 中添加对 ADODB 库的引用（转到工具/参考并选择 Microsoft Active DataObject 6.1