显示父级与子级工作表并移至Index右侧及VBA报错修复问询

1. lastMovedSheet未初始化：第一次执行targetSheet.Move After:=lastMovedSheet时，该变量未被赋值，处于Nothing状态，触发“变量未设置”错误。
2. targetSheetName未显式声明：VBA默认允许隐式声明变量，但这会增加调试难度，若开启Option Explicit强制声明，此处会直接报错。
3. 核心逻辑缺失：未实现将父级工作表（selectedItem对应的工作表）移至Index右侧的需求，直接操作子级工作表，不符合业务流程。
4. 冗余激活操作：末尾的Worksheets(selectedItem).Activate违背了规避激活操作的初衷，且无实际必要。
5. 语法错误：原代码中Case "LXXXXXXT"的数组元素间缺少逗号，会导致数组定义失败。

Option Explicit ' 强制变量声明，避免隐式声明错误

Sub CaseArray()
    Dim wsIndex As Worksheet
    Dim selectedItem As String
    Dim targetSheetNames As Variant
    Dim targetSheet As Worksheet
    Dim lastMovedSheet As Worksheet
    Dim ws As Worksheet
    Dim targetSheetName As Variant ' 显式声明数组遍历变量
    
    ' 初始化Index工作表引用
    Set wsIndex = ThisWorkbook.Sheets("Index")
    ' 获取ListBox选中项
    selectedItem = ListBox2.Value
    
    Select Case selectedItem
        Case "LXXXXXXB"
            targetSheetNames = Array("LxxxxxxB-LxxxxxxT", "LxxxxxxB-LxxxxxxO", "LxxxxxxB-BxxxxxxO")
        Case "LXXXXXXT"
            targetSheetNames = Array("LxxxxxxT-LxxxxxxO", "LxxxxxxV-LxxxxxxO") ' 修复逗号缺失问题
        Case "LxxxxxxO"
            targetSheetNames = Array("LxxxxxxO-LxxxxxxT", "LxxxxxxO-BxxxxxxO")
        Case Else
            MsgBox "Invalid selection.", vbInformation
            Exit Sub
    End Select
    
    ' 显示所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next ws
    
    ' 第一步：将父级工作表移至Index右侧
    Set lastMovedSheet = ThisWorkbook.Sheets(selectedItem)
    lastMovedSheet.Move After:=wsIndex
    
    ' 第二步：遍历子级工作表，依次移至父级/上一个子级工作表右侧
    For Each targetSheetName In targetSheetNames
        ' 增加错误处理，避免工作表不存在的情况
        On Error Resume Next
        Set targetSheet = ThisWorkbook.Sheets(targetSheetName)
        On Error GoTo 0
        
        If Not targetSheet Is Nothing Then
            targetSheet.Move After:=lastMovedSheet
            Set lastMovedSheet = targetSheet
        Else
            Debug.Print "工作表 " & targetSheetName & " 不存在"
        End If
    Next targetSheetName
End Sub

• 添加Option Explicit强制变量声明，从根源避免隐式声明带来的错误。
• 先完成父级工作表移至Index右侧的操作，初始化lastMovedSheet为父级工作表，确保后续子级工作表移动的基准正确。
• 显式声明targetSheetName为Variant类型，符合数组遍历的变量类型要求。
• 修复Case "LXXXXXXT"数组的逗号缺失问题，确保数组定义合法。
• 增加工作表存在性检查的错误处理，避免因工作表名称错误导致代码崩溃。
• 移除冗余的Activate操作，彻底规避激活引发的错误。

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