怎么利用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