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数据
写一段excel导入到datagrid控件里的代码，然后在窗体里新建一个TEXT得控件
用SQL的SELECT AVG(年龄) AS xxxx FROM XXXX表 把SELECT求出的平均值赋给TEXT，然后就可以显示给你看了
如何用VBA 筛选数据并生成新的excel表
假设数据在A到M列，从第2行开始（表头为第2行），代码如下：
Sub
test()
ActiveSheet.Range("A2:M999").AutoFilter
Field:=2,
Criteria1:="投资"
Range("A2:M999").Copy
Sheets.Add
After:=Sheets(Sheets.Count)
Range("A2").Select
ActiveSheet.Paste
End
Sub
求一段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运行
VB调用EXCEL筛选
自动筛选只能有两个条件，不过可以允许多个值筛选，采用下面的方法就可以了。
Worksheets("Sheet1").Range("A1").AutoFilter_
Field:=7, _
Criteria1:=Array( "a","b","c"), Operator:=xlFilterValues
怎么通过VB编程select语句来筛选Excel表格中的数据
核心步骤：1，讲两张数据表放进同一个excel文件内，可以在同一个sheet或者不同sheet。选择对应的数据区域，右键，“定义名称”。说明：这里，数据的第一行是列名，定义的名字，是表名。2、选择“数据”——“其他来源”——“来自Microsoft
Query”。3、选择“Excel
Files*
“那一项，并且把对话框下面的“使用“查询向导”创建/编辑查询”勾去掉。4、在弹出的对话框中将刚才我们命名的那两个表都添加进去。5、点击上边的
SQL
按钮，开始写你的SQL语句吧。确定后下边可以看到结果。6、如果你想导出数据，点击“文件”——“将数据返回Microsoft
Excel”，建议选择导入到新表中，OK