Excel高级筛选列表区域在另一个工作簿中用VBA表示，可以试试添加这一段代码：SetrngDate=Application.Workbooks(工作簿名称).Sheets(工作表名称).Range(单元格区域)注：通过测试可行，但是每次运行前需要将筛选结果全部清空，...

Sub筛选()Setd=CreateObject("Scripting.Dictionary")Fori=1To[a65536].End(3).RowIfCells(i,1)=[b1]ThenSetd(Cells(i,1))=Cells(i,1)EndIfNextt...

Sub查找()OnErrorResumeNextDimicount%,arr,I%,SR,arr1(),n%,s$Range("L2：Q1000").ClearContentsicount=Range("A65536").End(xlUp).Rows=InputBox("请输入要查询的关键字:"&Chr(10)...

Range("G1:L4322").AdvancedFilterAction:=xlFilterCopy,CriteriaRange:=Range("N19:P20"),CopyToRange:=Range("AE1:AJ100")

excel多个条件筛选的方法三:使用VBA代码实现excel多个条件筛选按ALT+F11，打开VBE编辑器，插入——模块，然后复制粘贴下面的代码，按F5键运行。Sub多个条件筛选()Range("A2:C65536").ClearContentsSheets("...

筛选()dimarr,arr1()'定义两个数组dimR&,x&,i&'定义三个整数变量dimtt$'定义一个字符串变量withsheets("sheet1")'指定sheet1工作表tt=inputbox("请输入要查找的字符","请输入")'输入要查找的字符r...

方法：1.制作数据表和查询条件表，查询条件表的“*”是通配符；2.数据——筛选——高级筛选；3.按查找条件编辑高级查询对话框；4.检验查询结果。

Fori=8ToCells(65536,2).End(xlUp).RowIfCells(i,2)<>Cells(5,3)ThenRows(i).Hidden=TrueEndIfNextEndIfEndSub

如果不是经常要用的话可以直接选中后复制粘贴，经常要用的话可以用宏，下面是我在EXCEL2003中用录制宏得到的，把表1中筛选出来的数据复制到表2中。你可以看需要改改。如果是需要高级筛选的话你也可以录制一段宏然后加到...

没图表，那个宏程序要根据你所在列和写筛选语言的。示例：Dimi,a,j,xAsIntegerDimwAsStringSheets("rework").SelectCells.ClearSheets("sun").Selectx=InputBox("请输入你想查询的工号","...