使用单元格内容指定工作表：InputRange设置报错求助

嘿，我一眼就看出你代码里的问题啦——你多给工作表名称加了一层不必要的双引号！

你写的代码是：

Set InputRange = Worksheets(Chr(34) & F1.Value & Chr(34)).Range("a4:a418")

这里的Chr(34)代表双引号，这会让VBA尝试寻找名称带双引号的工作表（比如""2014""），但你的实际工作表名称是2014、2015这类不带引号的，自然会找不到工作表而报错。

修正后的代码 #

直接把F1.Value作为工作表名称参数传入就好，不需要额外加引号：

Set InputRange = Worksheets(F1.Value).Range("a4:a418")

额外建议（避免后续踩坑） #

为了防止F1单元格的值不是有效工作表名称的情况，建议加个简单的错误处理，让代码更健壮：

Dim targetSheet As Worksheet
On Error Resume Next
Set targetSheet = Worksheets(F1.Value)
On Error GoTo 0

If Not targetSheet Is Nothing Then
    Set InputRange = targetSheet.Range("a4:a418")
    ' 这里写你后续要执行的代码
Else
    MsgBox "找不到名为" & F1.Value & "的工作表，请检查F1单元格的值！"
End If

这样既解决了当前的报错，还能提前处理异常情况，避免程序崩溃~

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