为何我的VBA代码出现Runtime error 9（下标越界）错误？

问题代码中的明显语法错误 #

你提供的代码最后一行末尾多了一个反引号，这会导致编译异常，先删除这个多余字符：

Set Ws1 = wbCurrent.Worksheets("SCHOOLS")

Runtime Error 9的核心原因与解决 #

这个错误表示代码无法在wbCurrent工作簿中找到名为SCHOOLS的工作表，常见排查方向：

• 工作表名称不匹配：检查目标工作表的实际名称，注意空格、特殊字符、大小写（VBA不区分大小写，但名称必须完全一致，比如不能把SCHOOLS写成School或SCHOOLS （末尾带空格））
• 工作簿引用错误：wbCurrent = ActiveWorkbook可能指向了非预期的工作簿，可添加代码验证：

  Debug.Print wbCurrent.Name ' 打开VBA编辑器的立即窗口查看当前活动工作簿名称
  

• 工作表状态异常：如果工作表是非常隐藏状态，Worksheets集合无法直接访问，需先取消非常隐藏（通过VBA编辑器的属性窗口修改Visible属性为xlSheetVisible）

优化建议 #

• 避免依赖ActiveWorkbook，直接用工作簿名称引用更可靠：

  Set wbCurrent = Workbooks("你的活动工作簿文件名.xlsx")
  

• 添加错误处理逻辑，提前捕获异常：

  On Error Resume Next
  Set Ws1 = wbCurrent.Worksheets("SCHOOLS")
  On Error GoTo 0
  If Ws1 Is Nothing Then
      MsgBox "未找到名为SCHOOLS的工作表，请检查名称"
      Exit Sub
  End If
  

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