用VBA帮助拷贝单元格内容到剪切板

kelvinlau

本人的要求可能比较特殊，就是将附件B3单元格的内容复制到剪切板（注意此单元格内容包括换行符），如此我可以把此信息粘贴到微信电脑版里（以文本形式粘贴，而不是图片），也要是显示两行。如果自己手动操作的话，我知道，通过先复制，再选择性粘贴到另一个单元格，然后选中此单元格，在编辑状态下拷贝即可。但由于现实需要，我必须以最快的速度完成此过程，所以想通过VBA，然后设置按钮，一键实现复制到剪切板的目的，而且在微信电脑版里粘贴的时候是现实两行文本的。跪求哪位大神帮忙，多谢。

ghostjiao

1. Sub demo()
   
2.     Dim tt
   
3.     tt = ActiveCell.Value
   
4.     With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
5.         .SetText tt
   
6.         .PutInClipboard
   
7.     End With
   
8. End Sub

复制代码

kelvinlau

这位朋友太给力了，非常好，多谢！！！