VBA需求：A列新增行填充时同步生成C列XLOOKUP公式故障排查

你的代码核心问题出在**lastRow的计算时机和判断逻辑**：事件触发时你先计算了A列原最后一行，但用户在A列原最后一行的下一行输入内容后，新的lastRow已经更新为Target.Row，原代码仍用旧值做判断，导致逻辑失效；同时缺少错误处理，一旦代码运行出错，Application.EnableEvents会保持关闭状态，影响后续所有Excel事件触发。

以下是修正后的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim newLastRow As Long
    ' 仅处理A列的单个单元格变更，过滤批量操作和其他列的修改
    If Target.Column <> 1 Or Target.Cells.Count > 1 Then Exit Sub
    
    Application.EnableEvents = False
    On Error GoTo Cleanup ' 确保出错时也能恢复事件触发
    
    ' 获取A列当前最新的最后一行
    newLastRow = Me.Cells(Me.Rows.Count, "A").End(xlUp).Row
    ' 判断当前变更的行是否为刚填充的新增行
    If Target.Row = newLastRow Then
        ' 写入XLOOKUP公式，直接用Target.Row确保引用行号正确
        Me.Cells(Target.Row, "C").Formula = "=XLOOKUP($A" & Target.Row & ",Inventario!$A:$A,Inventario!C:C)"
    End If
    
Cleanup:
    Application.EnableEvents = True
    ' 若有错误则提示
    If Err.Number <> 0 Then MsgBox "运行错误：" & Err.Description
End Sub

关键改动说明：

• 限定触发范围：先过滤非A列、多单元格的修改操作，避免无效触发
• 强制恢复事件：通过错误处理标签Cleanup，确保无论代码是否出错，Application.EnableEvents都会被重新开启
• 动态判断新增行：用newLastRow获取当前最新的最后一行，精准匹配刚填充的新增行
• 直接引用目标行：公式中使用Target.Row作为行号，避免因lastRow计算偏差导致的引用错误

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