复制并粘贴Excel宏

Question

我有一个用于在Excel中粘贴的宏，除了从一个单元格复制并粘贴到另一个单元格之外，它工作正常。换句话说，它适用于来自网页的文本而不是从一个单元格到另一个单元格。错误消息显示Run time error '1004': PasteSpecial method of Worksheet class failed.以下是代码：

Sub MousePaste()
'
' MousePaste Macro
'
' Keyboard Shortcut: Ctrl+Shift+M
'
    ActiveCell.Select
    ActiveSheet.PasteSpecial Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True

End Sub

Answer 1

PasteSpecial方法有两种实现方式。

从剪贴板粘贴的

Worksheet.PasteSpecial

Range.PasteSpecial粘贴一个范围。

您可能需要后者，以上链接中的示例。