内容导航：


一、怎么利用EXCEl的宏进行筛选


在你数据当前的左下角sheet 鼠标右键 点击最后一个 查看代码 把下面的代码复制到里面
使用的时候 03版是 菜单 工具----宏---宏---找到test的宏执行 即可
Sub test()
Application.ScreenUpdating = False
Dim rng As Range
Dim r1, i As Long
Dim findvalue As Range
r1 = ActiveSheet.Range("B65536").End(xlUp).Row
i = 1
For Each rng In ActiveSheet.Range("B1:B" & r1)
Set findvalue = ActiveSheet.Columns(1).Find(what:=rng.Value)
If Not findvalue Is Nothing Then
Cells(i, 3).Value = rng.Value
i = i + 1
End If
Next
Application.ScreenUpdating = True
End Sub


二、excel怎么用宏确定固定筛选内容


Sub Test()
ActiveSheet.Range("B:B").AutoFilter Field:=2, _ '2表示日期列在筛选区域第2列，改成你实际第几列
Criteria1:=Array("7:00-12:30", "7:00-15:00", "7:00-17:00", "8:00-15:00", "8:00-18:00", "9:00-18:00"), _ '如果还有更多时间段自行加入
Operator:=xlFilterValues
End Sub
-------------------------------------------------------------
你复制宏时，把'连同后面的说明删掉，要不会提示无效字符


三、excel如何颜色筛选


在如图126-1所示的表格中，部分日期数据使用了单元格背景色，部分任务数据设置了字体颜色，下面以此表格为例，介绍如何按照颜色排序。

图126-1 使用了单元格背景色和字体颜色的表格

分别在C1、D1中输入文字Color1、Color2.

选定C2，按组合键，在“定义名称”对话框的“在当前工作簿中的名称”文本框中输入Color1，然后在引用位置输入：

=GET.CELL(63,’06’!A2)+RAND()*0

单击“确定”按钮关闭“定义名称”对话框。

选定D2，按组合键，在“定义名称”对话框的“在当前工作簿中的名称”文本框中输入Color2，然后在引用位置输入：

=GET.CELL(24,’06’!B2)+RAND()*0

如图126-2所示。单击“确定”按钮关闭“定义名称”对话框。

图126-2 使用宏表函数求颜色值

在C2中输入“=Color1”，在D2中输入“=Color2”。

选定C2∶D2，往下拖曳到C17∶D17，完成对公式的复制。

单击C2，单击工具栏上的“降序排列”按钮，就能够以日期列的单元格背景色来排序，结果如图126-3所示。

图126-3 按颜色值排序表格数据

如果需要以任务列的字体颜色排序，则应以D列为标准进行排序。

在本例中，使用了Excel宏表函数在C列和D列分别求出A列每个单元格的背景色对应的值和B列每个单元格的字体颜色对应的值，从而使按颜色排序成为可能。

在使用Excel的筛选功能时，也可以按照单元格的背景色或字体颜色来筛选数据，原理相同