VBA代码实例---高级筛选

最新推荐文章于 2025-03-10 12:41:01 发布

半个馒头

最新推荐文章于 2025-03-10 12:41:01 发布

阅读量1.9w

点赞数 4

分类专栏： office技能技巧（Excel/PPT/Word/VBA）

本文链接：https://blog.csdn.net/bangemantou/article/details/70035737

版权

首先介绍Excel工作簿的内容进行说明：一个工作簿两个工作表，学生/高级筛选，七个字段；

实现功能：在高级筛选中，做一个快速的条件筛选。

Option Explicit

Sub 高级筛选()

    '判断高级筛选条件区域有多少行
    Dim x As Integer
    x = Sheets("高级筛选").Range("A1").CurrentRegion.Rows.Count
        
    '清空高级筛选的复制到位置的内容,也就是条件区域下面的所有内容
    Sheets("高级筛选").Range("A" & x + 1 & ":G2000").Select
    Selection.Delete
    
    '把高级筛选的内容根据条件区域的条件复制到条件区域下两行后的位置
    Sheets("学生").Range("A1:G1199").AdvancedFilter Action:=xlFilterCopy, Criteria