如何修改VBA脚本以定位列中最后一个匹配值的单元格并添加时间戳？

没问题，我帮你调整代码来定位最后一个匹配项，同时保留原有的时间戳功能。下面是修改后的完整代码，以及关键改动的说明：

修改后的完整代码 #

Private Sub ExitButton_Click()
    Dim cell As Range
    Dim searchRange As Range
    
    ' 定义D列的搜索范围：从D1到该列最后一个非空单元格
    Set searchRange = Range("D1", Cells(Rows.Count, 4).End(xlUp))
    
    ' 查找最后一个匹配项：通过SearchDirection:=xlPrevious实现反向搜索
    Set cell = searchRange.Find(What:=Me.UsId.Value, _
                                LookIn:=xlFormulas, _
                                LookAt:=xlWhole, _
                                MatchCase:=False, _
                                SearchFormat:=False, _
                                SearchDirection:=xlPrevious)
    
    ' 确认找到匹配项后，向右偏移3列写入当前时间戳
    If Not cell Is Nothing Then
        cell.Offset(0, 3).Value = Now()
    Else
        ' 可选：如果没有找到匹配项，弹出提示
        MsgBox "未找到与输入UsId匹配的记录！", vbExclamation
    End If
End Sub

关键改动说明 #

• 添加SearchDirection:=xlPrevious参数：
  原代码的Find方法默认使用xlNext（从上到下、从左到右查找第一个匹配），改成xlPrevious后，会从搜索范围的末尾开始反向查找，直接定位到最后一个符合条件的单元格。
• 明确搜索范围变量：
  把搜索范围单独定义为searchRange，让代码结构更清晰，后续如果需要调整列或范围也更方便。
• 完善空值判断：
  确保cell不是空对象时再执行写入操作，避免因找不到匹配项导致运行时错误，同时增加了可选的提示弹窗，提升用户体验。

额外注意事项 #

• 如果你的D列存在中间空白的情况，Cells(Rows.Count, 4).End(xlUp)依然能准确定位到最后一个非空单元格，这个逻辑是可靠的。
• 原代码的LookAt:=xlWhole是完全匹配模式，如果你需要模糊匹配，可以改成xlPart，但建议保持原逻辑以避免误匹配。

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