使用数组填充Excel剪力图与弯矩图遇阻，程序卡在SeriesCollection赋值环节

看起来你遇到的核心问题是直接将3000个元素的数组赋值给Excel图表系列导致的性能卡顿，另外代码里的弯矩计算逻辑也有小疏漏，我来一步步帮你解决：

问题分析 #

1. 节点数量过多：你把3米的梁拆成了3000个节点（每毫米一个），Excel图表完全不需要这么高密度的数据——这么多点不仅会让赋值过程极慢，还会让图表变得臃肿，根本看不出曲线差异。
2. 弯矩计算逻辑错误：你直接累加剪力值来计算弯矩，但实际上弯矩是剪力图的积分，应该用梯形法计算每个微段的面积，而非简单相加节点剪力值；另外你没初始化BMnode(0)，梁左端的弯矩应该为0。
3. 数组维度适配问题：VBA里的一维数组默认是水平结构，但Excel图表系列的Values通常期望垂直数组，直接赋值可能导致隐性的性能损耗或者数据显示异常。

优化后的解决方案代码 #

我标注了关键改动点，你可以直接参考：

Sub DOGRAPH()
    ' 关闭屏幕更新和事件，大幅提升代码运行效率
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    'Calculate the Maximum BM by calculating the area of the SF diagram
    'Data
    Dim L As Single, UDL As Single, RA As Single
    L = 3 'm
    UDL = 1 'kN/m
    RA = L * UDL / 2 'Global variable
    Dim i As Integer
    'Declare the nodes
    Dim nNodes As Integer
    Dim SFnode() As Variant, BMnode() As Variant 'Graph points
    
    ' 关键改动1：减少节点数量，每10mm一个点（共300个），平衡精度和性能
    nNodes = L * 100
    ReDim SFnode(nNodes), BMnode(nNodes)
    
    'Do the SF and BM Diagrams
    Dim dx As Single ' 微段长度，单位m
    dx = L / nNodes
    SFnode(0) = RA 'First Node = RA
    BMnode(0) = 0 ' 关键改动2：初始化左端弯矩为0
    
    For i = 1 To nNodes
        ' 剪力计算：线性递减，用dx简化原逻辑
        SFnode(i) = RA - UDL * i * dx
        ' 关键改动3：用梯形法计算弯矩（剪力图的积分），结果更准确
        BMnode(i) = BMnode(i - 1) + (SFnode(i - 1) + SFnode(i)) * dx / 2
    Next i
    
    Dim cSF As Chart, cBM As Chart
    'The charts have been named in the sheet
    Set cSF = ActiveSheet.ChartObjects("SFdiagram").Chart
    Set cBM = ActiveSheet.ChartObjects("BMdiagram").Chart
    
    ' 生成X轴坐标（梁的长度位置）
    Dim xAxis() As Variant
    ReDim xAxis(nNodes)
    For i = 0 To nNodes
        xAxis(i) = i * dx
    Next i
    
    With cSF
        ' 关键改动4：转置数组，适配Excel图表的垂直数据要求
        .SeriesCollection(1).Values = Application.Transpose(SFnode)
        .SeriesCollection(1).XValues = Application.Transpose(xAxis)
    End With
    
    With cBM
        .SeriesCollection(1).Values = Application.Transpose(BMnode)
        .SeriesCollection(1).XValues = Application.Transpose(xAxis)
    End With
    
    Set cSF = Nothing
    Set cBM = Nothing
    
    ' 恢复屏幕更新和事件
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    
    MsgBox "Done"
End Sub

额外优化建议 #

• 如果追求极致简洁，其实剪力图是线性函数、弯矩图是二次函数，完全可以不用循环，直接生成左端、中点、右端等关键节点，再让图表自动拟合曲线，性能会更好。
• 确保你的SFdiagram和BMdiagram图表已经创建好且包含至少一个空系列，否则.SeriesCollection(1)会报错——如果不确定，可以先添加判断逻辑，不存在系列就新建一个。

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