修改粘贴只允许值，而不必右键单击

我正在寻找一个macros，这将帮助我更快地复制粘贴材料。 我经常发现自己正在复制一个文本或一个数字（ Ctrl + C ），当我想要将它粘贴到Excel中的单元格时，我需要右键单击并select过去的值。

我会尽力写一个我后来发生的故障的例子：

Sub PasteValuesOrText() Dim DataObj As New MSForms.DataObject DataObj.GetFromClipboard myString = DataObj.GetValue ActiveCell.Value = myString End Sub 

Answer 1

这将至less让你双击复制，并开始你编码。

 Private Sub WorkSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Target.Copy Cancel = True End Sub 

Answer 2

我认为你正在寻找一些东西来粘贴特别没有很多额外的点击。 下面的macros将采取已经复制的东西，只需将值粘贴到所选单元格中。

有一点需要注意的是，通过这样做，你将失去撤消能力。

 Sub Paste_Values() Selection.PasteSpecial _ Paste:=xlPasteValues, _ Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=False Application.CutCopyMode = False End Sub