求助大神，用VBA代码将未被筛选出的数据行删除！

ykcbf1100

复制筛选后数据

1. Sub ykcbf()   '//2024.12.22   
   
2.     Sheets(2).UsedRange.ClearContents
   
3.     With Sheets(1)
   
4.         On Error Resume Next ' 如果没有筛选，则跳过错误
   
5.         Set rngFiltered = Intersect(.UsedRange, .[a:f])
   
6.         On Error GoTo 0
   
7.     End With
   
8.     rngFiltered.SpecialCells(xlCellTypeVisible).Copy Sheets(2).[a1]
   
9. End Sub
   

复制代码

z865593849

先复制，再删除行

xlj310

ykcbf1100 发表于 2024-12-22 08:48
复制筛选后数据

直接Copy 就行。根本用不着定位可见单元格。

ykcbf1100

xlj310 发表于 2024-12-22 11:12
直接Copy 就行。根本用不着定位可见单元格。

对的。。。

taller

lhteee 发表于 2024-12-21 15:13
谢谢！需要多次执行才能得到想要的效果，并且最后还有些行无法删除。谢谢！

使用1楼示例文件测试代码没有任何问题

lhteee

ykcbf1100 发表于 2024-12-22 08:47
不用那么麻烦，数据直接复制过去就行。

关键代码就一句。

是，这种思路更好，谢谢！！！

lhteee

lhteee 发表于 2024-12-21 21:00
感谢各位大神，最终修改为以下代码：

作成加载宏了，谢谢！

这个是比较理想的代码！