如何在Excel VBA宏中合并两类粘贴逻辑实现全场景无格式粘贴

功能说明 #

• 自动识别剪切板内容来源，适配两类常见粘贴场景
• 复制源为Excel内部单元格时，自动仅粘贴值，不保留源格式、公式等冗余内容
• 复制源为网页等外部HTML格式内容时，自动过滤所有网页格式，仅粘贴纯文本内容
• 内置错误处理逻辑，剪切板为空或内容格式不兼容时不会抛出报错

完整VBA代码 #

Sub SuperPaste()
    On Error Resume Next ' 启用错误忽略，避免无内容/格式不兼容时报错
    
    ' 首先尝试执行Excel内部单元格粘贴值逻辑
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    ' 上述逻辑报错说明剪切板不是Excel单元格内容，尝试执行HTML无格式粘贴
    If Err.Number <> 0 Then
        Err.Clear
        ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
    End If
    
    ' 兜底逻辑：HTML粘贴也失败时直接粘贴纯文本
    If Err.Number <> 0 Then
        Err.Clear
        ActiveSheet.PasteSpecial Format:="文本"
    End If
    
    On Error GoTo 0 ' 关闭错误忽略，恢复Excel默认错误机制
End Sub

使用说明 #

• 打开Excel后按Alt+F11调出VBA编辑器，在当前工作簿或个人宏工作簿中插入模块，将上述代码粘贴到模块中保存
• 可在Excel宏设置中自定义快捷键绑定到SuperPaste宏，替换默认的Ctrl+V粘贴快捷键，实现一键无格式粘贴

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