提示“此操作不适用于多选”错误 求可取消异常选中的VBA代码

功能说明 #

• 无需定位原有宏逻辑的报错根因，可快速清除异常状态恢复基础操作
• 不修改工作簿内原有公式、宏代码、自定义配置等内容
• 可复用在所有同模板生成的问题工作簿上

VBA 修复代码 #

Sub 修复工作簿操作异常()
    Dim ws As Worksheet
    Dim originalSheet As Worksheet
    
    ' 记录当前激活的工作表，执行完成后自动返回
    Set originalSheet = ActiveSheet
    
    ' 关闭屏幕刷新提升执行效率
    Application.ScreenUpdating = False
    
    ' 遍历工作簿内所有工作表清除异常选中状态
    For Each ws In ThisWorkbook.Worksheets
        ws.Activate
        ' 取消所有单元格、对象的选中状态，默认选中A1单元格
        ws.Range("A1").Select
        ' 清除剪切复制模式残留
        Application.CutCopyMode = False
    Next ws
    
    ' 清空系统剪贴板解决粘贴异常
    Dim clipboard As Object
    Set clipboard = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    clipboard.SetText ""
    clipboard.PutInClipboard
    
    ' 重置Excel应用级参数
    Application.CutCopyMode = False
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    
    ' 返回原始激活的工作表
    originalSheet.Activate
    
    MsgBox "异常状态清除完成，可重试新建工作表、粘贴操作", vbInformation
End Sub

使用步骤 #

• 打开报错的Excel工作簿，按Alt + F11调出VBA编辑器
• 右键左侧工程列表中当前工作簿名称，依次选择「插入」-「模块」
• 将上述代码粘贴到弹出的模块编辑窗口中
• 按F5直接运行代码即可完成修复
• 如需批量处理多个问题工作簿，可将代码存入个人宏工作簿，逐个打开目标工作簿运行即可

注意：使用前请确保Excel已开启宏运行权限，代码仅处理当前激活的工作簿，不会篡改原有业务数据

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