excel，如何通过VBA代码删除筛选出来的行，但保留第一行？

Question

如题所述

Answer 1

activesheet.range("a2:a"& activesheet.usedrange.rows.count).entirerow.specialcells(xlvisible).delete本回答被提问者采纳

Answer 2

楼主的要求跟我类似（我想将筛选出来的行及其后的三行一起删掉，筛选条件是宏录制的），我的方法是集成了多位大神的结果，解决了我的问题。代码如下：
‘筛选条件，可使用宏录制，然后修改
j=rows("2:2000").specialcells(12).row ‘获取筛选的行号，“2：2000”是筛选的范围，根据需要修改
Rows(j & ":" & (j+3)).Select ’选中筛选的行及其后3行，根据需要修改
’选中后的操作，可使用宏录制，然后修改
如果想进行多次删除操作，再加一个循环语句即可。