Excel VBA删除行前复制该行至日志表的问题求助

我懂你现在的困扰——当前代码在删除行时，抓取到的是删除后向上移位的行数据，而非真正被删掉的那一行。这是因为行删除完成后，Target指向的是操作后选中的单元格（也就是原被删行下方的行），而且靠SelectionChange记录行数的方式也不够可靠，比如用户通过右键菜单删除行时，可能根本不会触发SelectionChange事件。

下面是修正后的代码，能精准捕获被删除的行数据并写入日志表：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim originalRowCount As Long
    Dim deletedRowsCount As Long
    Dim logSheet As Worksheet
    Dim deletedRange As Range
    
    ' 指定日志工作表，请根据你的实际表名修改
    Set logSheet = ThisWorkbook.Worksheets("日志表")
    
    originalRowCount = Me.UsedRange.Rows.Count
    If originalRowCount < Me.UsedRange.Rows.Count Then
        ' 行新增的场景，可保留你原有逻辑
        Debug.Print "Row Added: ", Target.Address
        Exit Sub
    ElseIf originalRowCount > Me.UsedRange.Rows.Count Then
        deletedRowsCount = originalRowCount - Me.UsedRange.Rows.Count
        
        ' 临时撤销删除操作，恢复被删掉的行
        Application.Undo
        ' 定位被删除的行范围（默认处理连续删除，非连续删除可调整逻辑）
        Set deletedRange = Target.Offset(0, 0).Resize(deletedRowsCount, Me.UsedRange.Columns.Count)
        
        ' 将被删行数据复制到日志表的最后一行
        deletedRange.Copy logSheet.Cells(logSheet.UsedRange.Rows.Count + 1, 1)
        
        ' 重新执行删除操作，保证原工作表状态正确
        deletedRange.Delete Shift:=xlUp
        
        Debug.Print "Deleted " & deletedRowsCount & " row(s): ", deletedRange.Address
    End If
End Sub

关键逻辑说明： #

• 撤销恢复机制：当检测到行数减少时，先通过Application.Undo临时恢复被删行，这样就能准确获取到待删除的行范围。
• 日志写入：把恢复后的被删行数据复制到日志表的末尾，避免覆盖已有日志内容。
• 重新执行删除：完成数据复制后再次删除目标行，确保原工作表的最终状态符合预期。
• 扩展性：代码默认支持连续多行删除，如果需要处理非连续行删除，可以进一步遍历Target.Areas来适配。

注意：请把代码中的"日志表"替换成你实际使用的日志工作表名称，同时要将文件保存为启用宏的格式（.xlsm）才能正常运行代码。

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