excel 如何把选择性粘贴(无格式文本)设置为快捷键?

2024-10-31 04:18:58
推荐回答(3个)
回答(1):

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打开后,快捷键生效,关闭后失效。

回答(2):

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

回答(3):

按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