Run-error 1004：ActiveSheet.Paste执行报错，求技术支持

嘿，我帮你排查这个1004错误的问题！这个错误在你的代码里主要有两个核心原因，咱们一步步解决：

错误根源分析 #

• 不连续区域复制粘贴冲突：你先对A3:L10001区域做了筛选，然后选中A:E列复制——这时候选中的是筛选后的不连续可见单元格，直接复制这种区域后粘贴到新工作簿，剪贴板的内容格式和目标区域不匹配，就会触发1004错误。
• 过度依赖Select/Activate：你的代码大量用了Select和Activate，这些操作对VBA的运行上下文特别敏感，哪怕代码运行时窗口稍微切换一下，就会导致代码找不到正确的活动对象，进而报错。

修复后的稳定代码 #

我给你重写了代码，去掉了不稳定的Select/Activate，同时精准处理筛选后的可见区域：

Sub Macro13()
    ' Macro13 Macro
    Dim sourceWB As Workbook
    Dim sourceWS As Worksheet
    Dim newWB As Workbook
    Dim copyRange As Range
    
    ' 明确指定源工作簿和工作表，避免依赖Active对象
    Set sourceWB = Workbooks("Test.xlsm")
    Set sourceWS = sourceWB.ActiveSheet ' 如果是固定工作表，改成sourceWB.Sheets("你的表名")更稳妥
    
    ' 应用筛选条件
    sourceWS.Range("$A$3:$L$10001").AutoFilter Field:=6, Criteria1:="O/S"
    
    ' 获取筛选后A:E列的可见区域（从A2开始，可根据你的表头位置调整）
    On Error Resume Next ' 防止没有符合条件的数据时出错
    Set copyRange = sourceWS.Range("A2:E" & sourceWS.Cells(sourceWS.Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 只有找到可复制的区域才继续执行
    If Not copyRange Is Nothing Then
        ' 创建新工作簿
        Set newWB = Workbooks.Add
        
        ' 直接复制到新工作簿的A1，比先复制再粘贴更稳定
        copyRange.Copy Destination:=newWB.ActiveSheet.Range("A1")
        
        ' 调整格式
        newWB.ActiveSheet.Cells.EntireColumn.AutoFit
        newWB.ActiveSheet.Rows("1:1").RowHeight = 89.25
        
        ' 定位到G7（如果需要的话）
        newWB.ActiveSheet.Range("G7").Select
    Else
        MsgBox "没有找到符合条件的O/S数据哦！"
    End If
    
    ' 取消源工作表的筛选
    sourceWS.Range("$A$3:$L$10001").AutoFilter Field:=6
    
    ' 回到源工作簿
    sourceWB.Activate
End Sub

关键改进点说明 #

1. 用对象变量代替Active对象：sourceWB、sourceWS这些变量让代码逻辑更清晰，再也不用担心因为窗口切换导致的上下文错误。
2. 精准获取可见区域：SpecialCells(xlCellTypeVisible)只复制筛选后的有效数据，避免了不连续区域的粘贴冲突。
3. 直接复制到目标区域：Copy Destination:=...跳过了剪贴板的中间步骤，比单独的Copy+Paste更稳定可靠。
4. 增加错误处理：防止没有符合条件的数据时代码崩溃，还给了友好提示。

额外建议 #

• 尽量彻底抛弃Select和Activate，直接操作单元格/工作表对象是VBA的最佳实践，能大幅提升代码稳定性。
• 如果你的源数据表头在第一行，记得把复制范围的起始行改成A3，避免重复复制表头。
• 给工作表指定具体名称（比如sourceWB.Sheets("销售数据")），比用ActiveSheet更保险，哪怕你手动切换了工作表，代码也能正常运行。

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