Excel VBA，简单的“为每个”宏移动范围

Question

我试图运行一个非常简单的代码来模拟每个单元格在一个范围内的F2+Enter。

我知道，我应该用别的东西，但在我的情况下，没有其他的工作！

任何范围我在代码中，宏strat在范围的末尾和做的数量，包括在我的范围内！

我试过简单的范围或动态范围，同样的事情。

在下面的代码中，它将从AC100开始，在AC200停止。

Dim Rng As Variant, Cell As Range

Set Rng = Range("AC1:AC100")
For Each Cell In Rng.Cells
    Cell.Select
    SendKeys "{F2}", True
    SendKeys "{ENTER}", True
Next Cell

我很确定这是个小细节，但我看不出是什么。

谢谢!

Answer 1

试试看：

Sub qwerty()
    Dim Rng As Variant, Cell As Range

    Set Rng = Range("AC1:AC100")
    For Each Cell In Rng.Cells
        Cell.Select
        Application.SendKeys "{F2}"
        Application.SendKeys "{ENTER}"
        DoEvents
    Next Cell
End Sub

注：

我们指定Application以防止SendKeys进入VBE

DoEvents阻止他SendKeys“堆积”