完善VBA Find函数：搜索两个目标并定位首个匹配项

嘿，这个问题我熟！VBA的Find方法确实没法直接在What参数里用or来同时搜索多个关键词，不过咱们可以通过两次查找+位置比较的方式解决，刚好能满足你要找最先出现匹配项（从当前单元格往上找的第一个匹配）的需求。

实现思路 #

1. 分别用Find查找"Assembly"和"Component"，搜索方向保持你原来的xlPrevious（从当前单元格向上查找）
2. 处理三种情况：只找到其中一个关键词、两个都找到、两个都没找到
3. 如果两个关键词都找到，比较它们的行号——行号越大的单元格越靠近当前位置，也就是你要的"最先出现"的匹配项

完整代码 #

Dim findAssembly As Range
Dim findComponent As Range
Dim FindRow As Range

' 查找"Assembly"，保持你的搜索范围和方向
Set findAssembly = ThisWorkbook.Sheets("Schedule").Range("N1:" & ActiveCell.Address).Find( _
    What:="Assembly", SearchDirection:=xlPrevious, MatchCase:=False, LookAt:=xlWhole)

' 查找"Component"，同样的规则
Set findComponent = ThisWorkbook.Sheets("Schedule").Range("N1:" & ActiveCell.Address).Find( _
    What:="Component", SearchDirection:=xlPrevious, MatchCase:=False, LookAt:=xlWhole)

' 判断并确定最终的匹配项
If findAssembly Is Nothing And findComponent Is Nothing Then
    ' 两种关键词都没找到的情况
    Set FindRow = Nothing
ElseIf findAssembly Is Nothing Then
    ' 只找到"Component"
    Set FindRow = findComponent
ElseIf findComponent Is Nothing Then
    ' 只找到"Assembly"
    Set FindRow = findAssembly
Else
    ' 两个都找到，选行号更大的（离当前单元格更近的）
    If findAssembly.Row > findComponent.Row Then
        Set FindRow = findAssembly
    Else
        Set FindRow = findComponent
    End If
End If

细节说明 #

• 我加了LookAt:=xlWhole参数，确保是精确匹配（比如不会把包含"Assembly"的长文本，比如"Assembly Line"也算进去）。如果你需要模糊匹配，可以把这个参数改成xlPart，或者直接删掉（VBA默认是xlPart）。
• 代码里处理了"两个关键词都没找到"的情况，避免后续调用FindRow时出现报错。

内容的提问来源于stack exchange，提问作者Dan