Excel VBA跨表复制数据时，如何限制仅复制指定列（A-I）？

原代码因使用整行复制/清除操作，会干扰表格旁的其他数据，以下是修正后的代码，同时修复了目标表最后一行判断的错误：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 9 Then
        Application.EnableEvents = False
        Dim r As Long
        r = Target.Row
        Dim Lastrow As Long
        ' 修正：获取"Complete Tasks"表中I列的最后一行，确保新数据追加到末尾
        Lastrow = Sheets("Complete Tasks").Cells(Rows.Count, "I").End(xlUp).Row + 1

        If Target.Value = "Complete" Then
            ' 仅复制当前行A到I列的内容
            Range("A" & r & ":I" & r).Copy Sheets("Complete Tasks").Cells(Lastrow, 1)
            ' 仅清除当前行A到I列的内容
            Range("A" & r & ":I" & r).ClearContents
        End If
    End If
    Application.EnableEvents = True
End Sub

关键修改说明： #

• 替换Rows(r).Copy为Range("A" & r & ":I" & r).Copy，明确指定复制范围为当前行的A至I列，避免复制整行影响其他表格。
• 替换Rows(r).ClearContents为Range("A" & r & ":I" & r).ClearContents，仅清除目标行的A至I列内容，保留其他列数据不受影响。
• 修正Lastrow的计算对象：原代码错误使用Sheets("Tasks")的最后一行，改为Sheets("Complete Tasks")，确保新数据追加到目标表的末尾，不会覆盖已有完成任务记录。

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