Excel VBA遍历ChartObject数组为何需声明为Variant？运行时错误91解决咨询

嘿，我来帮你拆解这个问题，你遇到的编译和运行时错误其实都是数组声明与使用上的小疏漏，咱们一步步理清楚：

问题1：为什么ScrapChart必须声明为Variant才能编译？ #

你声明的AllChartsInBox()是ChartObject类型的动态数组，但VBA的For Each循环默认不支持直接遍历固定类型的对象数组（除非数组里的所有元素都已被正确初始化且类型一致）。当你把ScrapChart设为Variant，VBA会隐式跳过类型检查，强行适配数组元素，所以编译能通过，但这其实是绕开了类型安全校验，反而埋下了运行时错误的隐患。

问题2：运行时错误91（对象变量未设置）的根源 #

看你的代码，初始化数组时用了ReDim AllChartsInBox(Ws_Charts.ChartObjects.Count - 1)，这会把数组长度设为工作表中所有图表的总数，但你只把和合并单元格相交的图表放进数组，剩下的数组位置都是未初始化的Nothing。当For Each遍历到这些空元素时，执行ScrapChart.Delete就会触发错误91——你总不能删除一个不存在的对象吧？

问题3：为什么For Each SheetChart In Ws_Charts.ChartObjects能用ChartObject声明？ #

因为Ws_Charts.ChartObjects是一个内置的集合对象（ChartObjects Collection），而不是普通数组。VBA对内置集合做了类型支持，集合里的每个元素都是明确的ChartObject类型，所以编译器能直接识别，允许你用强类型变量遍历，自然不会有编译问题。

修复后的完整代码&关键修改点 #

下面是修正后的代码，我标注了核心修改的地方：

Option Explicit
' 注意：VBA里每个变量要单独声明类型！原代码里NumberofChartsinRange默认是Variant
Dim NumberofChartsinRange As Long, ChartBoxIndex As Long
Dim SheetChart As ChartObject, AllChartsInBox() As ChartObject
Dim ScrapChart As ChartObject ' 现在可以直接声明为ChartObject，不用Variant了

Sub CleanChartsInMergedCell()
    Dim Chartbox As Range
    Dim Ws_Charts As Worksheet
    Dim formulastring As String
    
    ' 这里需要你自行赋值工作表和公式内容，示例如下：
    Set Ws_Charts = ThisWorkbook.Worksheets("你的图表工作表名")
    formulastring = "=YOUR_FORMULA_HERE"
    
    Set Chartbox = Ws_Charts.Range("A1:F6")
    Ws_Charts.Cells(1, 1).Formula2 = formulastring
    Chartbox.Merge
    Chartbox.HorizontalAlignment = xlRight
    Chartbox.VerticalAlignment = xlBottom

    NumberofChartsinRange = 0
    ChartBoxIndex = 0 ' 显式初始化索引，避免默认值的意外问题
    
    If Ws_Charts.ChartObjects.Count > 0 Then
        ' 先初始化空数组，后续动态扩展，避免空元素
        ReDim AllChartsInBox(0 To -1)
        For Each SheetChart In Ws_Charts.ChartObjects
            If Not Intersect(SheetChart.TopLeftCell, Chartbox) Is Nothing Then
                NumberofChartsinRange = NumberofChartsinRange + 1
                ' 动态扩展数组并添加有效图表对象
                ReDim Preserve AllChartsInBox(0 To ChartBoxIndex)
                Set AllChartsInBox(ChartBoxIndex) = SheetChart
                ChartBoxIndex = ChartBoxIndex + 1
            End If
        Next
    End If

    If NumberofChartsinRange > 1 Then
        ' 现在数组里全是有效的ChartObject，直接遍历删除
        For Each ScrapChart In AllChartsInBox
            ScrapChart.Delete
        Next ScrapChart
    End If
End Sub

核心修改说明： #

1. 修正变量声明：VBA中Dim a, b As Long只有b是Long，a默认是Variant，必须每个变量单独声明类型。
2. 动态数组正确初始化：先创建空数组ReDim AllChartsInBox(0 To -1)，再用ReDim Preserve动态添加有效元素，确保数组里没有空的Nothing对象。
3. 恢复强类型遍历：现在数组里全是有效的ChartObject，ScrapChart可以直接声明为ChartObject，编译时就能做类型检查，更安全。

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