用VBA做自动更新高级筛选 我做个高级筛选但不能自动更新，想请教各位如何用VBA做。

excel怎么用vba进行高级筛选？~

Sub 筛选() Set d = CreateObject("Scripting.Dictionary") For i = 1 To [a65536].End(3).Row If Cells(i, 1) = [b1] Then Set d(Cells(i, 1)) = Cells(i, 1) End If Next t = d.items [d1].Resize(d.Count, 1) = Application.Transpose(t)End Sub

因为有i=i-1，你这个Sub里面的For循环应该死循环了。
所以应该是由於死循环，耗用大量资源，以致Excel不会更新Cell上的数字。

而你在sub内加上Doevents，所以感觉不到，以为还有响应。

从以下的示例中，以及FILTE这个对象的属性来看，无法遍历筛选列出的项目。我觉的可以换个方法，例如生成透视表，再遍历透视表中的值，然后再删除透视表。

Dim w As Worksheet
Dim filterArray()
Dim currentFiltRange As String

Sub ChangeFilters()

Set w = Worksheets("Crew")
With w.AutoFilter
currentFiltRange = .Range.Address
With .Filters
ReDim filterArray(1 To .Count, 1 To 3)
For f = 1 To .Count
With .Item(f)
If .On Then
filterArray(f, 1) = .Criteria1
If .Operator Then
filterArray(f, 2) = .Operator
filterArray(f, 3) = .Criteria2
End If
End If
End With
Next
End With
End With

w.AutoFilterMode = False
w.Range("A1").AutoFilter field:=1, Criteria1:="S"

End Sub

---

南江县13714264582： excel里用如何函数实现自动筛选的功能 - ？
运冰艾汀： 用高级筛选可以达到你的目的 条件区域你设置一下,上一行为1表的标题,下一行是要查询的数据两行组成一个条件区域 要做到输入要查询的内容就自动出结果,用VBA中的单元格事件来处理即可,你可把文件发sm100e@qq.com 已经给你处理好了,发你的邮箱中了.请查收.

南江县13714264582： Excel VBA根据指定单元格自动筛选数据? - ？
运冰艾汀： 复制到vba窗口,即可 Sub 筛选 Dim X X = Range(＂A65536＂).End(xlUp).Row y = [E1] Range(＂A1:C＂ & X).Select Selection.AutoFilter ActiveSheet.Range(＂$A$1:$C$＂ & X).AutoFilter Field:=1, Criteria1:=y [A1].Select End Sub Private Sub ...

南江县13714264582： EXCEL,VBA如何自动筛选 - ？
运冰艾汀： 如果这一列的每个数据都要筛选,将这个值设为变量,将筛选的值换成这个变量即可.

南江县13714264582： excel高级筛选VBA - ？
运冰艾汀： worksheet_change事件中输入以下代码: Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range(＂C5＂)) Is Nothing And Target.Count = 1 And Target <> ＂＂ Then Rows.Hidden = FalseFor i = 8 To ...

南江县13714264582： excel vba如何写一个不确定的高级筛选? - ？
运冰艾汀： Sub 查找() On Error Resume Next Dim icount%, arr, I%, SR, arr1(), n%, s$ Range(＂L2:Q1000＂).ClearContents icount = Range(＂A65536＂).End(xlUp).Row s = InputBox(＂请输入要查询的关键字:＂ & Chr(10) & ＂工号/姓名/年龄/籍贯/身...

南江县13714264582： 如何使用vba将excel自动筛选并对筛选的数据列求和?？
运冰艾汀： 筛选后求和的公式是 =SUBTOTAL(9,B2:B99) 对AB列进行筛选,筛选A列的“a”,并求和的代码如下: Sub xxx() ActiveSheet.Range(＂$A$1:$B$999＂).AutoFilter Field:=1, Criteria1:=＂a＂ Dim xRng As Range Set xRng = Range(＂B2:B999＂) MsgBox WorksheetFunction.Subtotal(9, xRng) End Sub

南江县13714264582： vba 中的自动筛选 - ？
运冰艾汀： Selection.AutoFilterSelection.AutoFilter两遍就可以了

南江县13714264582： 如何在EXCEL中,用VBA实现数据表格的自动更新(含有超链接的表格)? - ？
运冰艾汀： Sub ls() ActiveWorkbook.PrecisionAsDisplayed = False Calculate End Sub

南江县13714264582： vba autofilter criteria1 筛选 - ？
运冰艾汀： 1 2 3 4 5 6 7 8 9 10 11 12Subtest() WithRange(＂A1＂).CurrentRegionIfNot.Worksheet.AutoFilterMode Then'判断是否已经打开自动筛选,.AutoFilter '没有自动筛选,则自动筛选EndIf.AutoFilter Field:=5, Criteria1:=＂FALSE＂'筛选出False...

南江县13714264582： Excel VBA 多条件自动筛选,或怎么表示 - ？
运冰艾汀： 方法: 1.制作数据表和查询条件表,查询条件表的“*”是通配符; 2.数据——筛选——高级筛选; 3.按查找条件编辑高级查询对话框; 4.检验查询结果.