Excel VBAtypes不匹配运行时错误13

用这个代码

Sub Rondom() Dim arr() As Double n = InputBox("enter your number") ReDim arr(1 To n) As Double For i = 1 To n arr(i) = Application.WorksheetFunction.NormSInv(Rnd()) * 0.5 Next i cells(3, 4) = Application.WorksheetFunction.Percentile(arr, 0.01) End Sub 

当我为ninput60000时，它工作正常。 但是，当我input70000，我收到一个错误，说“types不匹配”，这一行

 cells(3, 4) = Application.WorksheetFunction.Percentile(arr, 0.01) 

突出显示。

Answer 1

= PERCENTILE（）最多可以包含8191个数据元素。