在工作中，有时需要大量复制记事本粘贴，逐个复制效率低下。

下面实例通过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

效果图