如何解决VBA中的“Runtime Error 1004: Method Range of object_Global Failed”错误？

错误原因 #

触发1004错误的直接原因是代码最后一行的写法错误：

Range(OP).Value = rngSum

OP已经通过Set OP = Range(Range("Z7").Value)被定义为Range对象，此时不需要再用Range()包裹它，直接调用OP.Value赋值即可。用Range(OP)相当于给Range函数传入一个Range对象作为参数，这不符合Range函数的语法要求，因此报错。

修正步骤 #

1. 将错误行替换为：

   OP.Value = rngSum
   

2. 额外优化：代码中大量使用Activate切换工作表，这种写法容易引发上下文混乱，建议直接通过工作表对象引用Range，避免依赖激活状态。

优化后的完整代码 #

Sub Prob3()
    Dim wsQ3 As Worksheet
    Dim wsProblem4 As Worksheet
    Dim rngA As Range
    Dim rngB As Range
    Dim rngSum As Single
    Dim A As String
    Dim B As String
    Dim OP As Range
    Dim strCombo As String
    
    ' 初始化工作表对象，避免Activate
    Set wsQ3 = ThisWorkbook.Worksheets("Problem3")
    wsQ3.Name = "Q3"
    Set wsProblem4 = ThisWorkbook.Worksheets("Problem4")
    
    ' 明确指定工作表范围，避免上下文歧义
    Set rngA = wsQ3.Range("C2:C5")
    A = wsQ3.Range("A1").Value
    
    Set rngB = wsProblem4.Range("C2:C5")
    B = wsProblem4.Range("A1").Value
    
    ' 计算和差
    rngSum = WorksheetFunction.Sum(rngA) - WorksheetFunction.Sum(rngB)
    
    ' 拼接地址并赋值
    strCombo = A & B
    wsQ3.Range("Z7").Value = strCombo
    
    ' 定位目标单元格并写入结果
    Set OP = wsQ3.Range(strCombo) ' 直接用strCombo，无需再读Z7
    OP.Value = rngSum
End Sub

额外说明 #

• 优化后的代码直接通过wsQ3和wsProblem4对象引用工作表，彻底避免了激活操作带来的潜在问题
• 可以直接用strCombo作为Range的参数，无需先写入Z7再读取，简化了流程

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