VBA中数组列相乘的高效实现及arr_two数组构建方案

核心思路：用累积乘积减少重复计算 #

如果直接为arr_two的每一列重新计算对应列数的乘积，会出现大量重复运算（比如计算前3列乘积时会重复计算前2列的结果）。更高效的方式是对每行先计算累积乘积序列，再直接将累积结果映射到arr_two的对应列，这样每行只需要遍历一次arr的列，时间复杂度从O(nm²)降到O(nm)（n为行数，m为列数）。

完整优化代码 #

Sub arraytest()
    ' 注：原代码中(2000,20)对应2001行（0-2000）、21列（0-20），若要严格对应2000行20列，需改为(1999,19)
    Dim arr(2000, 20) As Variant
    Dim arr_two(2000, 18) As Variant ' arr_two共19列（0-18），对应arr前2到前20列的乘积
    Dim i As Long, j As Long
    Dim cumulativeProduct As Double
    
    ' 生成arr数组的随机数
    For i = 0 To 2000
        For j = 0 To 20
            ' 简化原Sum写法，直接计算1 + 正态分布随机数/100
            arr(i, j) = 1 + WorksheetFunction.Norm_Inv(Rnd(), 0, 1) / 100
        Next j
    Next i
    
    ' 生成arr_two数组
    For i = 0 To 2000
        cumulativeProduct = arr(i, 0) ' 初始化为arr第1列的值
        ' arr_two第1列（下标0）对应arr前2列的乘积
        arr_two(i, 0) = cumulativeProduct * arr(i, 1)
        cumulativeProduct = arr_two(i, 0) ' 更新累积乘积为前2列的结果
        
        ' 遍历arr_two第2到第19列（对应arr前3到前20列的乘积）
        For j = 1 To 18
            cumulativeProduct = cumulativeProduct * arr(i, j + 1)
            arr_two(i, j) = cumulativeProduct
        Next j
    Next i
End Sub

关键细节说明 #

• 数组下标修正：原代码中arr(2000,20)实际是2001行、21列（下标从0开始），如果需要严格对应2000行20列，应改为arr(1999,19)，同时循环范围调整为i=0 To 1999、j=0 To 19，arr_two对应改为arr_two(1999,18)。
• 累积乘积逻辑：每行从arr的第1列开始，逐步乘以后续列的值，每一步的结果直接对应arr_two的一列，彻底避免重复计算前面的列，大幅提升运算效率。
• 随机数简化：原代码的WorksheetFunction.Sum可以直接合并为算术表达式，减少不必要的函数调用开销。

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