VBA报错：Worksheet的Range方法调用失败，求代码执行差异原因

嘿，这个问题我太熟了——你踩了VBA里一个非常常见的变量初始化顺序的坑！

错误原因分析 #

看你的代码，核心问题出在变量赋值的先后顺序上：
你先执行了Set rng = sht.Range("E2:E" & Lrow)，但这时候Lrow还没有被赋值（VBA中未初始化的Long类型变量默认值是0）。这意味着你尝试创建的区域是E2:E0，而Excel的行号最小是1，这个区域完全无效，所以直接触发了"Method Range of Object_Worksheet failed"的报错。

而你说直接用Range("E2:E" & Lrow).Copy能正常运行，那是因为在那个场景下，你肯定是先计算出了Lrow的有效值，再去调用Copy方法，区域是合法的。

修正后的代码 #

把计算Lrow的步骤提前，确保在给rng赋值时，Lrow已经有了正确的行号数值，同时还要注意明确指定工作表对象，避免依赖ActiveSheet导致的潜在问题：

Option Explicit
Sub CopyL()
    Dim Lrow As Long
    Dim rng As Range
    Dim sht As Worksheet
    
    Set sht = Worksheets("Sheet1")
    ' 先计算有效行号，且明确指定所属工作表
    Lrow = sht.Cells(sht.Rows.Count, 4).End(xlUp).Row
    
    ' 现在Lrow有有效值了，再创建Range对象
    If Lrow >= 2 Then ' 加个判断，避免Lrow<2时创建无效区域
        Set rng = sht.Range("E2:E" & Lrow)
        rng.Copy
    Else
        MsgBox "没有可复制的数据行！"
    End If
End Sub

额外提示 #

• 永远记住：变量要先初始化（赋值）再使用，尤其是涉及到单元格区域的行/列号这类参数
• 操作工作表、单元格时，尽量明确指定所属的工作表对象（比如sht.Cells而不是直接Cells），避免当前活动工作表变化导致的错误
• 可以添加简单的判断逻辑（比如If Lrow >=2），处理没有数据的边界情况，让代码更健壮

内容的提问来源于stack exchange，提问作者Ex-cel