VBA宏首次运行时variable1无法赋值1，二次运行正常求排查

核心原因 #

你遇到的问题本质是首次打开工作簿时，Excel后台加载/计算未完全完成，导致代码读取单元格时目标值尚未就绪；再加上依赖Activate的隐式对象引用，进一步放大了加载延迟的影响。

针对性修复方法 #

1. 用明确的对象引用替代Activate #

依赖Activate切换工作表/工作簿会让代码依赖Excel的当前活动状态，首次打开时焦点切换的延迟会导致隐式引用出错。直接用对象变量锁定目标工作表：

variable1 = 0

Dim targetWB As Workbook
Dim targetWS As Worksheet
' 打开工作簿并赋值给变量
Set targetWB = Workbooks.Open("workbook1.xlsx")
' 直接引用目标工作表
Set targetWS = targetWB.Worksheets("sheet1")

For i = 1 To 300
    ' 明确指定工作表的Cells，避免隐式依赖活动页
    If targetWS.Cells(i, 2).Value = "1111" Then
        variable1 = 1
        Exit For ' 找到匹配后直接退出循环，提升效率
    End If
Next i

If variable1 = 1 Then
    GoTo xxx
End If

2. 强制工作簿加载完成后再执行逻辑 #

固定5秒等待无法适配不同的加载速度，改用循环等待工作簿就绪：

Set targetWB = Workbooks.Open("workbook1.xlsx")
' 循环等待工作簿完全加载就绪
Do While Not targetWB.Ready
    DoEvents ' 让Excel处理后台加载事件
Loop

3. 处理公式计算延迟 #

如果目标单元格的"1111"是公式计算结果，首次打开时公式可能未完成计算，需强制刷新：

Set targetWB = Workbooks.Open("workbook1.xlsx")
Set targetWS = targetWB.Worksheets("sheet1")

' 强制刷新工作表计算
targetWS.Calculate

额外排查点 #

• 检查目标单元格是否存在前导/尾随空格：可以用Trim(targetWS.Cells(i, 2).Value) = "1111"来匹配；
• 确认variable1的作用域：确保没有局部重名变量覆盖这个public变量；
• 尝试打开工作簿时禁用自动计算，加载完成后再恢复：

  Application.Calculation = xlCalculationManual
  Set targetWB = Workbooks.Open("workbook1.xlsx", UpdateLinks:=xlUpdateLinksNever)
  targetWS.Calculate
  Application.Calculation = xlCalculationAutomatic
  

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