gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-04 22:09:41 26 4
gpt4 key购买 nike

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

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

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

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

enter image description here

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

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

例如,如果我正在查找序列号 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 函数,但走到了死胡同。

最佳答案

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

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

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

enter image description here

更新
这是一个运行速度更快的 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

关于excel - 在与另一列和日期匹配的列中搜索值?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/11232210/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com