在某个范围内的每个单元格中按F2然后输入

Question

我有以下代码

Sub activate1()
Dim row As Long
Dim cell As Range
Dim r As Range, rr As Range

row = Range("A" & Rows.Count).End(xlUp).row
Set rr = Range("A" & row & ":" & "AH" & row)

For Each r In rr
    r.Select
    Application.SendKeys "{F2}"
    Application.SendKeys "{ENTER}"
    DoEvents
Next
End Sub

我想动态搜索最后一行，然后通过发送f2并输入来激活范围中的每个单元格。但是，此代码将f2发送到我的VBA编辑器而不是Excel电子表格。如何确保SendKeys将密钥发送到正确的窗口？

总之，我想激活一系列细胞..