VBA中二维数组的数学运算符

Question

我想要对代码执行的操作是在 VBA 中像矩阵一样导入 Range.Value，然后将其每个元素的比率设为 100，最后将新矩阵放入我的电子表格中。

这是我的试验，但“类型不匹配”是错误：

Private Sub CommandButton1_Click()

    Dim matrix()
    Dim tmp()
    Dim nrow As Integer
    Dim ncol As Integer

    nrow = Range("F2:I142").Rows.Count
    ncol = Range("F2:I142").Columns.Count

    ReDim matrix(nrow, ncol)
    ReDim tmp(nrow, ncol)

    matrix = Range("F2:I142").Value

    For i = 0 To 142
        For j = 0 To 3
            tmp(i, j) = matrix(i, j) / 100
        Next
    Next

End Sub

数组索引可能有错误吗？

Answer 1

错误是因为你使用了错误的数组边界：

ReDim matrix(1 To nrow, 1 To ncol)
ReDim tmp(1 To nrow, 1 To ncol)    

'your code

For i = 1 To 141
    For j = 1 To 4
        tmp(i, j) = matrix(i, j) / 100
    Next
Next