macros – 复制和粘贴

我的公司只使用MS Office 2003产品，所以我必须坚持下去。 由于我的工作性质，我需要使用大量的“复制和粘贴”function。 源数据主要来自网站，我将数据粘贴到Excel中的单元格中。 问题是剪贴板保持源格式，它反映在单元格上时，我粘贴它。 每次用户复制和粘贴时，通过select“粘贴为文本”选项来删除源格式是非常麻烦的。 所以我决定使用macros。 当我试图从网站复制和粘贴到Excel，macros完美的作品，但是当我从Excel复制并粘贴到相同的工作表，它会引发错误。

这是我使用的代码复制和粘贴从网站到excel没有源格式。

Sub Paste_without_any_formatting() ActiveSheet.PasteSpecial Format:="Text" End Sub 

我想添加另一个代码从Excel复制和粘贴到这样的工作表。

 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 

我怎样才能把这两个代码放在一起？ 当我按下Ctrl + V时，我想让这些事情发生。 谁能帮我？

Answer 1

这是实现它的最简单的方法。

 Sub Sample() On Error GoTo Whoa1 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Exit Sub Pastetext: On Error GoTo Whoa2 ActiveSheet.PasteSpecial Format:="Text" Exit Sub Whoa1: Resume Pastetext Whoa2: '<~~ If both Paste method fails then show message. Ex: Image in Clipboard MsgBox err.Description End Sub 

还有一种方法可以确定剪贴板数据types，然后相应地粘贴。