使用ctrl+shift+c复制单元格(不含回车)
工作中尝尝需要从excel单元格中复制, 但是总是带一个回车, 有时候每次都需要去删除一下, 很麻烦, 写一个vb宏脚本, 然后设置快捷键, 完美解决
创建宏
复制下面命令
Sub SC()
Let onlyOne = 0
Dim c As Range
Dim preC As Range
For Each c In Selection
onlyOne = onlyOne + 1
Set preC = c
Next c
If onlyOne = 1 Then
Dim objData As DataObject
Set objData = New DataObject
objData.SetText preC.Value, 1
objData.PutInClipboard
End If
End Sub
设置快捷键
直接运行
注意新版的excel默认关闭宏, 需要单独保存为xlsm的宏文件来保存宏命令, 否则宏命令会丢失同时快捷键不能使用; 另外DataObject需要引入以来才可以使用, 需要自己去目录下引入: C:\Windows\System32\FM20.DLL