Excel VBA:有没有一种更快的方法来计算累计值？

Sub CalculateCumulative()
    Dim dataRange As Range
    Dim dataArray() As Variant
    Dim cumulativeArray() As Variant
    Dim i As Long
    
    ' 假设原始数据位于A1:A10
    Set dataRange = Range("A1:A10")
    
    ' 将原始数据存储到数组中
    dataArray = dataRange.Value
    
    ' 初始化累计数组
    ReDim cumulativeArray(1 To UBound(dataArray, 1), 1 To 1)
    cumulativeArray(1, 1) = dataArray(1, 1)
    
    ' 计算累计值
    For i = 2 To UBound(dataArray, 1)
        cumulativeArray(i, 1) = cumulativeArray(i - 1, 1) + dataArray(i, 1)
    Next i
    
    ' 将累计值写回到工作表
    dataRange.Offset(0, 1).Value = cumulativeArray
End Sub