Run-time error 1004错误排查：跨工作簿复制宏生成测试汇总失败

核心问题 #

出现Run-time error 1004: Method 'Range' of object'_Global' failed的主要原因有三个：

• 未明确限定Range的所属对象：直接使用Range()时，VBA默认指向当前活动工作表，但复制宏到新工作簿后，活动表可能不是目标操作表，跨工作表引用时也未明确指定工作簿，导致找不到目标区域。
• 过度依赖Select/Selection操作：这类操作完全依赖当前活动对象，一旦操作过程中工作表切换出错，就会触发引用失败。
• 工作表名称硬编码：如果新工作簿里没有Call_eng-USA或RH (2)这两个工作表，直接引用会直接报错。

修复后的代码 #

下面是优化后的代码，去掉了所有冗余的Select/Selection操作，明确指定了工作簿和工作表对象，稳定性大幅提升：

Sub GenerateReport()
    ' 定义变量存储工作簿和工作表
    Dim wb As Workbook
    Dim wsReport As Worksheet
    Dim wsData As Worksheet
    
    ' 指向当前宏所在的工作簿
    Set wb = ThisWorkbook
    ' 检查目标工作表是否存在，避免报错
    On Error Resume Next
    Set wsReport = wb.Worksheets("RH (2)")
    Set wsData = wb.Worksheets("Call_eng-USA")
    On Error GoTo 0
    
    ' 如果工作表不存在，提示并退出
    If wsReport Is Nothing Or wsData Is Nothing Then
        MsgBox "缺少必要的工作表：RH (2) 或 Call_eng-USA", vbExclamation
        Exit Sub
    End If
    
    ' 统计执行状态
    With wsReport
        .Range("M6").Value = WorksheetFunction.CountIf(wsData.Range("K1:K800"), "PASS")
        .Range("N6").Value = WorksheetFunction.CountIf(wsData.Range("K1:K800"), "FAIL")
        .Range("O6").Value = WorksheetFunction.CountIf(wsData.Range("K1:K800"), "BLOCKED")
        .Range("P6").Value = WorksheetFunction.CountIf(wsData.Range("K1:K800"), "Not Tested")
        .Range("Q6").Value = wsData.Range("J2").Value
    End With
    
    ' 复制并处理开放问题
    wsData.Range("M3:M82").Copy Destination:=wsReport.Range("R5")
    wsReport.Range("R5:R86").UnMerge ' 只取消复制区域的合并，不用选整列
    
    ' 排序数据
    With wsReport.Sort
        .SortFields.Clear
        .SortFields.Add2 Key:=wsReport.Range("R5:R86"), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange wsReport.Range("R5:S100")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    ' 自动调整行高
    wsReport.Rows("5:100").EntireRow.AutoFit
    
    ' 清除边框
    With wsReport.Range("R10:R100").Borders
        .LineStyle = xlNone
    End With
    
    ' 定位到指定单元格（可选，非必须）
    wsReport.Range("R5").Select
End Sub

额外优化建议 #

• 避免硬编码工作表名称：可以通过工作表的CodeName属性引用（比如在VBA编辑器里把工作表的CodeName改成wsRH和wsCallEng，然后直接用wsRH.Range(...)），这样即使工作表重命名也不会出错。
• 添加错误处理：用On Error Resume Next和On Error GoTo 0捕获工作表不存在的情况，避免程序崩溃。
• 减少不必要的操作：原代码里重复的Range("R5").Select可以直接去掉，不影响功能运行。

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