用户在对如图1所示的数据列
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
进行自动筛选后，往往希望将自动筛选的结果复制到其它地方。ABCDEFG1堆名厂部门厂<职务厂.社保号码厂医保号码「<公积金号码&5马KX.办公室办事员r074472r004607110035349508.Ekk办公室办事员0132703r005S14S1S1S60011王KE力承室协理员119-340r58147100037615：'7I]XK办址室.:外借720209004F3618,100278296^30昊丹门卫'°010391S□05S155r1011263?37张摞井公室.门卫'D0i218ff'005S1ES'100:^90359办公室.悔理员'0100053f0058146‘100074760.丘鹼办公室.驾驶员r0012139□0581500999S2762陆西.办■公室驾驶员'016S403r0073627100355366770茹公室门卫0020171r00581E3.尸100086412唐対办公室副主任F01193.38r0058152100914276井金室.1门卫°009S504r0058157r100998183-钱豳井公室，协理员"12131H53451"100^220图1筛选结果这时可以通过获取该列表区域中可见单元格的方法得到筛选结果的单元格区域，并复制到工作表Sheet2中，如下面的代码所示。SubCopyFilter()Sheet2.Cells.ClearWithSheet15.6..AutoFilter.Range.SpecialCells(12).CopySheet2.Cells(1,1)EndIf7.EndWith8.EndSub代码解析：CopyFilter过程将Sheetl表中的筛选结果复制到工作表Sheet2中。第2行代码清除Sheet2表中数据。第4行代码判断Sheetl表是否处于自动筛选状态。FilterMode属性返回工作表是否处于筛选模式，如果指定工作表中包含已筛选序列且该序列中含有隐藏行，则该值为True。第5行代码通过AutoFilter对象的Range属性返回工作表的自动筛选列表区域，再使用SpecialCells方法获取该列表区域中可见单元格(SpecialCells方法请参阅技巧4)，得到筛选结果的单元格区域，然后使用Copy方法将结果区域复制到工作表Sheet2中，应用于Range对象的Copy方法将单元格区域复制到指定的区域或剪贴板中，语法如下：expression.Copy(Destination)参数expression是必需的，该表达式返回一个Range对象。参数Destination是可选的，指定区域要复制到的目标区域。如果省略该参数，则将该区域复制到剪贴板中。运行CopyFilter过程工作表Sheet2如图2所示。ABCDEFG1:1姓名部门聪务社保号码医保号码公积金号码2马KK坯公室办事员□74472''004^07110035349503壬血'井公室：井事员rD1327S3°005B148r18106004王熬井公室协理员°11934058147r1000376£井公室外借>20209004r3018'1C027S23636:吴齬井公室门卫°0103918r0053155r1011263：7张觀力奉室门卫00121SDr005S1581003003.电邱齬办公室协理员0100053005B146F10097479丘脚＜'办盘室驾驶员00121390058150099082710办公室驾驶员016S403r0073627100355366711'井公室【.门卫°0020171r005B153r1OO0B64.12-唐血井公室:副主任0119338005B15g-:r100914g：辽井公室门卫009S5040053157r100998114钱豳井壮室协理员12'13158151r100^22015图2复制筛选区域
浙公网安备 33021202002483