Question

Dim loop_ctr As Integer
For loop_ctr = 1 To 100
    Sheets("Capacity&Costs").Activate
    Range("TrialOne") = "=INT(RAND()*3+1)-1"
    Calculate

Next loop_ctr

嗨，我有上面的VBA代码。从这一点开始，我想从此计算中获取所有100个值的列表，并将其显示为不同工作表上的列表。那可能吗？现在，如果我运行此代码，它只显示第100次计算的值。

TrialOne是两列，包含0,1或2.我想执行上面的代码100次，并将每个结果分别记录为列表，所以我有一个100个数字的列表

Answer 1

您可以尝试以下代码段（根据您的特定范围和工作表命名进行调整）

Sub GenerateRandomList()
    Dim loop_ctr As Integer
    For loop_ctr = 1 To 100
        Range("A" & loop_ctr) = "=INT(RAND()*3+1)-1"
        Calculate
    Next loop_ctr
End Sub

打开新的Excel工作表，将代码放入Sheet1 VBA代码模块并运行此示例。请注意，此解决方案远非最佳解决方案，但它与您的请求相关。希望这会有所帮助。最好的问候，

Excel VBA生成100个伪随机数的列表

1 个答案: