Excel VBA 类型不匹配运行时错误 13

Question

使用此代码

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

当我为 n 输入 60000 时它工作正常。但是当我输入 70000 时，我收到一条错误消息“类型不匹配”和这一行

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

突出显示。

Answer 1

=百分位()最多可以包含 8191 个数据元素。