求助（宏）

我的问题是这样的：
我有一组数据，经过一系列复杂的计算过程，得到一个值。
然后，我要把这组数据进行随机交换处理，再按照刚才的计算过程计算得到最终的结果（这个要运行5000次，而且5000次的结果都要保留），原文说的就是在excel里面做的，求大神指点

无图无真相。

然后我把ai数据进行随机交换处理（原次序是a,b,c,d,e,f,g,h,i,j，现在可随机交换成任何次序，比如是a,d,c,g,f,e,j,g,i,b或者其他的都行），再把这个放进刚才的公式进行一次计算，算到一个FDvar值。共进行5000次随机交换，得到5000个值，5000个值都要保留以待检验

求指点，@青水蛙鸣 谢谢I

用vba是可以的
假设初始次序为arr=array(a，b，c，。。。i)
撇开计算过程不谈
不过是随机生成5000次乱序11个元素的不重复数组。

Sub 计算()
Dim jg(1 To 5000), arr
Dim d, r%, i%
Set d = CreateObject("Scripting.Dictionary")
arr = Array(200, 123, 12, 34, 12, 76, 89, 123, 32, 123, 44)'我模拟的原始数据
For r = 1 To 5000 ’循环5000次
’=============下面5行乱序生成一个11位数组，通过对该数组的顺序引用达到乱序引用原始数据的目的
Do Until d.Count = 11
d(Int(Rnd() * 11) + 1) = ""
Loop
ir = d.keys
d.RemoveAll
'===============================这下面三行要换成你计算过程=
For i = 0 To 10
jg(r) = arr(ir(i) - 1) + jg(r)
Next
'========================上面这一段要换成你的计算过程
Next
[a1].Resize(5000, 1) = Application.Transpose(jg) '把5000个结果赋值a1:a5000区域
End SubI

是在这里面弄的是吗？非专业，不知道的很多，请见谅