在VBA中从自动筛选器中删除多行的性能

link管理

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

相关文章推荐

留胡子的热带鱼 · MongoDB 条件操作符 | W3C教程· 2 月前 ·

精明的开心果 · 科技部致信祝贺屠呦呦荣获诺贝尔奖 ...· 3 月前 ·

玩滑板的荔枝 · is NULL和= NULL，is not ...· 5 月前 ·

微笑的伏特加 · 破事精英2 4k ...· 6 月前 ·

眼睛小的蚂蚁 · 灵境行者灵境行者第12章 ...· 6 月前 ·

腾讯云

备案控制台

开发者社区

TVP

文章/答案/技术大牛

写文章

在VBA中从自动筛选器中删除多行的性能

 rCnt = Cells(Rows.Count, "B").End(xlUp).Row
 ActiveSheet.Range("$B$1:$J" & rCnt).AutoFilter Field:=5, _
      Criteria1:=Application.Transpose(arrCodes), Operator:=xlFilterValues
 Rows("2:" & rCnt).Delete Shift:=xlUp

Criteria1:=Application.Transpose(<>arrCodes)

Public Sub DeleteRows()
  Dim deleteThis As Range
  For i = 2 To 11
    If Sheet1.Cells(i, 1).Value Mod 2 = 1 Then
      If deleteThis Is Nothing Then
        Set deleteThis = Sheet1.Rows(i)
        Set deleteThis = Union(deleteThis, Sheet1.Rows(i))

推荐文章

留胡子的热带鱼 · MongoDB 条件操作符 | W3C教程

2 月前

精明的开心果 · 科技部致信祝贺屠呦呦荣获诺贝尔奖 -中华人民共和国科学技术部

3 月前

玩滑板的荔枝 · is NULL和= NULL，is not NULL和!= NULL有什么区别 – PingCode

5 月前

微笑的伏特加 · 破事精英2 4k 完结(31.0GB)-百度网盘资源下载-毕方铺

6 月前

眼睛小的蚂蚁 · 灵境行者灵境行者第12章开主线任务-三优小说_纯手打大神小说最新章节无错阅读网站

6 月前

在VBA中从自动筛选器中删除多行的性能

2 个回答