求一段VBA代码，实现excel中3个工作表筛选相同数据，谢谢
按alt +f11复制代码到代码区
Sub ABC()
For x = 2 To 58
If Sheets("第一个表的名字").Range("F" x) = "" Then Exit Sub
For x1 = 2 To 58
If Sheets("第一个表的名字").Range("F" x) = Sheets("第二个表的名字").Range("F" x1) Then
For x2 = 2 To 58
If Sheets("第三个表的名字").Range("F" x2) = Sheets("第二个表的名字").Range("F" x1) Then
d = d + 1
msgbox "找到第" d "个相同的值为：" Sheets("第一个表的名字").Range("F" x)
GoTo f
End If
Next x2
End If
Next x1
f:
Next x
End Sub
按alt+f8找到abc运行
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")
怎么通过VB编程select语句来筛选Excel表格中的数据
核心步骤：1，讲两张数据表放进同一个excel文件内，可以在同一个sheet或者不同sheet。选择对应的数据区域，右键，“定义名称”。说明：这里，数据的第一行是列名，定义的名字，是表名。2、选择“数据”——“其他来源”——“来自Microsoft
Query”。3、选择“Excel
Files*
“那一项，并且把对话框下面的“使用“查询向导”创建/编辑查询”勾去掉。4、在弹出的对话框中将刚才我们命名的那两个表都添加进去。5、点击上边的
SQL
按钮，开始写你的SQL语句吧。确定后下边可以看到结果。6、如果你想导出数据，点击“文件”——“将数据返回Microsoft
Excel”，建议选择导入到新表中，OK
EXCEL 用VB 筛选条件除某个值以外所有项都选中，要怎么写
你这是数据透视表的操作吧？
ActiveSheet.Range("$A$1:$C$20").AutoFilter Field:=1, Criteria1:="反选的内容", Operator:=xlAnd
数据透视表的操作
ActiveSheet.PivotTables([你的表名]).PivotFields([你的字段名]).PivotFilters.Add Type:= _
xlCaptionDoesNotEqual, Value1:="你的反选内容"
ActiveSheet.Range("$A$1:$C$20").AutoFilter Field:=1, Criteria1:="反选的内容", Operator:=xlAnd
'或者
ActiveSheet.PivotTables([你的表名]).PivotFields([你的字段名]).PivotFilters.Add Type:= _
xlCaptionDoesNotEqual, Value1:="你的反选内容"
VB调用EXCEL筛选
自动筛选只能有两个条件，不过可以允许多个值筛选，采用下面的方法就可以了。
Worksheets("Sheet1").Range("A1").AutoFilter_
Field:=7, _
Criteria1:=Array( "a","b","c"), Operator:=xlFilterValues