Excel VBA代码无法正确捕获RANDBET函数结果该如何修复？

你遇到的问题是RANDBET属于Excel易失性函数，只要工作表触发重计算操作（包括VBA访问单元格、修改单元格内容），就会自动刷新生成新的随机值，导致读取A列数值、写入B列结果的过程中A列数值发生变化，最终判定结果和读取时的数值不匹配。

运行VBA代码时临时关闭Excel自动重算，代码运行完成后再恢复原有设置，同时清理冗余的循环逻辑，修改后的代码如下：

Sub tt()
    ' 保存Excel原有配置
    Dim originalCalc As XlCalculation
    originalCalc = Application.Calculation
    Dim originalScreenUpdating As Boolean
    originalScreenUpdating = Application.ScreenUpdating
    
    ' 错误处理：避免代码出错导致Excel设置无法恢复
    On Error GoTo ErrHandler
    
    ' 运行前关闭自动重算和屏幕更新，避免触发RANDBET刷新
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    
    Dim x As Integer
    For x = 1 To 11
        If Range("A" & x).Value < 50 Then
            Range("B" & x).Value = "disqualify"
        Else
            ' 大于等于50的情况可根据需求自定义赋值，不需要可删除本段Else逻辑
            Range("B" & x).Value = ""
        End If
    Next x
    
ErrHandler:
    ' 恢复Excel原有配置
    Application.Calculation = originalCalc
    Application.ScreenUpdating = originalScreenUpdating
    ' 异常提示
    If Err.Number <> 0 Then
        MsgBox "运行出错：" & Err.Description
    End If
End Sub

代码修改点 #

• 增加了Excel原有配置的保存和恢复逻辑，不会改变用户的常规使用习惯
• 新增错误捕获机制，避免代码意外报错后Excel停留在手动重算模式导致表格无法自动更新
• 移除了冗余的For Each嵌套循环，简化执行逻辑

如果你后续不需要A列的随机值继续变动，可以先将A列的公式转换为固定数值再做判定，转换代码如下：

Sub 固定A列数值()
    Range("A1:A11").Value = Range("A1:A11").Value
End Sub

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