VBA技巧36 复制自动筛选后的数据区域.doc

《VBA技巧36 复制自动筛选后的数据区域.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、技巧1复制自动筛选后的数据区域用户在对如Error!Referencesourcenotfound.所示的数据列表进行自动筛选后，往往希望将自动筛选的结果复制到其它地方。图11筛选结果这时可以通过获取该列表区域中可见单元格的方法得到筛选结果的单元格区域，并复制到工作表Sheet2中，如下面的代码所示。#001SubCopyFilter()#002Sheet2.Cells.Clear#003WithSheet1#004If.FilterModeThen#005.AutoFilter.Range.SpecialCells(12).CopySheet2.

2、Cells(1,1)#006EndIf#007EndWith#008EndSub代码解析：CopyFilter过程将Sheet1表中的筛选结果复制到工作表Sheet2中。第2行代码清除Sheet2表中数据。第4行代码判断Sheet1表是否处于自动筛选状态。FilterMode属性返回工作表是否处于筛选模式，如果指定工作表中包含已筛选序列且该序列中含有隐藏行，则该值为True。第5行代码通过AutoFilter对象的Range属性返回工作表的自动筛选列表区域，再使用SpecialCells方法获取该列表区域中可见单元格（SpecialCells方法请参

3、阅Error!Referencesourcenotfound.），得到筛选结果的单元格区域，然后使用Copy方法将结果区域复制到工作表Sheet2中，应用于Range对象的Copy方法将单元格区域复制到指定的区域或剪贴板中，语法如下：expression.Copy(Destination)参数expression是必需的，该表达式返回一个Range对象。参数Destination是可选的，指定区域要复制到的目标区域。如果省略该参数，则将该区域复制到剪贴板中。运行CopyFilter过程工作表Sheet2如Error!Referencesourceno

4、tfound.所示。图12复制筛选区域