1

我将数据存储在 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 函数，但走到了死胡同。

4

2 回答 2

2

非 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
于 2012-06-27T18:15:46.360 回答
1

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

=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）

于 2012-06-27T18:17:48.237 回答