Excel VBA仅两行代码却提示‘Subscription out of range’，求报错原因

嘿，这个错误我简直太熟悉了！咱们先把问题拆解清楚：你看到的「Subscription out of range」应该是拼写小失误，实际是**「Subscript out of range」**（下标越界），它的核心原因就是VBA找不到你指定的工作表。

下面是最常见的几个排查方向和解决办法：

1. 工作表名称完全匹配问题 #

VBA对工作表名称的匹配是非常严格的，哪怕差一个空格、下划线或者大小写（虽然Windows下Excel本身不区分大小写，但VBA在某些场景下会敏感），都会触发这个错误。

• 先打开你的Excel文件，确认这两个工作表的名称：Res_Lege 和 Res_Kontor_over，是不是和你代码里写的完全一致？比如有没有把Res_Lege写成ResLege（少了下划线），或者Res_Kontor_over后面多了个空格？

2. 工作簿引用缺失 #

如果你的代码运行时，目标工作表不在当前活动工作簿里（比如你打开了多个Excel文件），VBA会默认在活动工作簿里找工作表，自然会找不到。解决办法是明确指定工作簿，比如用ThisWorkbook指代当前代码所在的工作簿：

修改后的代码如下：

Sub try_again()
    Dim Per_Mnd As Variant
    Dim Per_Mnd2 As Variant ' 注：这个变量在代码里没用到，可以考虑删除哦
    
    ' 明确指定当前代码所在的工作簿
    Per_Mnd = ThisWorkbook.Worksheets("Res_Lege").Range("F41:AD41").Value
    ThisWorkbook.Worksheets("Res_Kontor_over").Range("F6:AD6").Value = Per_Mnd
End Sub

3. 额外排查小技巧 #

如果还是找不到问题，可以加一段代码来列出当前工作簿所有工作表的名称，帮你确认拼写：

Sub ListWorksheets()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        MsgBox "工作表名称：" & ws.Name
    Next ws
End Sub

运行这段代码，就能看到所有工作表的准确名称，对比一下代码里的写法就知道哪里错了。

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