关于按要求筛选后复制粘贴

sampsonpon

按要求筛选后复制粘贴内容，具体如下

ykcbf1100

参与一下。。。

ykcbf1100

复制筛选内容

1. Sub ykcbf()   '//2024.7.23
   
2.     With Sheets("数据源")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         Set rng = .[a3].Resize(r, 7)
   
5.     End With
   
6.     With Sheets("Txt")
   
7.         .[a2:h1000].Clear
   
8.         rng.Copy .[b2]
   
9.         r = .Cells(Rows.Count, 2).End(3).Row
   
10.         .[a2].Resize(r - 1, 8).Borders.LineStyle = 1
    
11.     End With
    
12.     MsgBox "OK！"
    
13. End Sub
    

复制代码

sampsonpon

ykcbf1100 发表于 2024-7-23 21:44
参与一下。。。

原来可以这么简单，几行代码就能搞定。谢谢您！

sampsonpon

ykcbf1100 发表于 2024-7-23 21:44
参与一下。。。

好像有点问题：当数据源把它手动恢复到全选时，复制粘贴的也是全部数据

lizhipei78

非常简单的题目

lizhipei78

筛选复制.rar (21.08 KB, 下载次数: 4)

2024-7-23 22:56 上传

点击文件名下载附件

sampsonpon

lizhipei78 发表于 2024-7-23 22:55
非常简单的题目

很好！但想把删除筛选状态改为仍有筛选状态只是全选而已

lizhipei78

sampsonpon 发表于 2024-7-23 23:26
很好！但想把删除筛选状态改为仍有筛选状态只是全选而已

把里面的筛选模式那一句代码删除即可

ykcbf1100

sampsonpon 发表于 2024-7-23 22:02
好像有点问题：当数据源把它手动恢复到全选时，复制粘贴的也是全部数据

你求助的前提就是筛选状态下的复制。你都恢复到全选了，那复制的肯定是全部数据了。你不会是想按颜色来复制吧。