excel的全局粘贴值

Question

以下代码用于"仅粘贴值"事件。当值在同一张图纸之间移动时，它会起作用。但是，如果从其他工作簿复制值并运行宏，Excel会报告数据超出范围。如何制作一个在整个excel程序中运行的全局粘贴值宏？

 Sub PasteValOnly()
'
' PasteValOnly Macro
' pastes values only
'
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
End Sub

Answer 1

并将宏放入您的个人.XLSB中，这样它将始终有效。

这就是我使用的：

'GENERIC MACROS
Sub GxPasteValuesOnly() 'Assigned to Ctrl+Shift+v
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, skipBlanks:=False, Transpose:=False
End Sub

Answer 2

试试这个

ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= False