VBA数组切片整行赋值及Index实现矩阵乘积赋值失败求助

你遇到的核心问题是：WorksheetFunction.Index返回的是一个只读的临时数组切片，而非对原数组的可写引用，所以你没法直接给它赋值——这就是为什么你的测试代码WorksheetFunction.Index(my_array, 1, 0) = 1也会失败，本质上和试图给一个函数的返回值赋值（比如Abs(5) = 10）是一样的逻辑错误。

要实现VBA数组的整行赋值，你需要先计算出目标行的内容，再将内容逐个元素写入原数组的对应行。以下是具体的修正方案：

修正后的代码示例 #

Dim my_array As Variant
Dim matrix As Variant
Dim result_row As Variant
Dim i As Long, col As Long

' 从工作表读取数据到数组（Range赋值的数组是1基二维数组）
my_array = Range("some.range").Value
matrix = Range("some.matrix").Value

' 从第2行开始循环计算
For i = 2 To UBound(my_array, 1) ' 用UBound替代固定值100，更灵活
    ' 计算前一行与矩阵的乘积，结果是1行n列的二维数组
    result_row = Application.WorksheetFunction.MMult( _
        Application.WorksheetFunction.Index(my_array, i - 1, 0), _
        matrix)
    
    ' 将结果逐列写入my_array的第i行
    For col = 1 To UBound(my_array, 2)
        my_array(i, col) = result_row(1, col)
    Next col
Next i

' 如果需要将计算后的数组写回工作表，执行下面的代码
Range("some.range").Value = my_array

关键细节解释 #

1. 数组维度注意：从Range读取的数组默认是1基的二维数组（行从1开始，列也从1开始），而MMult返回的结果同样是二维数组，哪怕只有一行。
2. 避免直接赋值切片：不要试图通过Index返回的切片修改原数组，必须通过逐个元素赋值的方式更新目标行。
3. 效率优化：如果你的数组列数很多，逐个元素循环可能稍慢，也可以借助Transpose函数将二维结果转为一维数组后，用Call CopyMemory进行内存级复制，但这种方法需要API声明，对新手不够友好，常规场景下逐列循环足够用。

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