Question

我正在尝试遍历数组，以便单元格值等于该数组的元素。我在启动“.Range（”I3“）的代码行上得到一个运行时错误9 ......”我想我已经把所有东西都放好了所以我不明白为什么我会收到这个错误。有人知道吗？谢谢！

Dim MyArray(4 To 14979, 10 To 10) As String
Dim wsBalance As Worksheet

Set wsBalance = ThisWorkbook.Sheets("Balance")



    With wsBalance

    For i = LBound(MyArray) To UBound(MyArray)

        .Range("I3") = MyArray(i, 1)

        Next i

    End With

Answer 1

您已使用错误的值声明了数组。这应该有用。

Dim MyArray(4 To 14979, 1 To 10) As String

在这里循环和编辑单元格中的值有一点例子：

 With wsBalance     
     For i = LBound(MyArray) To UBound(MyArray)         
         MyArray(i, 1) = "MyValue " & i         
         .Cells(i, 3) = MyArray(i, 1)         
     Next i     
 End With

循环数组 - 如何修复运行时错误9？

1 个答案: