用宏命令合并了一列单元格，生成的一段文字， 显示在一个单元格里
但是复制出来单元格，需要进入剪贴板点一下，然后才能在微信里粘贴出文字， 或者去TXT文档里粘贴一次，太麻烦了


有没有办法在宏里面执行的复制，直接生成可粘贴的文字么。

用vba写一个可以操作剪贴板

直接双击单元格，编辑状态下复制你要的文本，到你需要的地方粘贴。

不行啊 ，双击以后，还是要鼠标去圈选啊 ，要用代码实现，怎么能把文字复制走才是关键。
我现在代码复制出来，粘贴到微信里是图片，需要从剪贴板点一下，或者TXT文档转换一次，有些麻烦。

ctrl+c
然后打开excel粘贴板，右键粘贴
再粘贴到微信

Google所得，没测试过。

Sub CopyText(Text As String)
'VBA Macro using late binding to copy text to clipboard.
'By Justin Kay, 8/15/2014
Dim MSForms_DataObject As Object
Set MSForms_DataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
MSForms_DataObject.SetText Text
MSForms_DataObject.PutInClipboard
Set MSForms_DataObject = Nothing
End Sub
Usage:

Sub CopySelection()
CopyText Selection.Text
End Sub

先粘贴到记事本在全选复制粘贴到微信

哈哈哈 搞定 thkkk，， 垃圾百度翻透也没找到，忒难用。

马克 iOS fly ~

学习了 iOS fly ~

宏命令可以直接引用单元格的值啊，比如Range("A1").value

真地么 ，那我试试这个方法。


不会用，纯小白，不写全了，根本不会引用。