VBA调用Find设置xlPrevious返回首条而非最后一条匹配记录问题

问题原因 #

• 核心原因是Range.Find方法的参数具有继承性：VBA调用Find时，所有未显式指定的参数都会沿用之前Excel查找操作（无论是手动操作还是其他VBA代码调用）的遗留设置，比如LookIn、MatchCase等参数如果被修改过，就会导致本次搜索行为不符合预期。
• 代码存在不规范问题：定义了PTR、PN变量但未实际使用，所有赋值都共用desc变量，虽不影响当前功能但后续维护容易出错。

修复方案 #

1. 补全Find方法的所有关键参数 #

将原Set RC行替换为以下代码，显式指定所有搜索相关参数，避免参数继承导致的异常：

Set RC = Worksheets(sitevalue).Range("A:A").Find( _
    What:=lookfor, _
    After:=Worksheets(sitevalue).Range("A1"), _
    LookIn:=xlValues, _
    LookAt:=xlWhole, _
    SearchOrder:=xlByRows, _
    SearchDirection:=xlPrevious, _
    MatchCase:=False _
)

这里显式指定After为A列第一个单元格，搭配xlPrevious搜索方向时，会从A列最后一行开始从下往上搜索，命中的第一个匹配项就是目标ID最后一次出现的记录。

2. （可选）修正不规范的变量赋值 #

调整后续赋值逻辑，使用对应变量存储取值，方便后续维护：

' 写入描述
Dim desc As String
desc = RC.Offset(0, 2).Value
Range("Description").Value = desc

' 写入上一次测试结果
Dim PTR As String
PTR = RC.Offset(0, 21).Value
Range("PTR").Value = PTR

' 写入上一次备注
Dim PN As String
PN = RC.Offset(0, 24).Value
Range("PN").Value = PN

备用稳妥方案 #

如果仍存在搜索异常，可以改用从后往前遍历的方式实现，完全规避Find方法的参数继承问题：

Dim lastRow As Long
lastRow = Worksheets(sitevalue).Cells(Rows.Count, "A").End(xlUp).Row
Dim i As Long
For i = lastRow To 1 Step -1
    If Worksheets(sitevalue).Cells(i, "A").Value = lookfor Then
        Set RC = Worksheets(sitevalue).Cells(i, "A")
        Exit For
    End If
Next i
' 未找到匹配则触发错误
If RC Is Nothing Then GoTo ErrMsg

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