EXCEL VBA代码实现文字复制粘贴到QQ等其他窗口

在工作中，有时需要大量复制记事本粘贴，逐个复制效率低下。下面实例通过Excel VBA，从Excel粘贴文字到QQ或者其他聊天窗口。
详细代码：Public Sub 文本剪贴板() '  alt+f11打开VBA编辑器，插入模块，粘贴本代码 '’在alt+F8宏设置ctrl+e做为快捷键,选中区域时,按下ctrl+e即完成文本复制 '  结果以行列式文本存入剪贴板,列之间用空格分隔 '  或打开本工作表 在其他表中使用ctrl+e 也可以达到文本复制的效果  Dim tt, a, i&, j&  On Error Resume Next  a = Selection.Value  For i = 1 To UBound(a)    For j = 1 To UBound(a, 2)      tt = tt & " " & a(i, j)  '列之间用空格分隔    Next    tt = tt & vbNewLine  '换行  Next  With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")  '数据放入剪贴板    .SetText tt    .PutInClipboard  End WithEnd Sub
效果图

1501318003446971.gif