问保留前11行的VBA代码
EN

Stack Overflow用户

提问于 2016-12-30 05:27:32

回答 0查看 35关注 0票数 0

我想在每次过滤数据并删除剩余的杂乱数据后保留top11行(top10行和标题)。有人能帮我吗？

sub macro()
.......
.......
........
        LastRow = Cells(Rows.Count, 1).End(xlUp).Row
        Worksheets("Top10").Range("B1").AutoFilter field:=2, Criteria1:="fiter1", VisibleDropDown:=True
        Range("A2:J" & LastRow).Sort Key1:=Range("J2"), Order1:=xlAscending
        Range("A12:J" & LastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        Worksheets("Top10_WO").Range("B1").AutoFilter field:=2, Criteria1:="fiter2", VisibleDropDown:=True
        Range("A2:J" & LastRow).Sort Key1:=Range("J2"), Order1:=xlAscending
        Range("A22:J" & LastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        Worksheets("Top10_WO").Range("B1").AutoFilter field:=2, Criteria1:="fiter3", VisibleDropDown:=True
        Range("A2:J" & LastRow).Sort Key1:=Range("J2"), Order1:=xlAscending
        Range("A32:J" & LastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.....
....
....(upto filter28)

目前我有这个代码，但这并不灵活，因为我的过滤数据范围将是动态的。所以我想要一个保留前10行和标题的代码，并删除每个过滤数据的其余所有行(过滤器1到过滤器28)。

提前感谢

excel

vba

回答

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/41387439

复制

相似问题

问保留前11行的VBA代码
EN

回答

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问保留前11行的VBA代码EN

回答

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问保留前11行的VBA代码
EN