EXCEL中用VBA代码实现文字复制方便粘贴到QQ等其他窗口 图文

问题1：听说好像可以用VBA，点一下，复制的表格内容粘贴到QQ就直接成文字了，求前辈指点，每天客服大量的复制记事本粘贴，太耽误时间了

问题2：想复制A6单元格的文字到QQ。如果直接复制粘贴的话，复制到QQ后会变成图片，

针对网友问题，我用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

动图演示如下

该文章由WP-AutoPost插件自动采集发布

原文地址:http://www.toutiao.com/i6342832139741954561/