今日知识分享excel宏的筛选功能（excel宏导出筛选数据到文本）

今日知识分享excel宏的筛选功能（excel宏导出筛选数据到文本）

在excel里面怎样用宏筛选出一列几个条件的数据

使用自定义筛选就可以了

步骤：

1

选择需要的列

2

设置好筛选

3

选择筛选中的自定义筛选

4

输入多个条件

这样就可以显示符合多个条件的数据了

excel宏命令（条件筛选）

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

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 自动筛选 宏

第一列是 日期 单位名称 联系内容

办法：在第二行，点开始选项中的“筛选”，第二行出现一个向下的“箭头标志”，

下一步：点B列的“箭头标志”，把需要的“公司3”的框前打勾，就会自动筛选出 所有公司3的内容

请参考

怎么利用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宏的筛选功能（excel宏导出筛选数据到文本）