VBA宏问题：将ChangeList筛选数据追加粘贴至Status工作表不覆盖旧数据

原代码的核心问题 #

• 未指定工作表的lastRow计算：原代码lastRow = Cells(Rows.Count, 1).End(xlUp).Row没有明确指定工作表，默认取当前激活表格的行号，根本不是STATUS表的实际最后数据行，直接导致粘贴位置错位。
• 冗余的Select操作：大量使用Select不仅拖慢代码效率，还容易因激活表意外切换触发错误，完全可以直接操作单元格对象避免选择。
• 粘贴逻辑矛盾：先选中STATUS表的B7，却用错误的lastRow行号执行粘贴，自然不会按预期从B7开始粘贴。

修正后的代码 #

Sub paste2()
    ' 声明工作表对象，避免激活/选择操作
    Dim wsChange As Worksheet, wsStatus As Worksheet
    Dim lastRowStatus As Long
    Dim copyRange As Range
    
    ' 绑定目标工作表
    Set wsChange = ThisWorkbook.Sheets("CHANGELIST")
    Set wsStatus = ThisWorkbook.Sheets("STATUS")
    
    ' 应用筛选：A5:AJ106区域，第5列筛选"Submitted"
    wsChange.Range("$A$5:$AJ$106").AutoFilter Field:=5, Criteria1:="Submitted"
    
    ' 获取CHANGELIST中B列从B8开始的可见单元格
    On Error Resume Next ' 处理无筛选结果的情况
    Set copyRange = wsChange.Range("B8:B1000").SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 确认有可复制数据再执行粘贴
    If Not copyRange Is Nothing Then
        ' 计算STATUS表B列最后一个非空行
        lastRowStatus = wsStatus.Cells(wsStatus.Rows.Count, "B").End(xlUp).Row
        
        ' 控制粘贴起始行：若B7及以上无数据，从B7开始；否则追加到最后一行的下一行
        If lastRowStatus < 7 Then
            lastRowStatus = 7
        Else
            lastRowStatus = lastRowStatus + 1
        End If
        
        ' 直接粘贴，无需选中单元格
        copyRange.Copy Destination:=wsStatus.Cells(lastRowStatus, "B")
    End If
    
    ' 可选：清除CHANGELIST的筛选状态，根据需求保留
    wsChange.AutoFilterMode = False
End Sub

修正后的逻辑说明 #

• 用工作表对象直接操作，彻底杜绝Select带来的不稳定问题
• 精准计算STATUS表的粘贴起始行：首次粘贴从B7开始，后续新增数据自动追加到已有数据的下一行
• 处理了无筛选结果的边界情况，避免代码报错
• 保留筛选清除的可选操作，可根据实际需求调整

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