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

2016年10月27日13:00:08 评论 5,012 views
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页

问题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

动图演示如下

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

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

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

  • 郑广学老师微信号
  • EXCEL880B
  • weinxin
  • 我的微信公众号
  • EXCEL880
  • weinxin
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页