Excel筛选状态下按Enter键触发VBA事件时如何正确捕获编辑行号

问题根源 #

原有逻辑通过ActiveCell.Row - 1反推编辑行，默认前提是按下Enter后光标仅向下移动1行。但开启筛选时，Excel会自动将光标跳转至下一个可见行，中间被筛选隐藏的行会被直接跳过，此时用当前活动单元格行号减1，拿到的只会是跳转位置的上一行，而非用户实际编辑的行。

核心解决思路 #

不要在光标跳转完成后再反推编辑位置，直接使用Worksheet_Change事件自带的Target参数获取被编辑的对象——Target就是用户刚完成修改的单元格区域，完全不受筛选状态、光标跳转规则的影响，直接读取Target.Row就能拿到准确的编辑行号。

参考实现代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 按需修改列号判断：示例中日期列为第4列（D列），仅日期列被编辑时触发流水记录逻辑
    If Target.Column <> 4 Then Exit Sub
    
    ' 直接从Target获取准确编辑行号，无筛选/隐藏/跳转干扰
    Dim editRow As Long
    editRow = Target.Row
    
    ' 关闭事件触发，避免修改单元格时递归触发本事件
    Application.EnableEvents = False
    On Error GoTo ErrorCatch

    ' 以下为原业务逻辑：读取该行对应字段写入流水表，按需调整列号和表名
    Dim logSht As Worksheet
    Set logSht = ThisWorkbook.Sheets("变更流水记录")
    Dim nextLogRow As Long
    nextLogRow = logSht.Cells(logSht.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 示例：A列=状态、B列=备注、C列=姓名、D列=日期，按需匹配实际表结构
    logSht.Cells(nextLogRow, "A") = Me.Cells(editRow, "A").Value
    logSht.Cells(nextLogRow, "B") = Me.Cells(editRow, "B").Value
    logSht.Cells(nextLogRow, "C") = Me.Cells(editRow, "C").Value
    logSht.Cells(nextLogRow, "D") = Me.Cells(editRow, "D").Value
    logSht.Cells(nextLogRow, "E") = Now() ' 可选：额外记录变更操作时间
    
    ' 光标移回用户刚编辑的单元格，和原有交互逻辑保持一致
    Me.Cells(editRow, Target.Column).Select

ErrorCatch:
    ' 无论代码是否报错，都要恢复事件触发开关
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "流水记录生成失败：" & Err.Description, vbExclamation
End Sub

额外注意事项 #

• 如果存在用户批量选中多单元格同时编辑的场景，需要先遍历Target区域的每个单元格，分别处理每个被修改的行，避免漏记
• 所有涉及单元格写入的Change事件代码，必须搭配事件开关和错误处理，防止递归触发事件导致程序异常
• 不要在Change事件中依赖ActiveCell判断编辑对象，事件触发时ActiveCell已经是跳转后的选中单元格，不代表实际被修改的位置

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