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

相关文章推荐

狂野的黑框眼镜 · 使用psycopg2进行批量更新数据库及批量 ...· 2 年前 ·

有胆有识的沙滩裤 · mysql select numbers ...· 2 年前 ·

不拘小节的水煮鱼 · 請問win10可否一鍵由中文輸入法的全形切換 ...· 2 年前 ·

行走的长颈鹿 · C#操作redis（StackExchang ...· 2 年前 ·

腾讯云

备案控制台

开发者社区

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))

推荐文章

狂野的黑框眼镜 · 使用psycopg2进行批量更新数据库及批量插入 - 简书

2 年前

有胆有识的沙滩裤 · mysql select numbers 1 to 100-掘金

2 年前

不拘小节的水煮鱼 · 請問win10可否一鍵由中文輸入法的全形切換至英文輸入法的半形? - Microsoft 社群

2 年前

行走的长颈鹿 · C#操作redis（StackExchange.Redis）_c# stackexchange.redis_Ancolie的博客-CSDN博客

2 年前

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

2 个回答