VBA修改单元格后未自动刷新，如何模拟手动回车实现刷新？

你的问题大概率是Sheet1中M4的值修改后，依赖它的公式未自动触发计算，或是Excel计算模式处于手动状态导致的。以下是几种可行的解决办法，比单纯模拟回车更可靠：

1. 强制触发工作表计算 #

在修改M4的值后，直接调用工作表的Calculate方法，强制刷新所有依赖该单元格的公式：

Sheets("Sheet1").Range("M4") = xSN
' 强制刷新Sheet1的所有公式计算
Sheets("Sheet1").Calculate

如果需要刷新整个工作簿的所有计算，可使用：

Application.CalculateFullRebuild

2. 模拟回车键操作（针对特殊场景） #

如果确实需要模拟手动回车的效果（比如某些自定义函数/控件需触发编辑状态才能更新），可以用SendKeys命令，但注意该方法依赖当前窗口激活状态，稳定性稍差：

Sheets("Sheet1").Range("M4") = xSN
Sheets("Sheet1").Range("M4").Select
' 模拟按下回车键
SendKeys "{ENTER}"

3. 确保Excel处于自动计算模式 #

先检查并设置Excel的计算模式为自动，避免手动计算导致的不刷新：

' 在代码开头设置自动计算
Application.Calculation = xlCalculationAutomatic

修改后的完整代码示例 #

Sub MassPrintSheets()
    Application.ScreenUpdating = False
    ' 设置自动计算模式
    Application.Calculation = xlCalculationAutomatic

    Dim ary As Variant
    Dim r As Long, NumRows As Long

    With Sheets("Mass print of Serial Numbers")
        NumRows = .Range("A1").Value
        ary = .Range("B5", .Range("B" & .Rows.Count).End(xlUp).Offset(, 1)).Value2
    End With

    For r = 1 To NumRows
        If ary(r, 1) > 0 And ary(r, 1) <> "" Then
            xSN = ary(r, 1)
  
            With Sheets("Sheet1")
                .Range("M4") = xSN
                ' 强制刷新工作表计算
                .Calculate
                ' 如果需要模拟回车，取消下面两行注释
                ' .Range("M4").Select
                ' SendKeys "{ENTER}"
            End With

            ' 取消注释启用打印
            ' Sheets("Sheet1").PrintOut
            ' Sheets("A4 Despatch Label").PrintOut
        End If
    Next r

    Application.ScreenUpdating = True
    ' 恢复原计算模式（可选）
    ' Application.Calculation = xlCalculationManual
End Sub

另外，建议尽量避免使用Select方法，改用With语句操作工作表，代码更高效也更稳定。

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