条件筛选代码（条件筛选代码怎么设置）

本篇文章给大家谈谈条件筛选代码，以及条件筛选代码怎么设置对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、excel多个条件筛选的三种方法
• 2、excel宏命令（条件筛选）
• 3、VB模式条件筛选
• 4、Excel宏多条件筛选复制？
• 5、EXCEL两个条件筛选100万行的VBA代码

excel多个条件筛选的三种方法

excel多个条件筛选是数据分析的常见应用。其中可以使用高级筛选多条件字段设置、函数公式、VBA来实现多条件筛选。下面我就用以上三种 方法 来教你们怎么使用excel多条件筛选功能。

excel多个条件筛选的方法

excel多个条件筛选的方法一:用高级筛选多条件完成多个条件筛选

下图是有两张工作表，“表一”是数据源，“表二”如下图。案例要求：筛选“表一”中性别为“女”或者工资大于6000的记录，将筛选结果放在“表二”中。

下面是具体的操作步骤：

1.首先激活“表二”，此表为当前活动工作表。

2.建立条件区域：在空白地方，比如E1：F3单元格输入条件。

提示：因为筛选条件是“或”的关系，只要性别为“女”或者工资大于6000都可以，因此E2放置一个条件，F3放置另外一个条件。如果将F3的条件放在F2，两个条件就是并列关系，只有同时满足两个条件才可以。

3.单击“数据”——“排序和筛选”——“高级”，打开“高级筛选”对话框，按照如下图设置，单击“确定”，即可完成。

excel多个条件筛选的方法二: 使用函数公式实现excel多个条件筛选

“表二”工作表的A2单元格输入公式：=INDEX(表一!B:B,SMALL(IF(((表一!$C$2:$C$16="女")+(表一!$G$2:$G$166000)),ROW($2:$16),4^8),ROW(A1)))""，按ctrl+shfit+enter三键结束，然后下来，直到出现空白为止。

至于具体公式解释，可以参考 文章 ： Excel 用函数公式筛选数据的方法

excel多个条件筛选的方法三: 使用VBA代码实现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用if函数多个条件筛选的教程”

excel宏命令（条件筛选）

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

VB模式条件筛选

LZ，这是我在新浪爱问的一个答复，可参考下。

SQL = "select Name from b1 Where Name Like'" Text1 "%' order by name"

以上是实现模糊查询的SQL语句,是从表名b1查询Name字段的.

在VB6中可用ADO及DATAGRID控件，用如下语句可更灵活：

Private Sub Form_Load()

Text1 = ""

With Adodc1

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\ b;Persist Security Info=False"

Adodc1.RecordSource = "select name from b1 order by name"

Adodc1.Refresh

DataGrid1.Refresh

End With

End Sub

Private Sub Text1_Change()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\ b;Persist Security Info=False"

Adodc1.RecordSource = "select name from b1 where name ='" Text1 "' order by name"

Adodc1.Refresh'对查询更新

DataGrid1.Refresh

End Sub

本人的语句是一个动态查询过程。供提问者参考。

数据库用VB6编程语言，对新手而言，如何用好ADODC控件和DATAGRID控件相当重要。上面的原代码基于ADODC控件和DATAGRID控件的灵活应用。具体做法：

新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。

然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。

SQL查询语言主要结构为：

Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]

查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。

SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT * FROM TabelName"作调试，无问题，用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1孔件，再添加ADODC1控件再添其他内容。

以上不知是否说清楚？SQL查询语言多写多用就会熟练，以上供提问者参考。

另请参考

Excel宏多条件筛选复制？

Sub aa()

Dim i, n

For i = 4 To Range("b6536").End(xlUp).Row

x = --Left(Cells(i, "b"), 2)

If x = 21 And Cells(i, "O") 10 Then

y = Sheets(2).Range("A65536").End(xlUp).Row

Sheets(2).Cells(y + 1, "A") = Cells(i, "g")

End If

Next

End Sub

复制到Sheet3的vba窗口

将sheet3 B列 是21 开头，且 O列10 ，对应G列数据，复制到SHEET2

EXCEL两个条件筛选100万行的VBA代码

Sub 条件筛选()

Dim i, j, k%

Dim arr As Variant

Dim arr1(1 To 1000000, 1 To 2)  '创建一百万的容器

arr = [a2:d1000000]             '计算范围

For i = 1 To UBound(arr)

If arr(i, 1)  "" Then

If arr(i, 1) = Cells(1, "e") And arr(i, 2) = Cells(1, "f") Then

k = k + 1

arr1(k, 1) = arr(i, 3)

arr1(k, 2) = arr(i, 4)

End If

End If

Next i

Cells(2, "h").Resize(UBound(arr1), 2) = arr1   '输出到h2单元格

End Sub

代码自定义部分：

1、修改计算范围（代码第4、5行）  To 1000000、   [a2:d1000000]

2、修改输出位置（代码第15行）  Cells(2, "h")

条件筛选代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于条件筛选代码怎么设置、条件筛选代码的信息别忘了在本站进行查找喔。