求助，会vba代码看下！！

我录制了个宏，但是不会引用单元格自动进行筛选，比如我在E2,E3输入值，然后运行宏，自动筛选后结果复制到表2，有高手吗帮一下啊，谢谢

！

Sub 宏1()
'
' 宏1 宏
''
Columns("A:A").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$20").AutoFilter Field:=1, Criteria1:=Array("1", _
"10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "2", "3", "4", "5", "7", "9"), _
Operator:=xlFilterValues
Range("A1:A20").Select
Selection.Copy
Sheets("Sheet2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

在sheet1的c2输入公式 =isna(match(a2,e:e,))
然后运行下面的宏
Sub test()
Sheets("sheet2").Select
With Sheets("sheet1")
.Range("a:a").AdvancedFilter xlFilterCopy, .Range("c1:c2"), Range("a1")
End With
End Sub

Sub 筛选()
ActiveSheet.Range("$A$1:$A$20").AutoFilter Field:=3, Criteria1:="<>" & Range("E2").Value, Operator:=xlAnd, Criteria2:="<>" & Range("E3").Value
End Sub

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

5回复贴，共1页

<<返回excel吧

分享到:

日	一	二	三	四	五	六