关于筛选后删除可见行代码分析。

lichaobin · 发表于 2005-11-17 08:48

如下：

Selection.AutoFilter Field:=1, Criteria1:="=#N/A", Operator:=xlOr, _ Criteria2:="=合计" Rows("1340:1519").Select Selection.Delete Shift:=xlUp

我用宏录制筛选后，想删除可见清单中的行。

但宏却以Rows("1340:1519").Select为选择删除行，如果数据有变，那宏只会删Rows("1340:1519").Select中的行吗？还是筛选清单中等于那两个条件的所有行呢？

想弄明白，谢谢了。

Long_III · 发表于 2005-11-17 09:58

Sub hjs() Dim rng As Range Dim irow% Application.ScreenUpdating = False '关闭屏幕更新 With ActiveSheet If .AutoFilterMode Then .AutoFilterMode = False '工作表里有自动筛选则取消 irow = [a65536].End(xlUp).Row 'a列的最后一非空行 Range("a1:b" & irow).AutoFilter Field:=1, Criteria1:="=N/A", Operator:=xlOr, Criteria2:="=合计" '筛选 On Error Resume Next '对于定位，遇到找不到可见单元格的时候会出错，这里忽略错误 Set rng = Range("a2:b" & irow).SpecialCells(xlCellTypeVisible) '定位可见单元格 If Not rng Is Nothing Then rng.EntireRow.Delete '如果可见单元格存在则删除对应的行 If .AutoFilterMode Then .AutoFilterMode = False '工作表里有自动筛选则取消 End With End Sub

qwi1RGHV.rar (6.31 KB, 下载次数: 380)

lichaobin · 发表于 2005-11-17 10:54

顶！谢谢了。以后新手的大家也要注意。

[em02]

windtan · 发表于 2006-10-9 19:29

[em17] qiang

升华派克 · 发表于 2008-8-21 13:02

上午正好在做筛选，这个很有帮助

崖上木兰 · 发表于 2008-8-26 16:28

学习！

anderlue · 发表于 2009-1-13 00:50

找了一个晚上就是这个，谢谢

wangchangping · 发表于 2009-2-24 23:11

很使用的程序,谢谢Long_III指点

百岁新手 · 发表于 2009-9-15 15:27

多谢!学习!

gxl19870625 · 发表于 2013-11-18 17:57

虽然帖子是很久以前的,但还是起到了作用,非常感谢解决问题的人!

		自动登录	找回密码
密码			免费注册

[求助] 关于筛选后删除可见行代码分析。

龙哥这个强

回复 2楼 Long_III 的帖子