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

Question

我将数据存储在Excel的三列

中

A栏：序列号 B栏：日期 C栏：价值（例如成本）

我需要查找与特定序列号（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＆amp; 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

Answer 2

如果你愿意接受非VBA解决方案，那么你可以使用this implementation，它基本上使用这个公式：

=IFERROR(INDEX(List, MATCH(0, COUNTIF(H1:$H$1, List)+
  IF(Category2<>Criteria2, 1, 0)+IF(Category1<>Criteria1, 1, 0), 0)), "")

有几种VBA方法，这取决于您对语言的满意程度以及您希望解决方案的效率。在我的头顶：

1）使用两个条件过滤列表，然后返回任何可见行（如果有）的相关值

2）按这两列排序您的数据（首先是序列，然后是日期），然后执行搜索（您可能希望调用内置函数，如MATCH）