Excel编辑单元格时宏无法运行，如何编写保存退出单元格的宏？

问题说明 #

需要编写Excel宏完成以下操作：

• 退出当前单元格的编辑模式并保存工作簿
• 向下跳转20个单元格
  此前尝试的两种宏代码（直接跳转、结合SendKeys跳转）均未达到预期效果。

可行实现代码 #

Sub SaveExitAndJump20()
    ' 退出单元格编辑模式（如果当前处于编辑状态）
    If Application.EditMode Then
        ' 发送Enter键并等待操作完成
        Application.SendKeys "{ENTER}", True
        ' 确保系统处理完编辑退出事件
        DoEvents
    End If
    
    ' 保存当前工作簿
    ThisWorkbook.Save
    
    ' 向下跳转20个单元格
    On Error Resume Next
    Selection.Offset(20, 0).Select
    On Error GoTo 0
End Sub

代码说明 #

• 编辑模式判断：通过Application.EditMode检测是否处于单元格编辑状态，避免在非编辑模式下无效发送Enter键
• 可靠退出编辑：Application.SendKeys "{ENTER}", True的第二个参数设为True，强制Excel优先处理按键操作，配合DoEvents确保编辑模式完全退出
• 工作簿保存：ThisWorkbook.Save直接保存当前宏所在的工作簿，若需保存所有打开的工作簿，可替换为Application.Save
• 错误处理：On Error Resume Next避免因无选中单元格导致宏报错，执行后恢复默认错误处理

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