vba - Excel VBA : Way to find the value of a cell with multiple criteria

Question

我有一个大文件，在一张表中包含 3 列和 23393 行。 A列指的是日期，B列指的是整数，第三列指的是值。
我想找到具有多个条件的单元格(在第三列中)的值。

1)第一个标准是日期(从 1/1/2008 变为 12/31/2009)

2)第二个标准是一个整数(它从1变为32)

谢谢

Answer 1

简单的方法呢？

Function find(ByVal criteria1 As Date, ByVal criteria2 As Integer) As Variant

    For i = 2 To 300001
        If Cells(i, 1).Value = criteria1 Then
            If Cells(i, 2).Value = criteria2 Then
                find = Cells(i, 3).Value
                Exit Function
            End If
        End If
    Next i

    find = "N/A"

End Function

您可以运行一个简单的宏来测试它，如下所示:

Sub storeFoundValues()

    Dim matches(2) As Variant
    Dim date1, date2 As Date
    Dim int1, int2 As Integer

    date1 = DateSerial(2015, 7, 15)
    int1 = 3
    matches(1) = find(date1, int1)
    Cells(1, 5) = matches(1) ' test the output

    date2 = DateSerial(2016, 1, 10)
    int2 = 2
    matches(2) = find(date2, int2)
    Cells(1, 6) = matches(2) ' test the output

End Sub

在包含 30.000 条记录的工作表中，这花费了不到一秒钟的时间。