Sub aa() For i = 7 To 285 '建立一个循环从第7行开始到285行 Cells(i, 3) = Application.Ln(Cells(i, 2)) - Application.Ln(Cells(i - 1, 2)) '第三列的值=同行第2列值的自然对数。(自然对数以常数项 e (2.71828182845904) 为底)减去第二列的上一行的自然对数。 Next End Sub 第二段代码道理相同用循环处理 前面的常数不用解释了,后面的函数NormSInv返回一个rnd()(随机数,大于0小于1的随机数)标准正态累积分布函数的反函数。该分布的平均值为 0,标准偏差为 1。