如何将RND -1生成的20000个随机数写入文本文件？

我来帮你搞定这个困扰！立即窗口的行数限制确实很烦人，要完整保存20000个随机数，直接写入文本文件是最稳妥的办法。下面是修改后的VBA代码，能把所有随机数保存到你指定的文件里：

Sub ExportRandomNumbers()
    Dim i As Long
    Dim filePath As String
    
    ' 自定义文件保存路径，建议改成你容易找到的位置，比如桌面
    filePath = Environ("USERPROFILE") & "\Desktop\RandomNumbers.txt"
    
    ' 初始化随机数生成器，和你原来的Rnd -1效果一致
    Randomize -1
    
    ' 打开文件准备写入，Output模式会覆盖已有文件，Append则是追加内容
    Open filePath For Output As #1
    
    ' 循环生成并写入20000个随机数
    For i = 1 To 20000
        ' 每行写入一个随机数，方便后续查看和复制
        Print #1, Rnd
    Next i
    
    ' 一定要关闭文件，避免占用资源
    Close #1
    
    ' 提示保存完成，方便确认
    MsgBox "20000个随机数已成功保存到：" & vbCrLf & filePath, vbInformation
End Sub

几个关键细节说明： #

• 文件路径：我用了Environ("USERPROFILE") & "\Desktop\..."来自动获取你的桌面路径，不用手动输入绝对路径，更通用；你也可以改成其他文件夹路径，比如"D:\Data\Randoms.txt"
• 写入格式：如果不想每行一个随机数，想让它们用逗号分隔在同一行，只需要把Print #1, Rnd改成Print #1, Rnd;（注意末尾的分号）
• 文件模式：For Output会覆盖目标文件的原有内容，如果想往已有文件里追加随机数，改成For Append即可
• 随机数初始化：Randomize -1和你原来的Rnd -1作用相同，都是固定随机数序列，保证每次运行生成的随机数都一样

运行这个宏之后，你就能在指定路径找到包含全部20000个随机数的文本文件了，直接打开复制就行~

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