|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
菜鸟写了一小段代码:
Sub sql()
For k = 1 To [b3]
For i = 1 To [b1] + 1
Cells(i + 1, 3) = Application.NormInv(Rnd(), 0, 1)
Next
For j = 1 To [b2] + 1
Cells(j + 1, 4) = Application.NormInv(Rnd(), 0, 1)
Next
Cells(k + 1, 5) = "=Var(c2:c" & [b1] + 2 & ")"
Cells(k + 1, 6) = "=Var(d2:d" & [b2] + 2 & ")"
Cells(k + 1, 7) = Cells(k + 1, 5) / Cells(k + 1, 6)
Next
End Sub
运行后的结果如下图所示,E列和F列中的方差总是显示最后一次结果,而不是我预期的每循环一次就有一个结果(比如G列),请问各位大神,
Cells(k + 1, 5) = "=Var(c2:c" & [b1] + 2 & ")"
Cells(k + 1, 6) = "=Var(d2:d" & [b2] + 2 & ")"
这两行代码我改如何修改?非常感谢!
|
|