Excel宏仅从「查看宏」菜单运行正常，快捷键执行异常求助

核心原因 #

你的宏代码过度依赖Activate和Select这类界面操作，在通过快捷键触发宏时，Excel的界面状态切换（比如激活原工作簿）可能存在延迟，导致后续的Sheets("Sheet1")实际指向的是刚打开的Template.xlsx而非原工作簿，最终无法完成复制操作。而手动运行时，界面状态切换是同步完成的，所以功能正常。

另外也需排查快捷键冲突：如果Excel自带功能、其他加载项或其他宏占用了Ctrl+Shift+Q快捷键，可能会中断宏的执行流程。

解决方法 #

1. 移除对界面操作的依赖（优先推荐） #

修改代码，直接通过工作簿对象引用操作工作表，完全避免Activate和Select，这样不管界面状态如何，代码都能精准定位目标工作表：

Sub MergeTest3()
'
' Keyboard Shortcut: Ctrl+Shift+Q
'

Dim CompWrksht As Workbook
Set CompWrksht = ActiveWorkbook

Dim wb As Workbook
Dim template As String
template = "V:\Nick\Validation Worksheets\ECC\Maui Wild Fires\Template.xlsx"
Set wb = Workbooks.Open(template)

' 直接通过原工作簿对象引用Sheet1，无需激活
CompWrksht.Sheets("Sheet1").Move Before:=wb.Sheets(1)

End Sub

这里直接用wb（已指向Template工作簿的对象变量）代替Workbooks("Template.xlsx")，进一步避免因工作簿名称变化导致的错误。

2. 检查并修改快捷键（若存在冲突） #

• 打开Excel的「开发工具」选项卡，点击「宏」
• 选中MergeTest3宏，点击「选项」
• 修改快捷键为未被占用的组合（比如Ctrl+Shift+Z），确认后保存

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