Excel VBA如何根据单元格值选择工作表？

运行时错误9（超出范围）本质是代码尝试访问不存在的工作表，你的代码问题集中在语法错误、逻辑错误，或未明确单元格/工作表上下文，逐个分析如下：

• #1：Worksheet对象必须用Set赋值，且最后Set ws = ActiveSheet完全覆盖了之前的错误赋值，逻辑无效
• #2：存在语法错误（多余左括号），且Range.Activate是激活单元格，不是工作表
• #3：直接调用Sheet11.Activate有效，但未实现「根据U2值动态选择」的需求
• #4/#5：若U2值正确理论可行，但报错大概率是因为：U2值和后台名称不匹配，或未指定U2所在的工作表（当前激活表不是U2所在表，读取了错误值）
• #6：字符串变量没有Activate方法，语法完全错误

正确实现代码 #

先确认U2单元格的值完全匹配目标工作表的后台名称（即VBA编辑器工程窗口里显示的名称，比如Sheet11，注意无多余空格、大小写一致），再使用以下代码：

带错误检查的稳妥版本

Dim targetSheetName As String
' 替换Sheet1为U2所在工作表的后台名称
targetSheetName = Sheet1.Range("U2").Value

Dim ws As Worksheet
' 开启错误捕获，检查工作表是否存在
On Error Resume Next
Set ws = ThisWorkbook.Sheets(targetSheetName)
On Error GoTo 0

If Not ws Is Nothing Then
    ws.Activate ' 找到则激活目标工作表
Else
    MsgBox "不存在名为「" & targetSheetName & "」的工作表，请检查U2的值"
End If

简化版本（已确认U2值绝对正确时使用）

' 必须指定U2所在的工作表，避免读取错误单元格的值
ThisWorkbook.Sheets(Sheet1.Range("U2").Value).Activate

关键注意事项 #

• 明确指定U2所在工作表：如果省略，代码会读取当前激活工作表的U2值，若当前激活表不是U2所在表，会读错值导致报错
• 严格匹配后台名称：后台名称是VBA里的工作表对象名，和Excel界面的标签显示名称无关，不要混淆
• 加入错误检查：避免因为U2值错误导致程序崩溃

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