Subscript out of range报错排查：非拼写错误的工作表引用问题

既然你已经确认工作表名称拼写完全没问题，那这个报错大概率出在工作簿对象的引用或者工作表的状态上，我给你整理几个实际排查过的方向和解决办法：

1. 先确认wb对象真的指向了目标工作簿 #

很多时候我们以为wb就是我们需要的那个工作簿，但实际可能引用错了：

• 如果是用Workbooks("目标文件.xlsx")获取的wb，一定要确保这个文件确实处于打开状态，而且文件名完全匹配（别漏了后缀，比如.xls和.xlsx是完全不同的）。
• 要是你用的是ThisWorkbook，得确认代码所在的工作簿就是包含Primary工作表的那个，别搞混了当前打开的多个工作簿。

可以加一行调试代码快速验证：

Debug.Print wb.Name ' 按Ctrl+G打开立即窗口，看看当前wb指向的工作簿名称

2. 检查工作表的状态和可见性 #

虽然Sheets集合包含所有工作表（包括图表工作表），但还是要确认Primary真的在目标工作簿里：
可以用这段代码列出当前工作簿所有工作表的名称和状态，看看Primary是否在列表中：

Dim ws As Worksheet
For Each ws In wb.Worksheets
    Debug.Print ws.Name & " | 可见性: " & ws.Visible
Next ws

要是列表里找不到Primary，要么是工作表不存在，要么你误把图表工作表当成了普通工作表（Worksheets只包含普通工作表，Sheets才包含图表表，但你用的是Sheets，这条可能性低，但还是可以排查下）。

另外，就算工作表是非常隐藏（通过VBA设置的xlSheetVeryHidden），Sheets还是能正常引用的，但如果工作簿结构被保护了，可能会影响引用，可以先临时取消保护试试。

3. 规避大小写或隐蔽字符的冲突 #

虽然Windows文件名不区分大小写，但VBA里的工作表引用偶尔会出现大小写敏感的奇怪情况？你可以试试统一大小写来引用：

Set main = wb.Sheets(UCase("Primary"))

或者用工作表索引来引用，先找到它的位置：

Dim wsIndex As Integer
wsIndex = wb.Sheets("Primary").Index
Set main = wb.Sheets(wsIndex)

另外，还要检查工作表名称里有没有隐蔽的空格或特殊符号——比如名称末尾多了一个空格，肉眼很难发现，你可以手动选中工作表，在Excel界面左上角的名称框里复制准确的名称，再粘贴到代码里。

4. 检查工作簿保护状态 #

如果目标工作簿的结构被保护了，可能会限制对工作表的引用操作。你可以先临时取消保护：

wb.Unprotect Password:="你的工作簿密码" ' 没有密码就直接写wb.Unprotect
Set main = wb.Sheets("Primary")
wb.Protect Password:="你的工作簿密码" ' 操作完成后再恢复保护

你可以按照这些步骤逐一排查，应该能定位到问题所在。

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