SendKeys和Excel仅适用于39行

Question

我在工作表Extract中有一些结果数据，我需要逐个单元格激活并按回车键。对于10个细胞来说没关系，但我有超过4万个细胞。 我在VBA中使用小宏来通过SendKeys发送F2和Enter。

我在Sheet中运行这个名为“control”的宏，我不想看到脚本在“Extract”选项卡中激活此单元格的时间。这就是我使用

的原因

Application.ScreenUpdating = False

代码：

Sub Refresh()
    Dim sOLD As Worksheet
    Set sOLD = ActiveSheet
    Application.ScreenUpdating = False
        Dim lastrow As Long
        Worksheets("Extract").Activate
        lastrow = Range("Q" & Rows.Count).End(xlUp).Row
        For j = 2 To lastrow
            Range("Q" & j).Select
            Application.SendKeys "{F2}"
            Application.SendKeys "{ENTER}"
            DoEvents
        Next j
        sOLD.Activate
    Application.ScreenUpdating = True
End Sub

不幸的是，它仅适用于前39行，在脚本之后，愤怒中的休息行变为空。你们知道什么会导致问题吗？