VBA代码运行报错‘下标越界’：数组赋值失败问题咨询

错误原因 #

• 动态数组未初始化：sheetstoclear()是动态数组，声明后未通过ReDim分配存储空间，直接执行sheetstoclear(k)赋值操作会触发下标越界。
• 数组无扩容逻辑：变量k未显式初始化（虽默认值为0），且找到匹配工作表时，未对数组进行动态扩容，无法添加新元素。
• 循环下标错误：第二个循环中使用sheetstoclear(m+1)，当m遍历到数组上界时，m+1超出数组下标范围，导致越界。
• 语法错误：Array ("Sheet1", ...)中Array与括号之间存在空格，不符合VBA语法规范，可能导致数组初始化失败。

解决方法 #

修正版代码（保留原逻辑） #

Sub testclear()
    Dim validsheets() As Variant, sheetstoclear() As Variant
    Dim i As Integer, j As Integer, k As Integer, m As Integer
    
    ' 初始化有效工作表数组，修正Array函数语法
    validsheets = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")
    
    k = 0
    ' 遍历工作簿所有工作表，筛选出有效表
    For i = 1 To Worksheets.Count
        For j = LBound(validsheets) To UBound(validsheets)
            If Worksheets(i).Name = validsheets(j) Then
                ' 动态扩容数组并添加表名
                ReDim Preserve sheetstoclear(k)
                sheetstoclear(k) = Worksheets(i).Name
                k = k + 1
                Exit For ' 避免同一表重复添加
            End If
        Next j
    Next i
    
    ' 清空有效表内容
    For m = LBound(sheetstoclear) To UBound(sheetstoclear)
        Sheets(sheetstoclear(m)).Cells.Clear
    Next m
End Sub

关键修正点 #

• 去掉Array与括号间的空格，确保数组正确初始化。
• 显式初始化k=0，明确数组起始下标。
• 使用ReDim Preserve动态扩容数组，保留已有数据的同时添加新元素。
• 找到匹配表后用Exit For跳出内层循环，避免重复添加。
• 第二个循环直接使用sheetstoclear(m)，下标匹配数组遍历范围。

更简洁的优化写法 #

无需额外数组存储，直接遍历有效表列表并检查存在性：

Sub testclear()
    Dim validNames As Variant
    Dim sheetName As Variant
    
    validNames = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")
    
    For Each sheetName In validNames
        ' 跳过不存在的工作表，避免报错
        On Error Resume Next
        Sheets(sheetName).Cells.Clear
        On Error GoTo 0
    Next sheetName
End Sub

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