Excel VBA实例教程 #036：复制自动筛选后的数据区域.docx

用户在对如图1所示的数据列表进行自动筛选后，往往希望将自动筛选的结果复制到其它地方ABCDEFG1姓名FT部门p< 职务.社保号码D医保号牛•：公租金号码5马KK.办公窒办事员「 074472r 004607110035349508王EK办恳窒办事员0132703r 005S14S1S1S60011王部办咨室协理员119-340r 58147100037615：'7I]XK办公耋.:外借720209004「 3618 ,100278296^30吴幽办公堂.•门卫'010391S□05S155r 1011263?37张㈱办公室.门卫'D0i218ff'005S1ES'100:^90359邱部办公窒.协理员「 0100053「 0058146『100074760.邱耘亦公窒.驾驶员r 0012139□0581500999S2762.办公窒驾驶员016B403r 0073627100355366770唐部办公室门卫0020171「 00581E3.「 100086412唐戏办■公堂副主任F 01193.38「 0058152100914276办公窒.:门卫009S504r 0058157r 10099818 3-钱观莎公M协理员『12131.58•⑸"100^220沔4图1筛选结果这时可以通过获取该列表区域中可见单元格的方法得到筛选结果的单元格区域，并复制到工作表Sheet2中，如下面的代码所示。

1. Sub CopyFilter()2. Sheet2.Cells.Clear3. With Sheetl4. If .FilterMode Then5. .AutoFilter.Range.SpecialCells(12).Copy Sheet2.Cells(1, 1)6. End If7. End With8. End Sub代码解析：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所示ABCDEF* 1:1姓名部门职务社保号码民保号妈公积金号弱2马职见公窒办事员□744 7 2'.：004fi07110035349503王蹈■办公室：办事员r D1327S3r 005B148r 18106004王XX办公室协理员F 11934058147r 10003765利XX办公室外借>20209004r 3018 '1C027S23636:吴皿办公室门卫F 0103918「 0053155r 101 1263：7张戏力揭室门卫00121SDr 005S1581003003.'念邱我办公室协理员0100053005B146F 1009747$邱职■办公耋驾驶员00121390058150099082710陆XU办公室驾驶员016S403r 0073627100355366711唐XX■办公室：.门卫F 0020171「 005B153r 1OO0B64唐密办公室:副主任0119338005015g':r 100914^.2办公室门卫009S5040053157r 100998114钱XX办公室协理员r 12131 :r 58151r 100^22015图2复制筛选区域。