[已解决]数组可以相除吗？？

1091126096

赞成6楼的。              

北漂的猪

   Range("a1").Resize(1) = Application.Transpose(arr3(i))
我添加了最后一句但是显示的下标越界，怎么修改呢~~

ligh1298

'请再测试

1. Sub 数组相除()
   
2.     Dim arr1(), arr2(), arr3()
   
3.     Dim i As Byte
   
4.     arr1 = Array(5, 2, 6)
   
5.     arr2 = Array(1, 1, 2)
   
6.     ReDim Preserve arr3(0 To 2)
   
7.     For i = 0 To UBound(arr1)
   
8.         arr3(i) = arr1(i) / arr2(i)
   
9.     Next
   
10.     Cells(1, 1).Resize(3) = Application.Transpose(arr3)
    
11. End Sub

复制代码