今日知识分享excel宏的筛选数据（excel宏提取数据后筛选）

怎么利用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 宏 实现数据筛选

ActiveSheet.Range("$A$7:$AD$3605").AutoFilterField:=6,Criteria1:=_"=F4",Operator:=xlAnd,Criteria2:="="range("F4"),Operator:=xlAnd,Criteria2:="="range("F5")试试

excel宏命令（条件筛选）

开发工具——宏——编辑宏——输入代码如下——运行宏，结果筛选出A列数据中的大于5的数值，如图：