复制选中筛选出的可见单元格到剪贴板的宏怎么写呢？

o0star0o

1. Public Sub 文本剪贴板()
   
2. '在alt+F8宏设置ctrl+e做为快捷键,选中区域时,按下ctrl+e即完成文本复制
   
3. '结果以行列式文本存入剪贴板,列之间用空格分隔
   
4. '或打开本工作表 在其他表中使用ctrl+e 也可以达到文本复制的效果
   
5.     Dim tt, a, i&, j&
   
6.     On Error Resume Next
   
7.     a = Selection.Value
   
8.     For i = 1 To UBound(a)
   
9.         For j = 1 To UBound(a, 2)
   
10.             tt = tt & " " & a(i, j) '列之间用空格分隔
    
11.         Next
    
12.         tt = tt & vbNewLine '换行
    
13.     Next
    
14.     With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") '数据放入剪贴板
    
15.             .SetText tt
    
16.             .PutInClipboard
    
17.    End With
    
18. End Sub

复制代码

这是之前用的宏，但是之前复制选中的那一行的数据，需要多行复制怎么实现呢？就是筛选出的数据，复制框选出的数据以文本形式放到剪贴板，如下图这样：

苏小亓

EXCEL必备工具箱有这个功能，免费的。百度搜索EXCEL必备工具箱第一个就是。

o0star0o

我这边电脑运行不了那个插件，而且我表格数据比较大，经常开关，插件加上对速度有影响，求代码

o0star0o

顶下，等大神出现

o0star0o

继续顶下，等大神出现帮忙~~~~呜呜~