设置CTRL+SHIFT+字母时Excel宏快捷键运行异常问题排查

问题成因 #

当使用Ctrl+Shift+字母组合触发宏时，Shift键的按下状态会在宏启动后短暂保留，直接干扰了代码中依赖Select/Activate的操作流程：
打开模板文件后，模板工作表会成为当前活动对象，此时执行Cells.Select和Selection.Copy时，残留的Shift按键状态会导致复制操作异常中断，后续激活原工作表、粘贴格式等步骤无法继续执行，最终宏停留在模板打开的阶段。而Ctrl+字母的快捷键不会带入Shift状态，因此流程能正常走完。

修复方法及优化代码 #

解决核心是移除对Select/Activate的依赖（这类操作极易受窗口焦点、按键状态影响），同时强制清除按键残留状态，确保流程稳定：

Sub Format_IE_STATUS()
    Application.ScreenUpdating = False
    
    ' 循环清除Shift按键的残留状态，避免干扰后续操作
    Do While GetAsyncKeyState(vbKeyShift) <> 0
        DoEvents
    Loop
    
    Dim dwb As Workbook
    Set dwb = ActiveWorkbook
    Dim targetWS As Worksheet
    ' 明确绑定执行宏时的目标工作表，避免切换窗口后丢失引用
    Set targetWS = dwb.ActiveSheet
    
    Dim templateWB As Workbook
    Set templateWB = Workbooks.Open("S:\I&E Status Report Template.xlsx")
    Dim templateWS As Worksheet
    Set templateWS = templateWB.Sheets(1) ' 假设模板第一个工作表为格式来源
    
    ' 直接通过对象复制格式，无需切换活动表
    templateWS.Cells.Copy
    targetWS.Cells.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    ' 直接操作目标工作表的窗口设置冻结窗格
    With targetWS.Parent.Windows(1)
        .SplitColumn = 0
        .SplitRow = 1
        .FreezePanes = True
    End With
    
    templateWB.Close SaveChanges:=False
    Application.ScreenUpdating = True
    MsgBox "格式应用完成"
End Sub

关键改动说明 #

1. 新增GetAsyncKeyState循环：强制清除Shift按键的残留状态，彻底避免按键干扰
2. 用明确对象变量替代ActiveSheet：绑定执行宏时的目标工作表，不再依赖动态变化的活动对象
3. 移除所有Select/Activate操作：直接通过对象引用完成复制、粘贴和窗口设置，流程更稳定

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