[已解决]如何用宏实现数据的自动筛选

cys888

ORh8rT2v.rar (4.12 KB, 下载次数: 91)

2009-12-3 10:15 上传

点击文件名下载附件
如何用宏实现数据的自动筛选
如何用代码实现：自动把A列等于A1(6),B列等于B1(4),C列等于C1(2)…的数值筛选掉（去掉）

最佳答案

月排行榜 / 总排行榜

wayy

2009-12-3 10:24

精简点的：

Sub wayy()
Dim i As Integer
For i = 1 To 10
  Selection.autofilter Field:=i, Criteria1:="<>" & Cells(1, i), Operator:=xlAnd
Next
End Sub

跳转到最佳答案楼层

wayy

Sub zdsx()
    Selection.autofilter Field:=1, Criteria1:="<>" & [a1], Operator:=xlAnd
    Selection.autofilter Field:=2, Criteria1:="<>" & [b1], Operator:=xlAnd
    Selection.autofilter Field:=3, Criteria1:="<>" & [c1], Operator:=xlAnd
    Selection.autofilter Field:=4, Criteria1:="<>" & [d1], Operator:=xlAnd
    Selection.autofilter Field:=5, Criteria1:="<>" & [e1], Operator:=xlAnd
    Selection.autofilter Field:=6, Criteria1:="<>" & [f1], Operator:=xlAnd
    Selection.autofilter Field:=7, Criteria1:="<>" & [g1], Operator:=xlAnd
    Selection.autofilter Field:=8, Criteria1:="<>" & [h1], Operator:=xlAnd
    Selection.autofilter Field:=9, Criteria1:="<>" & [i1], Operator:=xlAnd
    Selection.autofilter Field:=10, Criteria1:="<>" & [j1], Operator:=xlAnd
End Sub
自己录个宏也可以修改得出来．

wayy

精简点的：

Sub wayy()
Dim i As Integer
For i = 1 To 10
  Selection.autofilter Field:=i, Criteria1:="<>" & Cells(1, i), Operator:=xlAnd
Next
End Sub

cys888

非常谢谢楼上，精简的正是我想要的，还有一个问题请教一下：

如果有不连续的几列怎么办呢？比如：For i = 1 To 10，另外一组是For i = 22 To 35