Question

excel vba，我想把定义的数组输入a1到a10，这样的代码错误在哪里？

Sub ten()
Option Base 1
Dim arr(10) As Integer
arr(1) = 1
arr(2) = 2
arr(3) = 3
arr(4) = 4
arr(5) = 5
arr(6) = 6
arr(7) = 7
arr(8) = 8
arr(9) = 9
arr(10) = 10

rang("a1:a10").Value = arr(1)

End Sub

Answer 1

sumproduct的所有功能都可以用公式组实现。比如将sumproduct换成sum，然后按ctrl+shift+enter确认，可得到一模一样的结果
=sumproduct(1/countif(a1:a10,a1:a10))
{=sum(1/countif(a1:a10,a1:a10))}
但数组公式难以被理解，输入速度慢（无法拖动等等），并且一般情况下数组公式比普通公式效率要低，所以能用普通函数实现的功能，建议直接使用普通函数。

Answer 2

Sub ten()
Dim arr(10) As Integer
arr(0) = 1
arr(1) = 2
arr(2) = 3
arr(3) = 4
arr(4) = 5
arr(5) = 6
arr(6) = 7
arr(7) = 8
arr(8) = 9
arr(9) = 10
brr = Application.Transpose(arr())
Range("a1:a10").Value = brr
End Sub
分析：
1、你所定义的arr是一个横向的一维数组，而你要输入的是纵向（a1:a10）.所以不能正常输出，输出前必须先进行转置，由arr转置后变成新的一维纵向数组brr。当然也可以用for 的方法输出。
2、你所定义的数组含有错误。数组的起始位置为0，而非1.

Answer 3

你定义arr(10)，那么应该是arr(0)～arr(9)哦，而arr(10)已经越界啦！

Answer 4

Range 不是rang
你是想A1=ARR(1) A2=ARR(2)....?
如果是这样用 for i =1 to 10