对数正态分布是e^N（m，s），那么，用你的正态分布构造，答案是

=EXP( NORMINV(RAND(),Mean,Stdev) )

然而这会给予你很大的值。下一步是缩放平均值和标准差。在伪代码中，

scaled mean = ln( m^2 / sqrt( m^2 + s^2 ))
scaled sd = sqrt( ln(( m^2 + s^2 ) / m^2 ))

我正在按照上面的指示去做，如果我做错了，请告诉我。

Public Function LognormalRV(ByVal SampleMean As Double, ByVal SampleStDev As Double)
    'returns a random variable based on a lognormal distribution
    Dim ScaledMean As Double
    Dim ScaledStDev As Double
    ScaledMean = Log(SampleMean ^ 2 / Sqr(SampleMean ^ 2 + SampleStDev ^ 2))
    ScaledStDev = Sqr(Log((SampleMean ^ 2 + SampleStDev ^ 2) / SampleMean ^ 2))
    LognormalRV = WorksheetFunction.LogNorm_Inv(Rnd(), ScaledMean, ScaledStDev)
End Function