Sub mycopy1()
'
' 宏1 宏
'
' 快捷键: Ctrl+c
' 这个拷贝不带断行 ，需要创建一个CTRL + C 快捷键的宏，需要创建一个窗体再删掉（可以实现引用Microsoft Form) excel
'
'
' Sub workbook_open()
' Application.OnKey "^{c}", "ThisWorkbook.mycopy1"
' End Sub
' 放置ThieWorkbook中，重新打开excel文件可行 offce2016
Selection.Copy
'Application.CutCopyMode = False
Dim MyData As New DataObject
Dim str
str = Application.ActiveCell.Text
'MsgBox (Len(str))
MyData.SetText str
MyData.PutInClipboard
MyData.SetText ""
Application.StatusBar = Space(10) & "已经拷贝: " & left(str, 40) & Space(10) & Now()
End Sub
Sub workbook_open()
Application.OnKey "^{c}", "ThisWorkbook.mycopy1"
End Sub
