今日学习目标

  • 学会自动筛选操作
  • 学会排序操作
  • 掌握高级筛选

知识点

1. 自动筛选

vba
' 开启筛选
Range("A1").AutoFilter
' 按条件筛选
Range("A1").AutoFilter Field:=1, Criteria1:="条件"

2. 排序

vba
Range("A1:C10").Sort _
Key1:=Range("A1"), Order1:=xlAscending

今日代码

vba
Sub 筛选示例()
    Range("A1").AutoFilter Field:=2, Criteria1:="销售部"
End Sub

Sub 排序示例()
    Range("A1:C10").Sort Key1:=Range("C1"), _
        Order1:=xlDescending, Header:=xlYes
End Sub

练习题

  1. 按部门筛选数据
  2. 按销售额降序排序
  3. 清除筛选

参考解答

1. 确保数据有表头，使用Range("A1").AutoFilter Field:=列号, Criteria1:="部门名"。 2. 使用Sort方法，Key1设置为销售额列，Order1:=xlDescending。 3. 使用Range("A1").AutoFilter或取消筛选模式显示所有数据。

由在线工具箱(www.vba.net)整理制作