VBA按条件筛选工作表存入数组代码运行失败如何解决

• 索引逻辑混乱：同时用cont和arrInit两个计数变量，初始值设置错误，符合条件时先增加cont再重定义数组，会导致数组最后一位始终为空，甚至出现索引越界问题
• 冗余操作：没有必要激活工作表，直接引用工作表对象即可，激活操作不仅降低运行效率，还容易触发意外错误
• 命名冲突：Name是VBA内置属性名，直接用作自定义变量会导致赋值异常
• 变量未声明：y、cont、arrInit、i等变量都没有提前声明，开启Option Explicit强制声明的场景下会直接编译报错
• 未处理空数组场景：如果没有符合条件的工作表，后续调用数组时会直接报错

Option Explicit

Sub GetQualifiedSheetNames()
    Dim arr() As String
    Dim sheetCount As Long, i As Long, arrIndex As Long
    Dim curSheet As Worksheet
    
    sheetCount = ThisWorkbook.Sheets.Count
    arrIndex = 0
    
    For i = 1 To sheetCount
        Set curSheet = ThisWorkbook.Sheets(i)
        If curSheet.Range("A1") <> "" Then
            arrIndex = arrIndex + 1
            ReDim Preserve arr(1 To arrIndex)
            arr(arrIndex) = curSheet.Name
        End If
    Next i
    
    ' 后续使用数组前可先判断arrIndex是否大于0，避免空数组报错
    ' 示例：If arrIndex > 0 Then Debug.Print Join(arr, ",")
End Sub

• 顶部新增Option Explicit强制变量声明，提前拦截变量未定义的低级错误，所有用到的变量都提前声明了对应类型
• 删掉多余的cont计数变量，仅用arrIndex一个变量维护数组索引，符合条件时先更新索引再重定义数组，不会出现空元素
• 取消工作表激活操作，直接用Worksheet对象引用操作，运行更稳定高效
• 规避内置属性命名冲突，直接将工作表名赋值给数组元素，不需要额外中转变量
• 新增空数组判断参考逻辑，后续使用数组前可先校验arrIndex的数值，避免无符合条件工作表时的报错问题

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