excel - 在与另一列和日期匹配的列中搜索值？

Question

我将数据存储在 Excel 的三列中

A 列:序列号
B 栏:日期
C 栏:值(value)(例如成本)

我需要查找与特定序列号(A 列)和日期(B 列)关联的值(C 列)。

例如，在下面的屏幕截图中，如果我想查找与序列号 (T455) 和日期(2010 年 12 月 13 日)关联的值，则该值应为 8。



我能想出的唯一方法是计算效率低下，因为每次查找值时我都会遍历所有单元格。

例如，是否有一种方法可以限制给定序列号的搜索区域？

例如，如果我正在查找序列号 T455 的值，我如何限制代码在行 (6-13) 中搜索日期并在 C 列中找到相应的值，而不是搜索整个表？

Sub FindValue()

Dim S as String
Dim D as Date
Dim V as Integer

S = T455
D = Dec 13, 2010

for i = 1 to Range("A1").End(xldown).Row 

If Range("A" & i) = S And Range("B" & i) < Date - 7 And Range("B" & i) < Date + 7   Then
' This way i search a date range rather than a specific date

V = Range("C" & i).Value

End If

End Sub

我想到了 While 循环或 Lookup 函数，但走到了死胡同。

Answer 1

非 VBA 解决方案可能更容易且不那么令人头疼。

A 列包含公式，A1 = "=B1&C1"

单元格 G1 公式可以在公式栏中看到。



更新
这是一个运行速度更快的 VBA 解决方案，但是根据您所写的内容，有一些我不确定的注释。此外，请查看一些注释以帮助您的代码更符合您的要求。

Sub FindValue()

Dim S As String, D As Date, V As Integer, rngFound As Range, cel As Range

S = "T455" 'needs quotes around the string
D = "Dec 13, 2010" 'needs quotes around the date

Dim wks As Worksheet
Set wks = ActiveSheet

With wks

     'always better to AutoFilter than Loop when you can!
    .UsedRange.AutoFilter 1, S
    .UsedRange.AutoFilter 2, ">" & D - 7, xlAnd, "<" & D + 7

    Set rngFound = Intersect(.UsedRange, .Columns(3)).SpecialCells(xlCellTypeVisible)

    'the only thing here is if you have a date range _
        'you may return more than one result _
        'in that case, I don't know what you want to do with all the V's

    If Not rngFound Is Nothing Then
        For Each cel In rngFound
            V = cel.Value
        Next
    End If

    .AutoFilterMode = False

End With

End Sub