excel 如何把选择性粘贴（无格式文本）设置为快捷键？

1、使用excel自带的快捷键

Ctrl+Alt+V，V

第一次操作调出选择性粘贴，第二个操作选择文本。

2、运用VBA设置快捷键。

复制如下代码到模块中。

而后回到sheet页面进行如下设置：

开发工具>宏>选中该宏>选项>设定快捷键，输入I，确定，运行即可（运行错误可忽略）。

设置的快捷键为Ctrl+Shift+I。也可选择其它快捷键，但是不要与常用快捷键产生冲突。

打开文件后，设置一次方可。快捷键同样适用于本台电脑的其它excel文件。

但本文件关闭后，快捷键失效。再次打开方才有效（无需再次设置）。

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

也可使用excel事件省略之前各项设置。
代码1：放置在workbook事件代码中。
Private Sub Workbook_Open()
Application.OnKey "+^I", "HotKey"
End Sub
代码2：放在在模块中。
Sub HotKey()
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
本excel打开后，快捷键生效，关闭后失效。

右击工具栏》自定义》命令》（C），类别下面选择编辑，右边（命令）下面找到粘贴数值（有个带12字的图标），将它拖到工具栏当地方（如粘贴图标旁边），关闭自定义对话框。

按ATL+F11，点击插入 模块 ，将下面的程序复制进去，保存后回到excel界面。然后复制，按CTRL+K

Sub 粘贴为数值()

End Sub
Sub Macro1()
'
' Macro1 Macro
' 宏由 User 录制，时间: 2010/12/21
'
' 快捷键: Ctrl+k
'

With Selection.Interior
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End Sub