Excel VBA运行时错误80010108：工作表Range方法调用失败求助

错误原因分析 #

• 在Worksheet_Calculate事件中重复通过Sheets("Calculator")引用工作表，计算触发时可能因工作表状态不稳定导致对象引用失效，触发Method 'Range' of object 'Worksheet' failed错误。
• 原代码逻辑冗余：Intersect(Xrg, Sheets("Calculator").Range("C15"))完全没必要，因为Xrg本身就是C15，判断结果永远为真。
• 使用Copy/PasteSpecial依赖剪贴板，计算过程中易引发冲突，加重对象引用问题。

优化后的代码 #

由于代码写在Calculator工作表的代码模块中，直接用Me指代当前工作表即可，同时增加旧值记录，确保只有C15值真正变化时才更新D15：

' 模块级变量，记录C15的旧值
Private oldC15Value As Variant

Private Sub Worksheet_Calculate()
    With Me
        ' 仅当C15值与旧值不同时执行更新
        If .Range("C15").Value <> oldC15Value Then
            ' 直接赋值替代剪贴板操作，高效无冲突
            .Range("D15").Value = .Range("C15").Value
            ' 更新旧值记录
            oldC15Value = .Range("C15").Value
        End If
    End With
End Sub

Private Sub Worksheet_Activate()
    ' 工作表激活时初始化旧值，避免首次计算误触发
    oldC15Value = Me.Range("C15").Value
End Sub

代码说明 #

• oldC15Value作为模块级变量，在工作表激活时初始化，保证首次计算能准确判断值是否变化。
• With Me简化工作表引用，规避外部工作表状态异常导致的对象错误。
• 直接赋值替代剪贴板操作，避免计算过程中的冲突，同时提升代码执行效率。

内容的提问来源于stack exchange，提问作者Sofia Coelho