本篇文章给大家谈谈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 自动筛选 宏
第一列是 日期 单位名称 联系内容
办法：在第二行，点开始选项中的“筛选”，第二行出现一个向下的“箭头标志”，
下一步：点B列的“箭头标志”，把需要的“公司3”的框前打勾，就会自动筛选出 所有公司3的内容
请参考
excel 宏 筛选 条件
按ALT+F11，打开VBE编辑器，插入——模块，然后复制粘贴下面的代码，按F5键运行。
Sub 多个条件筛选()
Range("A2:C65536").ClearContents
Sheets("表一").Range("A1:G16").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("E1:F3"), CopyToRange:=Range("表二!A1:C1"), Unique:= _
False
End Sub
思路提示：可以将方法一介绍的高级筛选录制宏操作一遍，然后再适当修改代码得到。
其中：Sheets("表一").Range("A1:G16")：表示查找的范围。
CriteriaRange:=Range("E1:F3")：表示查询条件，包括字段名称。
CopyToRange:=Range("表二!A1:C1")：表示结果的保存范围，包括字段名称。
excel宏命令（条件筛选）
开发工具——宏——编辑宏——输入代码如下——运行宏，结果筛选出A列数据中的大于5的数值，如图：
excel使用宏进行筛选
Sub Macro2()
Columns("K:K").Select
Selection.FormulaR1C1 = "=RC[-3]-RC[-2]"
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="=500", Operator:=xlAnd
Cells.Select
Selection.Copy
Application.Left = 250.75
Application.Top = 89.5
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
End Sub
excel宏组件筛选的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于手机EXCeL怎么筛选、excel宏组件筛选的信息别忘了在本站进行查找喔。