主题：建议：HistoryData类返回的是数组

EXCEL下测试的代码，及结果

Sub 逐个读单元格的效率()
    Dim x(65536)
    t = Time
    For j = 1 To 5
        For i = 1 To 65536
            x(i) = Cells(i, 1)
        Next
    Next
    Debug.Print Time & "|" & t
End Sub
Sub 整体赋值给数组的效率()
    t = Time
    For j = 1 To 200
        x = [a1:a65536]
    Next
    Debug.Print Time & "|" & t
End Sub
'大约可以提速50倍
Sub Array对象的效率()
    t = Time
    Set d = CreateObject("Stock.Array")
    For i = 1 To 1000
        d.AddBack (Cells(i, 1))
    Next
    Debug.Print Time & "|" & t
End Sub
Sub 直接读入数组的效率()
    Dim x(1000)
    t = Time
    For j = 1 To 200
        For i = 1 To 1000
            x(i) = (Cells(i, 1))
        Next
    Next
    Debug.Print Time & "|" & t
End Sub
'大约可以提速200倍以上

结论：如果金字塔的各对象返回的直接是数组的话，会提高金字塔整体效率的50倍以上，甚至更多。