如何让Norm_inv生成三位小数随机数或优化VBA宏运行速度？

首先明确：Norm_Inv无法直接生成指定小数位数的随机数，它返回的是连续正态分布值，必须通过后续取整处理，但我们可以把这个过程和其他操作一起优化，大幅减少旧设备上的运行时间。

下面是针对你的宏的具体优化方案，核心是减少VBA与Excel单元格的频繁交互（这是旧设备性能瓶颈的主要来源）：

核心优化点 #

1. 用数组批量读写，替代循环中逐个单元格操作 #

每次对单个单元格的Value赋值都会触发Excel的底层交互，循环几百次的话耗时会指数级上升。先把所有要生成的随机数存入数组，最后一次性写入单元格，能把速度提升几十倍。

2. 批量设置单元格格式，避免循环内重复操作 #

不要在生成每个随机数后都设置NumberFormat，等所有数值写入后，一次性给整个目标区域设置格式即可。

3. 关闭更多Excel后台功能 #

除了ScreenUpdating，还应该关闭Calculation（自动重算）和EnableEvents（事件触发），避免写入数据时触发不必要的计算或宏事件。

4. 优化序号填充逻辑 #

原来的逐个单元格填充序号可以用批量生成的方式替代循环，速度更快。

5. 明确引用工作表对象，避免ActiveSheet歧义 #

所有单元格引用都绑定到指定工作表，避免因活动表变化导致的错误，同时也能提升一点性能。

修改后的完整代码 #

Sub RNGTOX_Optimized()
    Dim sSIDE As Worksheet
    Dim lastcell As Range
    Dim rowRange As Range ' 重命名row为rowRange，避免与VBA关键字冲突
    Dim i As Long, A As Long, B As Long
    Dim prumer As Double, smodch As Double
    Dim LR As Long, LC As Long, LCNEW As Long
    Dim ocislovani As Range
    Dim rngOutput As Range
    Dim randomVals() As Double ' 存储随机数的数组

    Set sSIDE = ActiveSheet
    
    ' 检查数据是否存在
    If sSIDE.Range("H6").Value = vbNullString Then
        MsgBox "Chybí data."
        Exit Sub
    End If
            
    ' 关闭所有影响性能的后台功能
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .EnableEvents = False
    End With
     
    ' 获取行列边界
    LR = sSIDE.Cells(sSIDE.Rows.Count, 1).End(xlUp).Row
    LC = sSIDE.Cells(6, sSIDE.Columns.Count).End(xlToLeft).Column
    B = LC + 1
    LCNEW = sSIDE.Range("B2").Value + 7

    ' 检查是否需要生成新数据
    If LCNEW <= LC Then
        MsgBox "Počet už je dosažený. Není třeba dopočítávat."
        GoTo Cleanup ' 直接跳转到清理步骤
    End If

    ' 批量填充序号，替代循环
    Set ocislovani = sSIDE.Range(sSIDE.Cells(5, 8), sSIDE.Cells(5, LCNEW))
    ocislovani.Value = Application.Transpose(Evaluate("ROW(1:" & ocislovani.Columns.Count & ")"))

    ' 遍历每行生成随机数
    For i = 6 To LR
        Set rowRange = sSIDE.Range(sSIDE.Cells(i, 8), sSIDE.Cells(i, LC))
        
        ' 计算均值和标准差（用WorksheetFunction更稳定高效）
        prumer = WorksheetFunction.Average(rowRange)
        smodch = WorksheetFunction.StDev(rowRange)
        
        ' 定义输出区域并初始化数组
        Set rngOutput = sSIDE.Range(sSIDE.Cells(i, B), sSIDE.Cells(i, LCNEW))
        ReDim randomVals(1 To rngOutput.Columns.Count) As Double
        
        ' 在数组中生成并取整随机数
        For A = 1 To UBound(randomVals)
            randomVals(A) = Round(WorksheetFunction.Norm_Inv(Rnd(), prumer, smodch), 3)
        Next A
        
        ' 一次性写入数组到单元格
        rngOutput.Value = randomVals
    Next i

    ' 批量设置格式
    sSIDE.Range(sSIDE.Cells(6, B), sSIDE.Cells(LR, LCNEW)).NumberFormat = "0.000"

    ' 回到初始单元格
    sSIDE.Range("H6").Select
       
Cleanup:
    ' 恢复Excel设置
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
    End With
End Sub

优化效果说明 #

• 数组批量读写：将原来的80行×100次=8000次单元格写入，减少为80次，直接砍掉99%的交互耗时。
• 关闭自动计算：避免每次写入数据时Excel自动重算整个工作表，旧设备上这个操作非常耗时。
• 序号批量填充：把100次单元格赋值变成1次操作，速度提升明显。

按这个优化后的代码，旧设备上的运行时间应该能从5分钟压缩到10秒以内，和新设备的表现基本一致。

内容的提问来源于stack exchange，提问作者Vecernice