标签：mod ext int end res cell col 序列 temp
利用vba生成8个随机数。
Sub rndSer() tempA = Array(0, 1, 2, 3, 4, 5, 6, 7) For i = 7 To 1 Step -1 s = Int(Rnd() * (i + 1) + Second(Now())) Mod (i + 1) a = tempA(i) b = tempA(s) tempA(i) = b tempA(s) = a Next Range(Cells(1, 1), Cells(1, 8)).Resize = tempA End Sub
标签：mod ext int end res cell col 序列 temp
原文地址：https://www.cnblogs.com/chenxiehan/p/12558774.html
