Excel VBA工作簿打开事件代码报错：无法复制K列日期行至Paid工作表

核心错误原因 #

• Workbook_Open事件中不存在Target对象：Target是工作表Change事件的专属参数，仅用于标识触发变更的单元格区域，在工作簿打开事件中调用会直接报错，这就是代码停止运行的根本原因。
• 逻辑混淆：将工作簿打开时的批量历史数据处理与实时修改K列时的触发处理混写在同一个事件中，不符合VBA事件的触发逻辑。

修复后的完整实现 #

需要拆分两个独立事件来满足需求：

1. 工作簿打开时的批量处理（ThisWorkbook模块） #

用于启动工作簿时，一次性将Unpaid表中K列已填写日期的行全部移至Paid表：

Private Sub Workbook_Open()
    Dim wsUnpaid As Worksheet, wsPaid As Worksheet
    Dim lastRowUnpaid As Long, lastRowPaid As Long
    Dim i As Long
    
    Set wsUnpaid = ThisWorkbook.Worksheets("Unpaid")
    Set wsPaid = ThisWorkbook.Worksheets("Paid")
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' 从最后一行往前遍历，避免删除行导致索引错位
    lastRowUnpaid = wsUnpaid.Cells(wsUnpaid.Rows.Count, "K").End(xlUp).Row
    For i = lastRowUnpaid To 2 Step -1 ' 假设第1行为表头，从第2行开始处理
        If IsDate(wsUnpaid.Cells(i, "K").Value) Then
            ' 复制当前行A-M列数据
            wsUnpaid.Range("A" & i & ":M" & i).Copy
            ' 粘贴到Paid表末尾
            lastRowPaid = wsPaid.Cells(wsPaid.Rows.Count, "A").End(xlUp).Row + 1
            wsPaid.Range("A" & lastRowPaid).PasteSpecial xlPasteAll
            ' 删除原行
            wsUnpaid.Rows(i).Delete
        End If
    Next i
    
    wsPaid.Columns.AutoFit
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

2. 实时修改K列时的自动处理（Unpaid工作表模块） #

用于后续在Unpaid表中修改K列时，自动触发行移动操作：

注意：此代码必须放在Unpaid工作表的代码模块中（而非ThisWorkbook模块）

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wsPaid As Worksheet
    Dim lastRowPaid As Long
    Dim cell As Range
    
    Set wsPaid = ThisWorkbook.Worksheets("Paid")
    
    ' 仅响应K列的单元格变更
    If Not Intersect(Target, Me.Columns("K")) Is Nothing Then
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        
        For Each cell In Target
            If IsDate(cell.Value) Then
                ' 复制当前行A-M列到Paid表末尾
                lastRowPaid = wsPaid.Cells(wsPaid.Rows.Count, "A").End(xlUp).Row + 1
                Me.Range("A" & cell.Row & ":M" & cell.Row).Copy wsPaid.Range("A" & lastRowPaid)
                ' 删除原行
                Me.Rows(cell.Row).Delete
            End If
        Next cell
        
        wsPaid.Columns.AutoFit
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

关键优化说明 #

• 反向遍历批量处理：从最后一行往前遍历，避免删除行后后续行索引错位，导致漏处理数据
• 事件拆分：将批量操作与实时操作分离，符合VBA事件的触发机制
• 性能优化：关闭事件触发与屏幕更新，提升代码运行效率，避免重复触发
• 精准数据范围：明确复制A-M列数据，避免冗余内容复制

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