在工作中，有时需要大量复制记事本粘贴，逐个复制效率低下。
下面实例通过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 With
End Sub
效果图
