excel吧 关注：281,362贴子：1,550,596
- 4回复贴，共1页
不感兴趣
开通SVIP免广告
菠萝蜜
'暴&力随机，自己调整系数
Option Explicit
Sub abc()
Dim a, i, j, p(1), n
a = [c2:e13].Value
For j = 1 To 3
For i = 1 To 12
If Rnd < 0.5 Then n = -1 Else n = 1
n = n * Int(0.05 * a(i, j))
a(i, j) = a(i, j) - n
Do
p(0) = Int(Rnd * 12) + 1
Loop Until i <> p(0)
a(p(0), j) = a(p(0), j) + n
Do
p(1) = Int(Rnd * 3) + 1
Loop Until j <> p(1)
a(i, p(1)) = a(i, p(1)) + n
a(p(0), p(1)) = a(p(0), p(1)) - n
Next
Next
[g2].Resize(12, 3) = a
End Sub
