1. 打开excle, sheet1右键单击>查看代码>插入>模块

输入代码

Sub CopyText()
'Updated by Nirmal
    Dim xAutoWrapper As Object
    Set xAutoWrapper = New DataObject  'or GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    xAutoWrapper.SetText ActiveCell.Text
    xAutoWrapper.PutInClipboard
End Sub

2. 工具>引用>浏览

在弹出的窗口中点击浏览，输入引用为Windows\system32，输入文件名为FM20.DLL，点击打开，然后点击确定。

3.按ALT + Q退出VBA应用程序。选择>开发工具（没有的话看后面）>宏

设置执行的快捷键，点击确定。关闭。即可完成。

2. 添加开发工具

文件> 选项 > 自定义功能区 > 主选项卡 > 开发人员