VBA中ListSheetNames代码末尾跳转指定单元格失效的解决方法

你添加的Worksheets("Inputs").Range("C5").Select语句未生效，核心原因是原代码存在未处理的错误分支：当Find方法找不到"Index_Sheets"文本时，idx会变成Nothing，后续执行idx.Offset(SheetCounter, 1)会触发运行时错误，程序直接终止，根本不会执行到最后的跳转代码。

修改方案 #

以下是修复后的完整代码，同时优化了冗余逻辑：

Sub ListSheetNames()
    Dim Sheetname() As String
    Dim SheetCounter As Integer
    Dim idx As Range
    
    ReDim Sheetname(Worksheets.Count)
    ' 精确查找目标标记，避免模糊匹配漏判
    Set idx = Sheets("Cover").Range("A1:X1000").Find(What:="Index_Sheets", LookAt:=xlWhole)
    
    ' 处理未找到标记的异常情况
    If idx Is Nothing Then
        MsgBox "Cover工作表中未找到""Index_Sheets""标记，请检查单元格范围", vbExclamation
        ' 即使出错也执行跳转（可选，根据需求调整）
        Worksheets("Inputs").Range("C5").Select
        Exit Sub
    End If
    
    ' 遍历获取所有工作表名称
    For SheetCounter = 1 To Worksheets.Count
        Sheetname(SheetCounter) = Worksheets(SheetCounter).Name
    Next SheetCounter

    ' 写入工作表名称到目标位置（无需切换工作表，idx已绑定Cover表）
    For SheetCounter = 1 To Worksheets.Count
        idx.Offset(SheetCounter, 1) = Sheetname(SheetCounter)
    Next SheetCounter
    
    ' 执行跳转
    Worksheets("Inputs").Range("C5").Select
End Sub

关键优化点 #

1. 完善Find逻辑：添加LookAt:=xlWhole确保精确匹配单元格内容，避免因部分匹配导致找不到目标标记。
2. 异常分支处理：增加If idx Is Nothing Then判断，提前终止程序并给出提示，同时保证跳转逻辑在异常场景下也能执行（可选）。
3. 移除冗余操作：删掉原代码中无意义的Worksheets(1).Select，因为idx已经关联到Cover工作表的单元格，无需切换工作表即可写入数据。
4. 确保跳转执行：正常流程下，跳转语句位于所有逻辑之后，无错误时一定会执行。

额外排查点 #

如果修改后仍无法跳转，需检查：

• "Inputs"工作表是否处于隐藏状态：可添加Worksheets("Inputs").Visible = xlSheetVisible确保可见。
• "Inputs"工作表是否被保护：若有保护，需先执行Worksheets("Inputs").Unprotect Password:="你的密码"（如有密码），跳转后可重新保护。

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