VBA按值筛选行并复制匹配值下方内容到另一工作表报1004错误求助

触发Run-time error '1004': Method 'Range' of object'_Worksheet' Failed的直接原因在最后复制区域的代码行：

src.Range(Cells(matchRow, 1), src.Cells(lastCopyRow, lastCol)).Copy _
    tgt.Range("A" & lastPasteRow)

代码前序执行了Sheets("sheet2").Activate，所有未显式指定父工作表的Cells/Range对象都会默认指向当前激活的Sheet2。此处Cells(matchRow, 1)未加src.前缀，属于Sheet2的单元格对象，将分属两个不同工作表的单元格作为参数传给src.Range构造区域，跨表调用会直接抛出1004错误。

除直接触发报错的问题外，代码还有多处逻辑偏差，会导致运行结果不符合预期或触发其他报错：

• 查找值取值错误：需求明确要求取目标工作表A3单元格的值作为匹配依据，当前代码取的是Range("B1").Value
• 粘贴起始行计算错误：计算目标表最后一行时，误用src.Rows.Count作为行号上限，应使用tgt.Rows.Count，否则会出现行号越界、粘贴位置计算偏差
• 无匹配场景缺容错：如果源表A列找不到匹配值，match对象为Nothing，直接取match.Row会触发"对象变量或With块变量未设置"错误
• 粘贴位置覆盖数据：End(xlUp).Row取到的是目标表最后一个有值的行号，直接粘贴会覆盖最后一行已有数据，需要+1才是首个可用空行
• 冗余筛选逻辑：代码对源表执行AutoFilter操作属于多余步骤，后续用Find方法定位匹配行不需要依赖筛选，反而可能因为筛选隐藏行导致复制区域不符合预期
• 筛选状态残留：代码开启源表筛选后未做状态复位，会影响源表后续使用

Sub CopyRowAndBelowToTarget()
    Dim wb As Workbook
    Dim src As Worksheet
    Dim tgt As Worksheet
    Dim match As Range
    Dim lastCopyRow As Long
    Dim lastPasteRow As Long
    Dim lastCol As Long
    Dim matchRow As Long
    Dim findMe As String

    Set wb = ThisWorkbook
    Set src = wb.Sheets("Sheet1")
    Set tgt = wb.Sheets("Sheet2")

    ' 按需求取Sheet2 A3单元格的值作为查找关键词
    findMe = tgt.Range("A3").Value
    
    ' 清除源表之前的筛选状态，避免干扰查找和复制
    If src.AutoFilterMode Then src.AutoFilterMode = False

    ' 在源表A列查找精确匹配值
    Set match = src.Columns(1).Find(What:=findMe, After:=src.Cells(1, 1), _
        LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    
    ' 未找到匹配值时提示并退出，避免运行报错
    If match Is Nothing Then
        MsgBox "源表A列未找到匹配值：" & findMe, vbExclamation
        Exit Sub
    End If

    matchRow = match.Row
    ' 计算源表待复制区域的边界
    lastCopyRow = src.Range("A" & src.Rows.Count).End(xlUp).Row
    lastCol = src.Cells(1, src.Columns.Count).End(xlToLeft).Column
    ' 计算目标表首个可用空行位置
    lastPasteRow = tgt.Range("A" & tgt.Rows.Count).End(xlUp).Row + 1

    ' 所有单元格对象显式绑定所属工作表，避免跨表调用报错
    src.Range(src.Cells(matchRow, 1), src.Cells(lastCopyRow, lastCol)).Copy _
        Destination:=tgt.Range("A" & lastPasteRow)
End Sub

• 所有Range、Cells对象都显式指定所属工作表，彻底消除工作表激活状态切换导致的对象归属错误
• 修正查找值取值、粘贴行计算逻辑，完全匹配需求
• 增加无匹配场景的容错判断，避免异常报错
• 移除冗余的自动筛选逻辑，增加初始筛选状态清除步骤，避免筛选状态干扰结果
• 粘贴行号做+1处理，确保不会覆盖目标表现有数据

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