如何解决用于选择和删除某些列中带有空白的过滤数据行的 Visual Basic 代码
这是我的代码,但行 Rows("4:858").Select
不能很好地工作,因为过滤的行总是变化的。我想我需要使用 SpecialCells
(我有一个标题),但我想确保只删除过滤的行,我只是在学习 Visual Basic。我使用 CurrentRegion
过滤数据。
' Filters for location = blank or #N/A
ActiveSheet.Range("$A$3").CurrentRegion.AutoFilter Field:=5,Criteria1:="=#N/A",_
Operator:=xlOr,Criteria2:="="
' Selects all rows and deletes; NEED TO REPLACE THIS WITH MORE FLEXIBLE CODE
Rows("4:858").Select
Selection.Delete Shift:=xlUp
' Unfilters Location
Range("E2").Select
ActiveSheet.Range("$A$3").CurrentRegion.AutoFilter Field:=5
对此代码的任何帮助,甚至对其进行简化都将不胜感激。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。