为什么Excel中生成随机数的VBA代码在iMac和Windows上运行结果不一致？

问题原因 #

• 核心差异来自Windows和macOS版Office的VBA伪随机数生成器（PRNG）底层实现不同，两者的种子映射规则、序列生成逻辑没有做跨平台对齐，并非iMac端Excel的设置问题。
• 你当前代码中每次循环先调用Rnd (-1)重置随机数状态，再调用Randomize i用循环变量作为种子更新状态的写法，高度依赖平台的PRNG实现：Windows端会根据不同的i值生成不同的随机序列，但macOS端VBA对传入Randomize的小整数种子存在映射偏差，不同的i值最终被映射到了同一个初始状态，因此每一行的随机数完全一致。

解决方案 #

方案一：调整初始化逻辑（推荐） #

去掉循环内的Rnd (-1)和Randomize i调用，只在循环外调用一次Randomize，用系统时间作为默认种子，就能同时兼容Windows和macOS平台，同时修复原代码中Cells未绑定工作表的潜在bug：

Sub Macro1()
    Dim RA1 As Variant
    ReDim RA1(1 To 5)
    ' 全局仅初始化一次种子
    Randomize
    For i = 1 To 5
        For j = 1 To 5
            RA1(j) = Rnd
        Next j
        With Sheets("Sheet1")
            ' 注意Cells前加. 绑定当前With的Sheet1，避免活动表变化导致报错
            .Range(.Cells(i, 1), .Cells(i, 5)).Value = RA1
        End With
    Next i
End Sub

方案二：固定可复现的跨平台随机序列 #

如果你的场景需要固定种子、保证每次运行生成的序列完全一致，不要依赖原生VBA的随机函数，自己实现跨平台一致的伪随机数生成算法（比如线性同余生成器LCG），完全避开平台底层实现差异。

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