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

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

---

TrialOne是包含0、1或2的两列。我想执行上述代码100次，并将每个结果单独记录为一个列表，因此我有一个包含100个数字的列表

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

---

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

您的范围

TrialOne

是如何定义的？你的标题要求“最小值”，你的文本要求获得100个值的列表-哪一个？（“一个值”和“100个值的列表”是互斥的-你可以得到一个或100个，但不能同时得到两个。）回答时，请用一个答案来澄清你的问题，这样每个人都可以看到，而不是在评论中。TrialOne是两列，包含0、1或2。我想执行上述代码100次，并将每个结果分别记录为一个列表，因此我有一个包含100个数字的列表。请将这些信息放入您的问题中，而不是注释中。您好，我刚刚尝试了它，我得到了运行时错误“1004”：对象“u Global”的方法“Range”失败。这是什么意思？请看附加说明。嗨，我想我问的问题是错误的。我发布了另一个更详细的问题，与这个问题略有不同。你介意看一下吗？它的标题是“VBA在100次迭代后列出结果”：谢谢！我将看一看你的第二次提交。请你记下这个问题的答案好吗？感谢和问候，

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

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