2014-10-16 301 views
0

我有一個宏,我用它來粘貼在Excel中,它工作正常,除非從一個單元格複製並粘貼到另一個單元格。換句話說,它可以很好地處理來自網頁的文本,而不是從一個單元格到另一個單元格。錯誤消息說Run time error '1004': PasteSpecial method of Worksheet class failed.這裏是代碼:複製並粘貼Excel宏

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

End Sub 
+0

當您將一個單元格複製到另一個單元格時,您試圖執行的操作是什麼,這無法通過熱鍵Ctrl + V完成?注意:你可以消除「ActiveCell.Select」 - 這是多餘的。 – 2014-10-16 14:00:39

回答

1

有兩種PasteSpecial方法的實現。

Worksheet.PasteSpecial從剪貼板粘貼和

Range.PasteSpecial從/到的範圍內粘貼。

您可能需要後者,上述鏈接中的示例。

+0

有沒有辦法使用Range.PasteSpecial動態?我希望它能粘貼到我選擇的任何單元格中。謝謝,加勒特。 – 2014-10-16 14:27:17

+0

這樣的事情ActiveCell.Copy然後分隔線 。範圍(「D1:D5」)。PasteSpecial操作:= xlPasteSpecialOperationAdd – barryleajo 2014-10-16 14:36:05

+0

這將粘貼到D1:D5每次我想要它粘貼到我碰巧選擇的任何單元格。 – 2014-10-16 14:38:23