怎样用Excel宏表函数制作随机出题软件,就是随机出20个数（竖式），然后算出答案

Question

如题所述

Answer 1

由于提问中没有说明20个数的特征，这里就先设定为100以内正整数，

算出答案这个说法中也没有说明是哪种运算，这里设定为求和。

代码如下：

Sub RamSum()
    Dim rng As Range
    Set rng = Range("A1:A20")
    rng.Formula = "=INT(RAND()*100)"
    rng = rng.Value
    Range("B1") = Application.WorksheetFunction.Sum(rng)
    Set rng = Nothing
End Sub